(List (= scope= flags=0 words=[] bindings=[('test_description', {[SQ ]})]) (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}) (AndOr OP_AND_IF (Com {[LIT_CHARS write_script]} {[DQ [LIT_CHARS check-for-diff]]} < (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "grep '^diff --git' \"$1\" >out\n"] [LIT_CHARS "exit 0\n"]} 0), > ) (Com {[LIT_CHARS test_set_editor]} {[DQ [VarSub PWD][LIT_CHARS /check-for-diff]]}) ) (Com {[LIT_CHARS cat]} < (FilenameRedirectNode filename={[LIT_CHARS message]} "> 1), (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "subject\n"] [LIT_CHARS "\n"] [LIT_CHARS "body\n"]} 0), > ) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ file &&\n"> ]}) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ ]}) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ file &&\n"> ]}) (FunctionDef check_message [] (AndOr OP_AND_IF (Com {[LIT_CHARS git]} {[LIT_CHARS log]} {[LIT_CHARS -1]} {[LIT_CHARS --pretty] [LIT_OTHER "="] [LIT_CHARS format] [LIT_OTHER ":"] [LIT_OTHER "%"] [LIT_CHARS s] [LIT_OTHER "%"] [LIT_CHARS n] [LIT_OTHER "%"] [LIT_CHARS n] [LIT_OTHER "%"] [LIT_CHARS b]} < (FilenameRedirectNode filename={[LIT_CHARS actual]} "> 1), > ) (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub 1]]} {[LIT_CHARS actual]}) ) ) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ ]}) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ ]}) (Com {[LIT_CHARS cat]} < (FilenameRedirectNode filename={[LIT_CHARS diff]} "> 1), (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "This is an example commit message that contains a diff.\n"] [LIT_CHARS "\n"] [LIT_CHARS "diff --git c/file i/file\n"] [LIT_CHARS "new file mode 100644\n"] [LIT_CHARS "index 0000000..f95c11d\n"] [LIT_CHARS "--- /dev/null\n"] [LIT_CHARS "+++ i/file\n"] [LIT_CHARS "@@ -0,0 +1 @@\n"] [LIT_CHARS "+this is some content\n"]} 0), > ) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ ]}) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ ]}) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ >file &&\n"> err\n"> ]}) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ err\n"> ]}) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ actual &&\n"> ]}) (Com {[LIT_CHARS test_expect_success]} {[SQ ]} {[SQ file\n">]}) (For i [{[LIT_CHARS true]}, {[LIT_CHARS 1]}]) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "commit.verbose="][VarSub i][LIT_CHARS " and --verbose omitted"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tgit -c commit.verbose="][VarSub i][LIT_CHARS " commit --amend &&\n"][LIT_CHARS "\t\ttest_line_count = 1 out\n"][LIT_CHARS "\t"]]}) ) (For i [{[LIT_CHARS false]}, {[LIT_CHARS -2]}, {[LIT_CHARS -1]}, {[LIT_CHARS 0]}]) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "commit.verbose="][VarSub i][LIT_CHARS " and --verbose omitted"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tgit -c commit.verbose="][VarSub i][LIT_CHARS " commit --amend &&\n"][LIT_CHARS "\t\ttest_line_count = 0 out\n"][LIT_CHARS "\t"]]}) ) (For i [{[LIT_CHARS 2]}, {[LIT_CHARS 3]}]) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "commit.verbose="][VarSub i][LIT_CHARS " and --verbose omitted"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tgit -c commit.verbose="][VarSub i][LIT_CHARS " commit --amend &&\n"][LIT_CHARS "\t\ttest_line_count = 2 out\n"][LIT_CHARS "\t"]]}) ) (For i [{[LIT_CHARS true]}, {[LIT_CHARS false]}, {[LIT_CHARS -2]}, {[LIT_CHARS -1]}, {[LIT_CHARS 0]}, {[LIT_CHARS 1]}, {[LIT_CHARS 2]}, {[LIT_CHARS 3]}]) (List (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "commit.verbose="][VarSub i][LIT_CHARS " and --verbose"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tgit -c commit.verbose="][VarSub i][LIT_CHARS " commit --amend --verbose &&\n"][LIT_CHARS "\t\ttest_line_count = 1 out\n"][LIT_CHARS "\t"]]}) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "commit.verbose="][VarSub i][LIT_CHARS " and --no-verbose"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tgit -c commit.verbose="][VarSub i][LIT_CHARS " commit --amend --no-verbose &&\n"][LIT_CHARS "\t\ttest_line_count = 0 out\n"][LIT_CHARS "\t"]]}) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "commit.verbose="][VarSub i][LIT_CHARS " and -v -v"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tgit -c commit.verbose="][VarSub i][LIT_CHARS " commit --amend -v -v &&\n"][LIT_CHARS "\t\ttest_line_count = 2 out\n"][LIT_CHARS "\t"]]}) ) ) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "status ignores commit.verbose=true"]]} {[SQ actual &&\n"> ]}) (Com {[LIT_CHARS test_done]}) )