#!/bin/sh

global test_description := ''Test shallow cloning of repos with submodules''

source ./test-lib.sh

global pwd := $[pwd]

test_expect_success 'setup' '
	git checkout -b master &&
	test_commit commit1 &&
	test_commit commit2 &&
	mkdir sub &&
	(
		cd sub &&
		git init &&
		test_commit subcommit1 &&
		test_commit subcommit2 &&
		test_commit subcommit3
	) &&
	git submodule add "file://$pwd/sub" sub &&
	git commit -m "add submodule"
'

test_expect_success 'nonshallow clone implies nonshallow submodule' '
	test_when_finished "rm -rf super_clone" &&
	git clone --recurse-submodules "file://$pwd/." super_clone &&
	git -C super_clone log --oneline >lines &&
	test_line_count = 3 lines &&
	git -C super_clone/sub log --oneline >lines &&
	test_line_count = 3 lines
'

test_expect_success 'shallow clone with shallow submodule' '
	test_when_finished "rm -rf super_clone" &&
	git clone --recurse-submodules --depth 2 --shallow-submodules "file://$pwd/." super_clone &&
	git -C super_clone log --oneline >lines &&
	test_line_count = 2 lines &&
	git -C super_clone/sub log --oneline >lines &&
	test_line_count = 1 lines
'

test_expect_success 'shallow clone does not imply shallow submodule' '
	test_when_finished "rm -rf super_clone" &&
	git clone --recurse-submodules --depth 2 "file://$pwd/." super_clone &&
	git -C super_clone log --oneline >lines &&
	test_line_count = 2 lines &&
	git -C super_clone/sub log --oneline >lines &&
	test_line_count = 3 lines
'

test_expect_success 'shallow clone with non shallow submodule' '
	test_when_finished "rm -rf super_clone" &&
	git clone --recurse-submodules --depth 2 --no-shallow-submodules "file://$pwd/." super_clone &&
	git -C super_clone log --oneline >lines &&
	test_line_count = 2 lines &&
	git -C super_clone/sub log --oneline >lines &&
	test_line_count = 3 lines
'

test_expect_success 'non shallow clone with shallow submodule' '
	test_when_finished "rm -rf super_clone" &&
	git clone --recurse-submodules --no-local --shallow-submodules "file://$pwd/." super_clone &&
	git -C super_clone log --oneline >lines &&
	test_line_count = 3 lines &&
	git -C super_clone/sub log --oneline >lines &&
	test_line_count = 1 lines
'

test_expect_success 'clone follows shallow recommendation' '
	test_when_finished "rm -rf super_clone" &&
	git config -f .gitmodules submodule.sub.shallow true &&
	git add .gitmodules &&
	git commit -m "recommed shallow for sub" &&
	git clone --recurse-submodules --no-local "file://$pwd/." super_clone &&
	(
		cd super_clone &&
		git log --oneline >lines &&
		test_line_count = 4 lines
	) &&
	(
		cd super_clone/sub &&
		git log --oneline >lines &&
		test_line_count = 1 lines
	)
'

test_expect_success 'get unshallow recommended shallow submodule' '
	test_when_finished "rm -rf super_clone" &&
	git clone --no-local "file://$pwd/." super_clone &&
	(
		cd super_clone &&
		git submodule update --init --no-recommend-shallow &&
		git log --oneline >lines &&
		test_line_count = 4 lines
	) &&
	(
		cd super_clone/sub &&
		git log --oneline >lines &&
		test_line_count = 3 lines
	)
'

test_expect_success 'clone follows non shallow recommendation' '
	test_when_finished "rm -rf super_clone" &&
	git config -f .gitmodules submodule.sub.shallow false &&
	git add .gitmodules &&
	git commit -m "recommed non shallow for sub" &&
	git clone --recurse-submodules --no-local "file://$pwd/." super_clone &&
	(
		cd super_clone &&
		git log --oneline >lines &&
		test_line_count = 5 lines
	) &&
	(
		cd super_clone/sub &&
		git log --oneline >lines &&
		test_line_count = 3 lines
	)
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"Test shallow cloning of repos with submodules">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:pwd)
          op: Equal
          rhs: 
            {
              (CommandSubPart
                command_list: (CommandList children:[(C {(pwd)})])
                left_token: <Left_CommandSub "$(">
                spids: [16 18]
              )
            }
          spids: [15]
        )
      ]
      spids: [15]
    )
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <"\n"> <"\tgit checkout -b master &&\n"> <"\ttest_commit commit1 &&\n"> 
          <"\ttest_commit commit2 &&\n"> <"\tmkdir sub &&\n"> <"\t(\n"> <"\t\tcd sub &&\n"> <"\t\tgit init &&\n"> 
          <"\t\ttest_commit subcommit1 &&\n"> <"\t\ttest_commit subcommit2 &&\n"> <"\t\ttest_commit subcommit3\n"> <"\t) &&\n"> 
          <"\tgit submodule add \"file://$pwd/sub\" sub &&\n"> <"\tgit commit -m \"add submodule\"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"nonshallow clone implies nonshallow submodule">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super_clone\" &&\n"> 
          <"\tgit clone --recurse-submodules \"file://$pwd/.\" super_clone &&\n"> <"\tgit -C super_clone log --oneline >lines &&\n"> <"\ttest_line_count = 3 lines &&\n"> 
          <"\tgit -C super_clone/sub log --oneline >lines &&\n"> <"\ttest_line_count = 3 lines\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"shallow clone with shallow submodule">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super_clone\" &&\n"> 
          <
