(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "some bundle related tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit initial &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit tag -m tag tag &&\n"> <LIT_CHARS "\ttest_commit second &&\n"> <LIT_CHARS "\ttest_commit third &&\n"> <LIT_CHARS "\tgit tag -d initial &&\n"> <LIT_CHARS "\tgit tag -d second &&\n"> <LIT_CHARS "\tgit tag -d third\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "annotated tags can be excluded by rev-list options">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit bundle create bundle --all --since=7.Apr.2005.15:14:00.-0700 &&\n"> <LIT_CHARS "\tgit ls-remote bundle > output &&\n"> <LIT_CHARS "\tgrep tag output &&\n"> <LIT_CHARS "\tgit bundle create bundle --all --since=7.Apr.2005.15:16:00.-0700 &&\n"> <LIT_CHARS "\tgit ls-remote bundle > output &&\n"> <LIT_CHARS "\t! grep tag output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "die if bundle file cannot be created">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir adir &&\n"> <LIT_CHARS "\ttest_must_fail git bundle create adir --all\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "bundle --stdin">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo master | git bundle create stdin-bundle.bdl --stdin &&\n"> <LIT_CHARS "\tgit ls-remote stdin-bundle.bdl >output &&\n"> <LIT_CHARS "\tgrep master output\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "bundle --stdin <rev-list options>">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo master | git bundle create hybrid-bundle.bdl --stdin tag &&\n"> <LIT_CHARS "\tgit ls-remote hybrid-bundle.bdl >output &&\n"> <LIT_CHARS "\tgrep master output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "empty bundle file is rejected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t: >empty-bundle &&\n"> <LIT_CHARS "\ttest_must_fail git fetch empty-bundle\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ridiculously long subject in boundary">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t: >file4 &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit add file4 &&\n"> <LIT_CHARS "\tprintf \"%01200d\\n\" 0 | git commit -F - &&\n"> <LIT_CHARS "\ttest_commit fifth &&\n"> <LIT_CHARS "\tgit bundle create long-subject-bundle.bdl HEAD^..HEAD &&\n"> <LIT_CHARS "\tgit bundle list-heads long-subject-bundle.bdl >heads &&\n"> <LIT_CHARS "\ttest -s heads &&\n"> <LIT_CHARS "\tgit fetch long-subject-bundle.bdl &&\n"> <LIT_CHARS "\tsed -n \"/^-/{p;q;}\" long-subject-bundle.bdl >boundary &&\n"> <LIT_CHARS "\tgrep \"^-[0-9a-f]\\\\{40\\\\} \" boundary\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prerequisites with an empty commit message">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t: >file1 &&\n"> <LIT_CHARS "\tgit add file1 &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit --allow-empty-message -m \"\" &&\n"> <LIT_CHARS "\ttest_commit file2 &&\n"> <LIT_CHARS "\tgit bundle create bundle HEAD^.. &&\n"> <LIT_CHARS "\tgit bundle verify bundle\n">]})
  (Com {[LIT_CHARS test_done]})
)