(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "basic tests for fast-export --anonymize">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup simple repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit base &&\n"> <LIT_CHARS "\ttest_commit foo &&\n"> <LIT_CHARS "\tgit checkout -b other HEAD^ &&\n"> <LIT_CHARS "\tmkdir subdir &&\n"> <LIT_CHARS "\ttest_commit subdir/bar &&\n"> <LIT_CHARS "\ttest_commit subdir/xyzzy &&\n"> <LIT_CHARS "\tgit tag -m \"annotated tag\" mytag\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "export anonymized stream">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit fast-export --anonymize --all >stream\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stream omits path names">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t! grep base stream &&\n"> <LIT_CHARS "\t! grep foo stream &&\n"> <LIT_CHARS "\t! grep subdir stream &&\n"> <LIT_CHARS "\t! grep bar stream &&\n"> <LIT_CHARS "\t! grep xyzzy stream\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stream allows master as refname">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgrep master stream\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stream omits other refnames">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t! grep other stream &&\n"> <LIT_CHARS "\t! grep mytag stream\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stream omits identities">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t! grep \"$GIT_COMMITTER_NAME\" stream &&\n"> <LIT_CHARS "\t! grep \"$GIT_COMMITTER_EMAIL\" stream &&\n"> <LIT_CHARS "\t! grep \"$GIT_AUTHOR_NAME\" stream &&\n"> <LIT_CHARS "\t! grep \"$GIT_AUTHOR_EMAIL\" stream\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stream omits tag message">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t! grep \"annotated tag\" stream\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "import stream to new repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init new &&\n"> <LIT_CHARS "\tcd new &&\n"> <LIT_CHARS "\tgit fast-import <../stream\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "result has two branches">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(refname)\" refs/heads >branches &&\n"> <LIT_CHARS "\ttest_line_count = 2 branches &&\n"> <LIT_CHARS "\tother_branch=$(grep -v refs/heads/master branches)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "repo has original shape and timestamps">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tshape () {\n"> <LIT_CHARS "\t\tgit log --format=\"%m %ct\" --left-right --boundary \"$@\"\n"> <LIT_CHARS "\t} &&\n"> <LIT_CHARS "\t(cd .. && shape master...other) >expect &&\n"> <LIT_CHARS "\tshape master...$other_branch >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "root tree has original shape">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# the output entries are not necessarily in the same\n"> <LIT_CHARS "\t# order, but we know at least that we will have one tree\n"> <LIT_CHARS "\t# and one blob, so just check the sorted order\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tblob\n"> <LIT_CHARS "\ttree\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit ls-tree $other_branch >root &&\n"> <LIT_CHARS "\tcut -d\" \" -f2 <root | sort >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "paths in subdir ended up in one tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tblob\n"> <LIT_CHARS "\tblob\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttree=$(grep tree root | cut -f2) &&\n"> <LIT_CHARS "\tgit ls-tree $other_branch:$tree >tree &&\n"> <LIT_CHARS "\tcut -d\" \" -f2 <tree >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tag points to branch tip">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-parse $other_branch >expect &&\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(*objectname)\" | grep . >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "idents are shared">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit log --all --format=\"%an <%ae>\" >authors &&\n"> <LIT_CHARS "\tsort -u authors >unique &&\n"> <LIT_CHARS "\ttest_line_count = 1 unique &&\n"> <LIT_CHARS "\tgit log --all --format=\"%cn <%ce>\" >committers &&\n"> <LIT_CHARS "\tsort -u committers >unique &&\n"> <LIT_CHARS "\ttest_line_count = 1 unique &&\n"> <LIT_CHARS "\t! test_cmp authors committers\n">]})
  (Com {[LIT_CHARS test_done]})
)