#!/bin/sh
#
# Copyright (c) 2009, Red Hat Inc, Author: Michael S. Tsirkin (mst@redhat.com)
#

global test_description := ''test clone --reference''
source ./test-lib.sh

global base_dir := $[pwd]

proc test_alternate_is_used {
	global alternates_file := $1 &&
	global working_dir := $2 &&
	test_line_count = 1 $alternates_file &&
	echo "0 objects, 0 kilobytes" >expect &&
	git -C $working_dir count-objects >actual &&
	test_cmp expect actual
}

test_expect_success 'preparing first repository' '
	test_create_repo A &&
	(
		cd A &&
		echo first >file1 &&
		git add file1 &&
		git commit -m A-initial
	)
'

test_expect_success 'preparing second repository' '
	git clone A B &&
	(
		cd B &&
		echo second >file2 &&
		git add file2 &&
		git commit -m B-addition &&
		git repack -a -d &&
		git prune
	)
'

test_expect_success 'preparing superproject' '
	test_create_repo super &&
	(
		cd super &&
		echo file >file &&
		git add file &&
		git commit -m B-super-initial
	)
'

test_expect_success 'submodule add --reference uses alternates' '
	(
		cd super &&
		git submodule add --reference ../B "file://$base_dir/A" sub &&
		git commit -m B-super-added &&
		git repack -ad
	) &&
	test_alternate_is_used super/.git/modules/sub/objects/info/alternates super/sub
'

test_expect_success 'that reference gets used with add' '
	(
		cd super/sub &&
		echo "0 objects, 0 kilobytes" >expected &&
		git count-objects >current &&
		diff expected current
	)
'

# The tests up to this point, and repositories created by them
# (A, B, super and super/sub), are about setting up the stage
# for subsequent tests and meant to be kept throughout the
# remainder of the test.
# Tests from here on, if they create their own test repository,
# are expected to clean after themselves.

test_expect_success 'updating superproject keeps alternates' '
	test_when_finished "rm -rf super-clone" &&
	git clone super super-clone &&
	git -C super-clone submodule update --init --reference ../B &&
	test_alternate_is_used super-clone/.git/modules/sub/objects/info/alternates super-clone/sub
'

test_expect_success 'submodules use alternates when cloning a superproject' '
	test_when_finished "rm -rf super-clone" &&
	git clone --reference super --recursive super super-clone &&
	(
		cd super-clone &&
		# test superproject has alternates setup correctly
		test_alternate_is_used .git/objects/info/alternates . &&
		# test submodule has correct setup
		test_alternate_is_used .git/modules/sub/objects/info/alternates sub
	)
'

test_expect_success 'missing submodule alternate fails clone and submodule update' '
	test_when_finished "rm -rf super-clone" &&
	git clone super super2 &&
	test_must_fail git clone --recursive --reference super2 super2 super-clone &&
	(
		cd super-clone &&
		# test superproject has alternates setup correctly
		test_alternate_is_used .git/objects/info/alternates . &&
		# update of the submodule succeeds
		test_must_fail git submodule update --init &&
		# and we have no alternates:
		test_must_fail test_alternate_is_used .git/modules/sub/objects/info/alternates sub &&
		test_must_fail test_path_is_file sub/file1
	)
'

