(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Intent to add">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "intent to add">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit 1 &&\n"> <LIT_CHARS "\tgit rm 1.t &&\n"> <LIT_CHARS "\techo hello >1.t &&\n"> <LIT_CHARS "\techo hello >file &&\n"> <LIT_CHARS "\techo hello >elif &&\n"> <LIT_CHARS "\tgit add -N file &&\n"> <LIT_CHARS "\tgit add elif &&\n"> <LIT_CHARS "\tgit add -N 1.t\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git status">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit status --porcelain | grep -v actual >actual &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tDA 1.t\n"> <LIT_CHARS "\tA  elif\n"> <LIT_CHARS "\t A file\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check result of \"add -N\"">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit ls-files -s file >actual &&\n"> <LIT_CHARS "\tempty=$(git hash-object --stdin </dev/null) &&\n"> <LIT_CHARS "\techo \"100644 $empty 0\tfile\" >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "intent to add is just an ordinary empty blob">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit add -u &&\n"> <LIT_CHARS "\tgit ls-files -s file >actual &&\n"> <LIT_CHARS "\tgit ls-files -s elif | sed -e \"s/elif/file/\" >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "intent to add does not clobber existing paths">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit add -N file elif &&\n"> <LIT_CHARS "\tempty=$(git hash-object --stdin </dev/null) &&\n"> <LIT_CHARS "\tgit ls-files -s >actual &&\n"> <LIT_CHARS "\t! grep \"$empty\" actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "i-t-a entry is simply ignored">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -a -m initial &&\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo xyzzy >rezrov &&\n"> <LIT_CHARS "\techo frotz >nitfol &&\n"> <LIT_CHARS "\tgit add rezrov &&\n"> <LIT_CHARS "\tgit add -N nitfol &&\n"> <LIT_CHARS "\tgit commit -m second &&\n"> <LIT_CHARS "\ttest $(git ls-tree HEAD -- nitfol | wc -l) = 0 &&\n"> <LIT_CHARS "\ttest $(git diff --name-only HEAD -- nitfol | wc -l) = 1 &&\n"> <LIT_CHARS "\ttest $(git diff --name-only --ita-invisible-in-index HEAD -- nitfol | wc -l) = 0 &&\n"> <LIT_CHARS "\ttest $(git diff --name-only --ita-invisible-in-index -- nitfol | wc -l) = 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "can commit with an unrelated i-t-a entry in index">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\techo bozbar >rezrov &&\n"> <LIT_CHARS "\techo frotz >nitfol &&\n"> <LIT_CHARS "\tgit add rezrov &&\n"> <LIT_CHARS "\tgit add -N nitfol &&\n"> <LIT_CHARS "\tgit commit -m partial rezrov\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "can \"commit -a\" with an i-t-a entry">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\t: >nitfol &&\n"> <LIT_CHARS "\tgit add -N nitfol &&\n"> <LIT_CHARS "\tgit commit -a -m all\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cache-tree invalidates i-t-a paths">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\tmkdir dir &&\n"> <LIT_CHARS "\t: >dir/foo &&\n"> <LIT_CHARS "\tgit add dir/foo &&\n"> <LIT_CHARS "\tgit commit -m foo &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t: >dir/bar &&\n"> <LIT_CHARS "\tgit add -N dir/bar &&\n"> <LIT_CHARS "\tgit diff --cached --name-only >actual &&\n"> <LIT_CHARS "\techo dir/bar >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit write-tree >/dev/null &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit diff --cached --name-only >actual &&\n"> <LIT_CHARS "\techo dir/bar >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cache-tree does not ignore dir that has i-t-a entries">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init ita-in-dir &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd ita-in-dir &&\n"> <LIT_CHARS "\t\tmkdir 2 &&\n"> <LIT_CHARS "\t\tfor f in 1 2/1 2/2 3\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\techo \"$f\" >\"$f\"\n"> <LIT_CHARS "\t\tdone &&\n"> <LIT_CHARS "\t\tgit add 1 2/2 3 &&\n"> <LIT_CHARS "\t\tgit add -N 2/1 &&\n"> <LIT_CHARS "\t\tgit commit -m committed &&\n"> <LIT_CHARS "\t\tgit ls-tree -r HEAD >actual &&\n"> <LIT_CHARS "\t\tgrep 2/2 actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cache-tree does skip dir that becomes empty">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr ita-in-dir &&\n"> <LIT_CHARS "\tgit init ita-in-dir &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd ita-in-dir &&\n"> <LIT_CHARS "\t\tmkdir -p 1/2/3 &&\n"> <LIT_CHARS "\t\techo 4 >1/2/3/4 &&\n"> <LIT_CHARS "\t\tgit add -N 1/2/3/4 &&\n"> <LIT_CHARS "\t\tgit write-tree >actual &&\n"> <LIT_CHARS "\t\techo $EMPTY_TREE >expected &&\n"> <LIT_CHARS "\t\ttest_cmp expected actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit: ita entries ignored in empty intial commit check">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init empty-intial-commit &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd empty-intial-commit &&\n"> <LIT_CHARS "\t\t: >one &&\n"> <LIT_CHARS "\t\tgit add -N one &&\n"> <LIT_CHARS "\t\ttest_must_fail git commit -m nothing-new-here\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit: ita entries ignored in empty commit check">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init empty-subsequent-commit &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd empty-subsequent-commit &&\n"> <LIT_CHARS "\t\ttest_commit one &&\n"> <LIT_CHARS "\t\t: >two &&\n"> <LIT_CHARS "\t\tgit add -N two &&\n"> <LIT_CHARS "\t\ttest_must_fail git commit -m nothing-new-here\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_done]})
)