"\tgit clone --recurse-submodules --depth 2 --shallow-submodules \"file://$pwd/.\" super_clone &&\n"
          > <"\tgit -C super_clone log --oneline >lines &&\n"> <"\ttest_line_count = 2 lines &&\n"> 
          <"\tgit -C super_clone/sub log --oneline >lines &&\n"> <"\ttest_line_count = 1 lines\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"shallow clone does not imply shallow submodule">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super_clone\" &&\n"> 
          <"\tgit clone --recurse-submodules --depth 2 \"file://$pwd/.\" super_clone &&\n"> <"\tgit -C super_clone log --oneline >lines &&\n"> <"\ttest_line_count = 2 lines &&\n"> 
          <"\tgit -C super_clone/sub log --oneline >lines &&\n"> <"\ttest_line_count = 3 lines\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"shallow clone with non shallow submodule">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super_clone\" &&\n"> 
          <
"\tgit clone --recurse-submodules --depth 2 --no-shallow-submodules \"file://$pwd/.\" super_clone &&\n"
          > <"\tgit -C super_clone log --oneline >lines &&\n"> <"\ttest_line_count = 2 lines &&\n"> 
          <"\tgit -C super_clone/sub log --oneline >lines &&\n"> <"\ttest_line_count = 3 lines\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"non shallow clone with shallow submodule">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super_clone\" &&\n"> 
          <
"\tgit clone --recurse-submodules --no-local --shallow-submodules \"file://$pwd/.\" super_clone &&\n"
          > <"\tgit -C super_clone log --oneline >lines &&\n"> <"\ttest_line_count = 3 lines &&\n"> 
          <"\tgit -C super_clone/sub log --oneline >lines &&\n"> <"\ttest_line_count = 1 lines\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"clone follows shallow recommendation">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super_clone\" &&\n"> 
          <"\tgit config -f .gitmodules submodule.sub.shallow true &&\n"> <"\tgit add .gitmodules &&\n"> <"\tgit commit -m \"recommed shallow for sub\" &&\n"> 
          <"\tgit clone --recurse-submodules --no-local \"file://$pwd/.\" super_clone &&\n"> <"\t(\n"> <"\t\tcd super_clone &&\n"> <"\t\tgit log --oneline >lines &&\n"> 
          <"\t\ttest_line_count = 4 lines\n"> <"\t) &&\n"> <"\t(\n"> <"\t\tcd super_clone/sub &&\n"> <"\t\tgit log --oneline >lines &&\n"> 
          <"\t\ttest_line_count = 1 lines\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"get unshallow recommended shallow submodule">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super_clone\" &&\n"> 
          <"\tgit clone --no-local \"file://$pwd/.\" super_clone &&\n"> <"\t(\n"> <"\t\tcd super_clone &&\n"> <"\t\tgit submodule update --init --no-recommend-shallow &&\n"> 
          <"\t\tgit log --oneline >lines &&\n"> <"\t\ttest_line_count = 4 lines\n"> <"\t) &&\n"> <"\t(\n"> <"\t\tcd super_clone/sub &&\n"> 
          <"\t\tgit log --oneline >lines &&\n"> <"\t\ttest_line_count = 3 lines\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"clone follows non shallow recommendation">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super_clone\" &&\n"> 
          <"\tgit config -f .gitmodules submodule.sub.shallow false &&\n"> <"\tgit add .gitmodules &&\n"> <"\tgit commit -m \"recommed non shallow for sub\" &&\n"> 
          <"\tgit clone --recurse-submodules --no-local \"file://$pwd/.\" super_clone &&\n"> <"\t(\n"> <"\t\tcd super_clone &&\n"> <"\t\tgit log --oneline >lines &&\n"> 
          <"\t\ttest_line_count = 5 lines\n"> <"\t) &&\n"> <"\t(\n"> <"\t\tcd super_clone/sub &&\n"> <"\t\tgit log --oneline >lines &&\n"> 
          <"\t\ttest_line_count = 3 lines\n"> <"\t)\n">
        )
      }
    )
    (C {(test_done)})
  ]
)