test_expect_success 'ignoring missing submodule alternates passes clone and submodule update' '
	test_when_finished "rm -rf super-clone" &&
	git clone --reference-if-able super2 --recursive super2 super-clone &&
	(
		cd super-clone &&
		# test superproject has alternates setup correctly
		test_alternate_is_used .git/objects/info/alternates . &&
		# update of the submodule succeeds
		git submodule update --init &&
		# and we have no alternates:
		test_must_fail test_alternate_is_used .git/modules/sub/objects/info/alternates sub &&
		test_path_is_file sub/file1
	)
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"test clone --reference">)}
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./test-lib.sh)})
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:base_dir)
          op: Equal
          rhs: 
            {
              (CommandSubPart
                command_list: (CommandList children:[(C {(pwd)})])
                left_token: <Left_CommandSub "$(">
                spids: [24 26]
              )
            }
          spids: [23]
        )
      ]
      spids: [23]
    )
    (FuncDef
      name: test_alternate_is_used
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (LhsName name:alternates_file)
                      op: Equal
                      rhs: {(DQ ($ VSub_Number "$1"))}
                      spids: [37]
                    )
                  ]
                  spids: [37]
                )
                (AndOr
                  children: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:working_dir)
                          op: Equal
                          rhs: {(DQ ($ VSub_Number "$2"))}
                          spids: [45]
                        )
                      ]
                      spids: [45]
                    )
                    (AndOr
                      children: [
                        (C {(test_line_count)} {(Lit_Other "=")} {(1)} 
                          {(DQ ($ VSub_Name "$alternates_file"))}
                        )
                        (AndOr
                          children: [
                            (SimpleCommand
                              words: [{(echo)} {(DQ ("0 objects, 0 kilobytes"))}]
                              redirects: [
                                (Redir
                                  op_id: Redir_Great
                                  fd: -1
                                  arg_word: {(expect)}
                                  spids: [72]
                                )
                              ]
                            )
                            (AndOr
                              children: [
                                (SimpleCommand
                                  words: [
                                    {(git)}
                                    {(-C)}
                                    {(DQ ($ VSub_Name "$working_dir"))}
                                    {(count-objects)}
                                  ]
                                  redirects: [
                                    (Redir
                                      op_id: Redir_Great
                                      fd: -1
                                      arg_word: {(actual)}
                                      spids: [88]
                                    )
                                  ]
                                )
                                (C {(test_cmp)} {(expect)} {(actual)})
                              ]
                              op_id: Op_DAmp
                            )
                          ]
                          op_id: Op_DAmp
                        )
                      ]
                      op_id: Op_DAmp
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [34]
        )
      spids: [29 33]
    )
    (C {(test_expect_success)} {(SQ <"preparing first repository">)} 
      {
        (SQ <"\n"> <"\ttest_create_repo A &&\n"> <"\t(\n"> <"\t\tcd A &&\n"> 
          <"\t\techo first >file1 &&\n"> <"\t\tgit add file1 &&\n"> <"\t\tgit commit -m A-initial\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"preparing second repository">)} 
      {
        (SQ <"\n"> <"\tgit clone A B &&\n"> <"\t(\n"> <"\t\tcd B &&\n"> <"\t\techo second >file2 &&\n"> 
          <"\t\tgit add file2 &&\n"> <"\t\tgit commit -m B-addition &&\n"> <"\t\tgit repack -a -d &&\n"> <"\t\tgit prune\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"preparing superproject">)} 
      {
        (SQ <"\n"> <"\ttest_create_repo super &&\n"> <"\t(\n"> <"\t\tcd super &&\n"> 
          <"\t\techo file >file &&\n"> <"\t\tgit add file &&\n"> <"\t\tgit commit -m B-super-initial\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"submodule add --reference uses alternates">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd super &&\n"> 
          <"\t\tgit submodule add --reference ../B \"file://$base_dir/A\" sub &&\n"> <"\t\tgit commit -m B-super-added &&\n"> <"\t\tgit repack -ad\n"> <"\t) &&\n"> 
          <"\ttest_alternate_is_used super/.git/modules/sub/objects/info/alternates super/sub\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"that reference gets used with add">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd super/sub &&\n"> 
          <"\t\techo \"0 objects, 0 kilobytes\" >expected &&\n"> <"\t\tgit count-objects >current &&\n"> <"\t\tdiff expected current\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"updating superproject keeps alternates">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super-clone\" &&\n"> 
          <"\tgit clone super super-clone &&\n"> <"\tgit -C super-clone submodule update --init --reference ../B &&\n"> 
          <
"\ttest_alternate_is_used super-clone/.git/modules/sub/objects/info/alternates super-clone/sub\n"
          >
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"submodules use alternates when cloning a superproject">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super-clone\" &&\n"> 
          <"\tgit clone --reference super --recursive super super-clone &&\n"> <"\t(\n"> <"\t\tcd super-clone &&\n"> <"\t\t# test superproject has alternates setup correctly\n"> 
          <"\t\ttest_alternate_is_used .git/objects/info/alternates . &&\n"> <"\t\t# test submodule has correct setup\n"> 
          <"\t\ttest_alternate_is_used .git/modules/sub/objects/info/alternates sub\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"missing submodule alternate fails clone and submodule update">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super-clone\" &&\n"> 
          <"\tgit clone super super2 &&\n"> <"\ttest_must_fail git clone --recursive --reference super2 super2 super-clone &&\n"> <"\t(\n"> 
          <"\t\tcd super-clone &&\n"> <"\t\t# test superproject has alternates setup correctly\n"> 
          <"\t\ttest_alternate_is_used .git/objects/info/alternates . &&\n"> <"\t\t# update of the submodule succeeds\n"> <"\t\ttest_must_fail git submodule update --init &&\n"> 
          <"\t\t# and we have no alternates:\n"> <"\t\ttest_must_fail test_alternate_is_used .git/modules/sub/objects/info/alternates sub &&\n"> 
          <"\t\ttest_must_fail test_path_is_file sub/file1\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <"ignoring missing submodule alternates passes clone and submodule update">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"rm -rf super-clone\" &&\n"> 
          <"\tgit clone --reference-if-able super2 --recursive super2 super-clone &&\n"> <"\t(\n"> <"\t\tcd super-clone &&\n"> <"\t\t# test superproject has alternates setup correctly\n"> 
          <"\t\ttest_alternate_is_used .git/objects/info/alternates . &&\n"> <"\t\t# update of the submodule succeeds\n"> <"\t\tgit submodule update --init &&\n"> 
          <"\t\t# and we have no alternates:\n"> <"\t\ttest_must_fail test_alternate_is_used .git/modules/sub/objects/info/alternates sub &&\n"> 
          <"\t\ttest_path_is_file sub/file1\n"> <"\t)\n">
        )
      }
    )
    (C {(test_done)})
  ]
)