(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "add -i basic tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-prereq-FILEMODE.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup (initial)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\techo more >>file &&\n"> <LIT_CHARS "\techo lines >>file\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "status works (initial)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit add -i </dev/null >output &&\n"> <LIT_CHARS "\tgrep \"+1/-0 *+2/-0 file\" output\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup expected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >expected <<EOF\n"> <LIT_CHARS "new file mode 100644\n"> <LIT_CHARS "index 0000000..d95f3ad\n"> <LIT_CHARS "--- /dev/null\n"> <LIT_CHARS "+++ b/file\n"> <LIT_CHARS "@@ -0,0 +1 @@\n"> <LIT_CHARS "+content\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "diff works (initial)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(echo d; echo 1) | git add -i >output &&\n"> <LIT_CHARS "\tsed -ne \"/new file/,/content/p\" <output >diff &&\n"> <LIT_CHARS "\ttest_cmp expected diff\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "revert works (initial)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\t(echo r; echo 1) | git add -i &&\n"> <LIT_CHARS "\tgit ls-files >output &&\n"> <LIT_CHARS "\t! grep . output\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup (commit)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo baseline >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m commit &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\techo more >>file &&\n"> <LIT_CHARS "\techo lines >>file\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "status works (commit)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit add -i </dev/null >output &&\n"> <LIT_CHARS "\tgrep \"+1/-0 *+2/-0 file\" output\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup expected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >expected <<EOF\n"> <LIT_CHARS "index 180b47c..b6f2c08 100644\n"> <LIT_CHARS "--- a/file\n"> <LIT_CHARS "+++ b/file\n"> <LIT_CHARS "@@ -1 +1,2 @@\n"> <LIT_CHARS " baseline\n"> <LIT_CHARS "+content\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "diff works (commit)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(echo d; echo 1) | git add -i >output &&\n"> <LIT_CHARS "\tsed -ne \"/^index/,/content/p\" <output >diff &&\n"> <LIT_CHARS "\ttest_cmp expected diff\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "revert works (commit)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\t(echo r; echo 1) | git add -i &&\n"> <LIT_CHARS "\tgit add -i </dev/null >output &&\n"> <LIT_CHARS "\tgrep \"unchanged *+3/-0 file\" output\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup expected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >expected <<EOF\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup fake editor">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t>fake_editor.sh &&\n"> <LIT_CHARS "\tchmod a+x fake_editor.sh &&\n"> <LIT_CHARS "\ttest_set_editor \"$(pwd)/fake_editor.sh\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "dummy edit works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(echo e; echo a) | git add -p &&\n"> <LIT_CHARS "\tgit diff > diff &&\n"> <LIT_CHARS "\ttest_cmp expected diff\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup patch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >patch <<EOF\n"> <LIT_CHARS "@@ -1,1 +1,4 @@\n"> <LIT_CHARS " this\n"> <LIT_CHARS "+patch\n"> <LIT_CHARS "-does not\n"> <LIT_CHARS " apply\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup fake editor">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"#!$SHELL_PATH\" >fake_editor.sh &&\n"> <LIT_CHARS "\tcat >>fake_editor.sh <<\\EOF &&\n"> <LIT_CHARS "mv -f \"$1\" oldpatch &&\n"> <LIT_CHARS "mv -f patch \"$1\"\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tchmod a+x fake_editor.sh &&\n"> <LIT_CHARS "\ttest_set_editor \"$(pwd)/fake_editor.sh\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "bad edit rejected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset &&\n"> <LIT_CHARS "\t(echo e; echo n; echo d) | git add -p >output &&\n"> <LIT_CHARS "\tgrep \"hunk does not apply\" output\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup patch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >patch <<EOF\n"> <LIT_CHARS "this patch\n"> <LIT_CHARS "is garbage\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "garbage edit rejected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset &&\n"> <LIT_CHARS "\t(echo e; echo n; echo d) | git add -p >output &&\n"> <LIT_CHARS "\tgrep \"hunk does not apply\" output\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup patch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >patch <<EOF\n"> <LIT_CHARS "@@ -1,0 +1,0 @@\n"> <LIT_CHARS " baseline\n"> <LIT_CHARS "+content\n"> <LIT_CHARS "+newcontent\n"> <LIT_CHARS "+lines\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup expected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >expected <<EOF\n"> <LIT_CHARS "diff --git a/file b/file\n"> <LIT_CHARS "index b5dd6c9..f910ae9 100644\n"> <LIT_CHARS "--- a/file\n"> <LIT_CHARS "+++ b/file\n"> <LIT_CHARS "@@ -1,4 +1,4 @@\n"> <LIT_CHARS " baseline\n"> <LIT_CHARS " content\n"> <LIT_CHARS "-newcontent\n"> <LIT_CHARS "+more\n"> <LIT_CHARS " lines\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "real edit works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(echo e; echo n; echo d) | git add -p &&\n"> <LIT_CHARS "\tgit diff >output &&\n"> <LIT_CHARS "\ttest_cmp expected output\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "skip files similarly as commit -a">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset &&\n"> <LIT_CHARS "\techo file >.gitignore &&\n"> <LIT_CHARS "\techo changed >file &&\n"> <LIT_CHARS "\techo y | git add -p file &&\n"> <LIT_CHARS "\tgit diff >output &&\n"> <LIT_CHARS "\tgit reset &&\n"> <LIT_CHARS "\tgit commit -am commit &&\n"> <LIT_CHARS "\tgit diff >expected &&\n"> <LIT_CHARS "\ttest_cmp expected output &&\n"> <LIT_CHARS "\tgit reset --hard HEAD^\n">]}  )
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -f]} {[LIT_CHARS .gitignore]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL] [LIT_COMMA ","] [LIT_CHARS FILEMODE]} {[SQ <LIT_CHARS "patch does not affect mode">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tchmod +x file &&\n"> <LIT_CHARS "\tprintf \"n\\\\ny\\\\n\" | git add -p &&\n"> <LIT_CHARS "\tgit show :file | grep content &&\n"> <LIT_CHARS "\tgit diff file | grep \"new mode\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL] [LIT_COMMA ","] [LIT_CHARS FILEMODE]} {[SQ <LIT_CHARS "stage mode but not hunk">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tchmod +x file &&\n"> <LIT_CHARS "\tprintf \"y\\\\nn\\\\n\" | git add -p &&\n"> <LIT_CHARS "\tgit diff --cached file | grep \"new mode\" &&\n"> <LIT_CHARS "\tgit diff          file | grep \"+content\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL] [LIT_COMMA ","] [LIT_CHARS FILEMODE]} {[SQ <LIT_CHARS "stage mode and hunk">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tchmod +x file &&\n"> <LIT_CHARS "\tprintf \"y\\\\ny\\\\n\" | git add -p &&\n"> <LIT_CHARS "\tgit diff --cached file | grep \"new mode\" &&\n"> <LIT_CHARS "\tgit diff --cached file | grep \"+content\" &&\n"> <LIT_CHARS "\ttest -z \"$(git diff file)\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup again">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\ttest_chmod +x file &&\n"> <LIT_CHARS "\techo content >>file\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup patch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >patch <<EOF\n"> <LIT_CHARS "index 180b47c..b6f2c08 100644\n"> <LIT_CHARS "--- a/file\n"> <LIT_CHARS "+++ b/file\n"> <LIT_CHARS "@@ -1,2 +1,4 @@\n"> <LIT_CHARS "+firstline\n"> <LIT_CHARS " baseline\n"> <LIT_CHARS " content\n"> <LIT_CHARS "+lastline\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup expected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >expected <<EOF\n"> <LIT_CHARS "diff --git a/file b/file\n"> <LIT_CHARS "index b6f2c08..61b9053 100755\n"> <LIT_CHARS "--- a/file\n"> <LIT_CHARS "+++ b/file\n"> <LIT_CHARS "@@ -1,2 +1,4 @@\n"> <LIT_CHARS "+firstline\n"> <LIT_CHARS " baseline\n"> <LIT_CHARS " content\n"> <LIT_CHARS "+lastline\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "add first line works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit commit -am \"clear local changes\" &&\n"> <LIT_CHARS "\tgit apply patch &&\n"> <LIT_CHARS "\t(echo s; echo y; echo y) | git add -p file &&\n"> <LIT_CHARS "\tgit diff --cached > diff &&\n"> <LIT_CHARS "\ttest_cmp expected diff\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup expected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >expected <<EOF\n"> <LIT_CHARS "diff --git a/non-empty b/non-empty\n"> <LIT_CHARS "deleted file mode 100644\n"> <LIT_CHARS "index d95f3ad..0000000\n"> <LIT_CHARS "--- a/non-empty\n"> <LIT_CHARS "+++ /dev/null\n"> <LIT_CHARS "@@ -1 +0,0 @@\n"> <LIT_CHARS "-content\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "deleting a non-empty file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\techo content >non-empty &&\n"> <LIT_CHARS "\tgit add non-empty &&\n"> <LIT_CHARS "\tgit commit -m non-empty &&\n"> <LIT_CHARS "\trm non-empty &&\n"> <LIT_CHARS "\techo y | git add -p non-empty &&\n"> <LIT_CHARS "\tgit diff --cached >diff &&\n"> <LIT_CHARS "\ttest_cmp expected diff\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup expected">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >expected <<EOF\n"> <LIT_CHARS "diff --git a/empty b/empty\n"> <LIT_CHARS "deleted file mode 100644\n"> <LIT_CHARS "index e69de29..0000000\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "deleting an empty file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\t> empty &&\n"> <LIT_CHARS "\tgit add empty &&\n"> <LIT_CHARS "\tgit commit -m empty &&\n"> <LIT_CHARS "\trm empty &&\n"> <LIT_CHARS "\techo y | git add -p empty &&\n"> <LIT_CHARS "\tgit diff --cached >diff &&\n"> <LIT_CHARS "\ttest_cmp expected diff\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "split hunk setup">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\tfor i in 10 20 30 40 50 60\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\techo $i\n"> <LIT_CHARS "\tdone >test &&\n"> <LIT_CHARS "\tgit add test &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m test &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in 10 15 20 21 22 23 24 30 40 50 60\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\techo $i\n"> <LIT_CHARS "\tdone >test\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "split hunk \"add -p (edit)\"">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Split, say Edit and do nothing.  Then:\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t# 1. Broken version results in a patch that does not apply and\n"> <LIT_CHARS "\t# only takes [y/n] (edit again) so the first q is discarded\n"> <LIT_CHARS "\t# and then n attempts to discard the edit. Repeat q enough\n"> <LIT_CHARS "\t# times to get out.\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t# 2. Correct version applies the (not)edited version, and asks\n"> <LIT_CHARS "\t#    about the next hunk, against wich we say q and program\n"> <LIT_CHARS "\t#    exits.\n"> <LIT_CHARS "\tfor a in s e     q n q q\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\techo $a\n"> <LIT_CHARS "\tdone |\n"> <LIT_CHARS "\tEDITOR=: git add -p &&\n"> <LIT_CHARS "\tgit diff >actual &&\n"> <LIT_CHARS "\t! grep \"^+15\" actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "patch mode ignores unmerged entries">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\ttest_commit conflict &&\n"> <LIT_CHARS "\ttest_commit non-conflict &&\n"> <LIT_CHARS "\tgit checkout -b side &&\n"> <LIT_CHARS "\ttest_commit side conflict.t &&\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\ttest_commit master conflict.t &&\n"> <LIT_CHARS "\ttest_must_fail git merge side &&\n"> <LIT_CHARS "\techo changed >non-conflict.t &&\n"> <LIT_CHARS "\techo y | git add -p >output &&\n"> <LIT_CHARS "\t! grep a/conflict.t output &&\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t* Unmerged path conflict.t\n"> <LIT_CHARS "\tdiff --git a/non-conflict.t b/non-conflict.t\n"> <LIT_CHARS "\tindex f766221..5ea2ed4 100644\n"> <LIT_CHARS "\t--- a/non-conflict.t\n"> <LIT_CHARS "\t+++ b/non-conflict.t\n"> <LIT_CHARS "\t@@ -1 +1 @@\n"> <LIT_CHARS "\t-non-conflict\n"> <LIT_CHARS "\t+changed\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff --cached >diff &&\n"> <LIT_CHARS "\ttest_cmp expected diff\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)