#!/bin/sh

# Description of the files in the repository:
#
#    imported-once.txt:
#
#       Imported once.  1.1 and 1.1.1.1 should be identical.
#
#    imported-twice.txt:
#
#       Imported twice.  HEAD should reflect the contents of the
#       second import (i.e., have the same contents as 1.1.1.2).
#
#    imported-modified.txt:
#
#       Imported, then modified on HEAD.  HEAD should reflect the
#       modification.
#
#    imported-modified-imported.txt:
#
#       Imported, then modified on HEAD, then imported again.
#
#    added-imported.txt,v:
#
#       Added with 'cvs add' to create 1.1, then imported with
#       completely different contents to create 1.1.1.1, therefore the
#       vendor branch was never the default branch.
#
#    imported-anonymously.txt:
#
#       Like imported-twice.txt, but with a vendor branch whose branch
#       tag has been removed.

global test_description := ''git cvsimport handling of vendor branches''
source ./lib-cvs.sh

setup_cvs_test_repository t9601

test_expect_success PERL 'import a module with a vendor branch' '

	git cvsimport -C module-git module

'

test_expect_success PERL 'check HEAD out of cvs repository' 'test_cvs_co master'

test_expect_success PERL 'check master out of git repository' 'test_git_co master'

test_expect_success PERL 'check a file that was imported once' '

	test_cmp_branch_file master imported-once.txt

'

test_expect_failure PERL 'check a file that was imported twice' '

	test_cmp_branch_file master imported-twice.txt

'

test_expect_success PERL 'check a file that was imported then modified on HEAD' '

	test_cmp_branch_file master imported-modified.txt

'

test_expect_success PERL 'check a file that was imported, modified, then imported again' '

	test_cmp_branch_file master imported-modified-imported.txt

'

test_expect_success PERL 'check a file that was added to HEAD then imported' '

	test_cmp_branch_file master added-imported.txt

'

test_expect_success PERL 'a vendor branch whose tag has been removed' '

	test_cmp_branch_file master imported-anonymously.txt

'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"git cvsimport handling of vendor branches">)}
          spids: [95]
        )
      ]
      spids: [95]
    )
    (C {(.)} {(./lib-cvs.sh)})
    (C {(setup_cvs_test_repository)} {(t9601)})
    (C {(test_expect_success)} {(PERL)} {(SQ <"import a module with a vendor branch">)} 
      {(SQ <"\n"> <"\n"> <"\tgit cvsimport -C module-git module\n"> <"\n">)}
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"check HEAD out of cvs repository">)} 
      {(SQ <"test_cvs_co master">)}
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"check master out of git repository">)} 
      {(SQ <"test_git_co master">)}
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"check a file that was imported once">)} 
      {(SQ <"\n"> <"\n"> <"\ttest_cmp_branch_file master imported-once.txt\n"> <"\n">)}
    )
    (C {(test_expect_failure)} {(PERL)} {(SQ <"check a file that was imported twice">)} 
      {(SQ <"\n"> <"\n"> <"\ttest_cmp_branch_file master imported-twice.txt\n"> <"\n">)}
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"check a file that was imported then modified on HEAD">)} 
      {(SQ <"\n"> <"\n"> <"\ttest_cmp_branch_file master imported-modified.txt\n"> <"\n">)}
    )
    (C {(test_expect_success)} {(PERL)} 
      {(SQ <"check a file that was imported, modified, then imported again">)} {(SQ <"\n"> <"\n"> <"\ttest_cmp_branch_file master imported-modified-imported.txt\n"> <"\n">)}
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"check a file that was added to HEAD then imported">)} 
      {(SQ <"\n"> <"\n"> <"\ttest_cmp_branch_file master added-imported.txt\n"> <"\n">)}
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"a vendor branch whose tag has been removed">)} 
      {(SQ <"\n"> <"\n"> <"\ttest_cmp_branch_file master imported-anonymously.txt\n"> <"\n">)}
    )
    (C {(test_done)})
  ]
)