(List
  (If
    (Com {[LIT_CHARS test_have_prereq]} {[LIT_CHARS MINGW]})
    (FunctionDef sanitize_L []
      (Pipeline
        (Com {[LIT_CHARS echo]} {[DQ [VarSub 1]]})
        (Com {[LIT_CHARS sed]} {[SQ <LIT_CHARS "sX\\(^-L\\|,\\)\\^\\?/X&\\\\;*Xg">]})
      )
    )
    (ElseTrue)
    (FunctionDef sanitize_L []
      (Com {[LIT_CHARS echo]} {[DQ [VarSub 1]]})
    )
  )
  (FunctionDef check_count []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('head', {[SQ ]})])
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('file', {[SQ <LIT_CHARS file>]})])
        (AndOr OP_AND_IF
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('options', {[SQ ]})])
          (AndOr OP_AND_IF
            (While
              (Com {[LIT_OTHER ":"]})
              (Case to_match={[DQ [VarSub 1]]}, pat_word_list=[[{[LIT_CHARS -h]}], [{[LIT_CHARS -f]}], [{[LIT_CHARS -L] [LIT_OTHER "*"]}], [{[LIT_CHARS -] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"]}]]
                (List
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('head', {[DQ [VarSub 2]]})])
                  (Com {[LIT_CHARS shift]})
                  (Com {[LIT_CHARS shift]})
                )
                (List
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('file', {[DQ [VarSub 2]]})])
                  (Com {[LIT_CHARS shift]})
                  (Com {[LIT_CHARS shift]})
                )
                (List
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('options', {[DQ [VarSub options][LIT_CHARS " "][ComSub (Com {[LIT_CHARS sanitize_L]} {[DQ [VarSub 1]]})]]})])
                  (Com {[LIT_CHARS shift]})
                )
                (List
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('options', {[DQ [VarSub options][LIT_CHARS " "][VarSub 1]]})])
                  (Com {[LIT_CHARS shift]})
                )
                (Com {[LIT_CHARS break]})
              )
            )
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS echo]} {[DQ [VarSub PROG][LIT_CHARS " "][VarSub options][LIT_CHARS " "][VarSub file][LIT_CHARS " "][VarSub head]]}
                <
                (DescriptorRedirectNode target={[LIT_CHARS 4]} <REDIR_GREATAND ">&"> 1),
                >
              )
              (AndOr OP_AND_IF
                (Com {[VarSub PROG]} {[VarSub options]} {[VarSub file]} {[VarSub head]}
                  <
                  (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
                  >
                )
                (Com {[LIT_CHARS perl]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tmy %expect = (@ARGV);\n"> <LIT_CHARS "\t\tmy %count = map { $_ => 0 } keys %expect;\n"> <LIT_CHARS "\t\twhile (<STDIN>) {\n"> <LIT_CHARS "\t\t\tif (/^[0-9a-f]+\\t\\(([^\\t]+)\\t/) {\n"> <LIT_CHARS "\t\t\t\tmy $author = $1;\n"> <LIT_CHARS "\t\t\t\tfor ($author) { s/^\\s*//; s/\\s*$//; }\n"> <LIT_CHARS "\t\t\t\t$count{$author}++;\n"> <LIT_CHARS "\t\t\t}\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t\tmy $bad = 0;\n"> <LIT_CHARS "\t\twhile (my ($author, $count) = each %count) {\n"> <LIT_CHARS "\t\t\tmy $ok;\n"> <LIT_CHARS "\t\t\tmy $value = 0;\n"> <LIT_CHARS "\t\t\t$value = $expect{$author} if defined $expect{$author};\n"> <LIT_CHARS "\t\t\tif ($value != $count) {\n"> <LIT_CHARS "\t\t\t\t$bad = 1;\n"> <LIT_CHARS "\t\t\t\t$ok = \"bad\";\n"> <LIT_CHARS "\t\t\t}\n"> <LIT_CHARS "\t\t\telse {\n"> <LIT_CHARS "\t\t\t\t$ok = \"good\";\n"> <LIT_CHARS "\t\t\t}\n"> <LIT_CHARS "\t\t\tprint STDERR \"Author $author (expected $value, attributed $count) $ok\\n\";\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t\texit($bad);\n"> <LIT_CHARS "\t">]} {[DQ [VarSub @]]}
                  <
                  (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_LESS "<"> 0),
                  >
                )
              )
            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup A lines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"1A quick brown fox jumps over the\" >file &&\n"> <LIT_CHARS "\techo \"lazy dog\" >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"A\" GIT_AUTHOR_EMAIL=\"A@test.git\" \\\n"> <LIT_CHARS "\tgit commit -a -m \"Initial.\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame 1 author">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count A 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame by tag objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit tag -m \"test tag\" testTag &&\n"> <LIT_CHARS "\tgit tag -m \"test tag #2\" testTag2 testTag &&\n"> <LIT_CHARS "\tcheck_count -h testTag A 2 &&\n"> <LIT_CHARS "\tcheck_count -h testTag2 A 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup B lines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"2A quick brown fox jumps over the\" >>file &&\n"> <LIT_CHARS "\techo \"lazy dog\" >>file &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"B\" GIT_AUTHOR_EMAIL=\"B@test.git\" \\\n"> <LIT_CHARS "\tgit commit -a -m \"Second.\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame 2 authors">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count A 2 B 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup B1 lines (branch1)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b branch1 master &&\n"> <LIT_CHARS "\techo \"3A slow green fox jumps into the\" >>file &&\n"> <LIT_CHARS "\techo \"well.\" >>file &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"B1\" GIT_AUTHOR_EMAIL=\"B1@test.git\" \\\n"> <LIT_CHARS "\tgit commit -a -m \"Branch1-1\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame 2 authors + 1 branch1 author">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count A 2 B 2 B1 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup B2 lines (branch2)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b branch2 master &&\n"> <LIT_CHARS "\tsed -e \"s/2A quick brown/4A quick brown lazy dog/\" <file >file.new &&\n"> <LIT_CHARS "\tmv file.new file &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"B2\" GIT_AUTHOR_EMAIL=\"B2@test.git\" \\\n"> <LIT_CHARS "\tgit commit -a -m \"Branch2-1\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame 2 authors + 1 branch2 author">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count A 2 B 1 B2 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge branch1 & branch2">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit merge branch1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame 2 authors + 2 merged-in authors">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count A 2 B 1 B1 2 B2 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame --first-parent blames merge for branch1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count --first-parent A 2 B 1 \"A U Thor\" 2 B2 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame ancestor">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -h master A 2 B 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame great-ancestor">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -h master^ A 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup evil merge">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"evil merge.\" >>file &&\n"> <LIT_CHARS "\tgit commit -a --amend\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame evil merge">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count A 2 B 1 B1 2 B2 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame huge graft">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git checkout branch2\" &&\n"> <LIT_CHARS "\ttest_when_finished \"rm -f .git/info/grafts\" &&\n"> <LIT_CHARS "\tgraft= &&\n"> <LIT_CHARS "\tfor i in 0 1 2\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\tfor j in 0 1 2 3 4 5 6 7 8 9\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\tgit checkout --orphan \"$i$j\" &&\n"> <LIT_CHARS "\t\t\tprintf \"%s\\n\" \"$i\" \"$j\" >file &&\n"> <LIT_CHARS "\t\t\ttest_tick &&\n"> <LIT_CHARS "\t\t\tGIT_AUTHOR_NAME=$i$j GIT_AUTHOR_EMAIL=$i$j@test.git \\\n"> <LIT_CHARS "\t\t\tgit commit -a -m \"$i$j\" &&\n"> <LIT_CHARS "\t\t\tcommit=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\t\t\tgraft=\"$graft$commit \"\n"> <LIT_CHARS "\t\tdone\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tprintf \"%s \" $graft >.git/info/grafts &&\n"> <LIT_CHARS "\tcheck_count -h 00 01 1 10 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup incomplete line">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"incomplete\" | tr -d \"\\\\012\" >>file &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"C\" GIT_AUTHOR_EMAIL=\"C@test.git\" \\\n"> <LIT_CHARS "\tgit commit -a -m \"Incomplete\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame incomplete line">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count A 2 B 1 B1 2 B2 1 \"A U Thor\" 1 C 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup edits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmv file file.orig &&\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tcat file.orig &&\n"> <LIT_CHARS "\t\techo\n"> <LIT_CHARS "\t} | sed -e \"s/^3A/99/\" -e \"/^1A/d\" -e \"/^incomplete/d\" >file &&\n"> <LIT_CHARS "\techo \"incomplete\" | tr -d \"\\\\012\" >>file &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"D\" GIT_AUTHOR_EMAIL=\"D@test.git\" \\\n"> <LIT_CHARS "\tgit commit -a -m \"edit\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame edits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count A 1 B 1 B1 1 B2 1 \"A U Thor\" 1 C 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup obfuscated email">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"No robots allowed\" >file.new &&\n"> <LIT_CHARS "\tcat file >>file.new &&\n"> <LIT_CHARS "\tmv file.new file &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"E\" GIT_AUTHOR_EMAIL=\"E at test dot git\" \\\n"> <LIT_CHARS "\tgit commit -a -m \"norobots\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame obfuscated email">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count A 1 B 1 B1 1 B2 1 \"A U Thor\" 1 C 1 D 1 E 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 1 (all)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L1 A 1 B 1 B1 1 B2 1 \"A U Thor\" 1 C 1 D 1 E 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L , (all)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L, A 1 B 1 B1 1 B2 1 \"A U Thor\" 1 C 1 D 1 E 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X (X to end)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L5 B1 1 C 1 D 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X, (X to end)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L5, B1 1 C 1 D 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ,Y (up to Y)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L,3 A 1 B2 1 E 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,X">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L3,3 B2 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,Y">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L3,6 B 1 B1 1 B2 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L Y,X (undocumented)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L6,3 B 1 B1 1 B2 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L -X">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L-1 file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 0">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L0 file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ,0">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L,0 file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ,+0">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L,+0 file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,+0">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L1,+0 file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,+1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L3,+1 B2 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,+N">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L3,+4 B 1 B1 1 B2 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ,-0">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L,-0 file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,-0">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L1,-0 file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,-1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L3,-1 B2 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,-N">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L6,-4 B 1 B1 1 B2 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/ (RE to end)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L/evil/ C 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/,/RE2/">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L/robot/,/green/ A 1 B 1 B2 1 D 1 E 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,/RE/">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L5,/evil/ B1 1 D 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/,Y">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L/99/,7 B1 1 D 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/,+N">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L/99/,+3 B1 1 D 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/,-N">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L/99/,-3 B 1 B2 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X (X == nlines)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tn=$(expr $(wc -l <file) + 1) &&\n"> <LIT_CHARS "\tcheck_count -L$n C 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X (X == nlines + 1)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tn=$(expr $(wc -l <file) + 2) &&\n"> <LIT_CHARS "\ttest_must_fail $PROG -L$n file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X (X > nlines)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L12345 file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ,Y (Y == nlines)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tn=$(expr $(wc -l <file) + 1) &&\n"> <LIT_CHARS "\tcheck_count -L,$n A 1 B 1 B1 1 B2 1 \"A U Thor\" 1 C 1 D 1 E 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ,Y (Y == nlines + 1)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tn=$(expr $(wc -l <file) + 2) &&\n"> <LIT_CHARS "\ttest_must_fail $PROG -L,$n file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ,Y (Y > nlines)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L,12345 file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L multiple (disjoint)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L2,3 -L6,7 A 1 B1 1 B2 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L multiple (disjoint: unordered)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L6,7 -L2,3 A 1 B1 1 B2 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L multiple (adjacent)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L2,3 -L4,5 A 1 B 1 B2 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L multiple (adjacent: unordered)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L4,5 -L2,3 A 1 B 1 B2 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L multiple (overlapping)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L2,4 -L3,5 A 1 B 1 B2 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L multiple (overlapping: unordered)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L3,5 -L2,4 A 1 B 1 B2 1 D 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L multiple (superset/subset)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L2,8 -L3,5 A 1 B 1 B1 1 B2 1 C 1 D 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L multiple (superset/subset: unordered)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L3,5 -L2,8 A 1 B 1 B1 1 B2 1 C 1 D 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/ (relative)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L3,3 -L/fox/ B1 1 B2 1 C 1 D 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/ (relative: no preceding range)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L/dog/ A 1 B 1 B1 1 B2 1 C 1 D 1 \"A U Thor\" 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/ (relative: adjacent)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L1,1 -L/dog/,+1 A 1 E 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/ (relative: not found)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L4,4 -L/dog/ file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L /RE/ (relative: end-of-file)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L, -L/$/ file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ^/RE/ (absolute)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L3,3 -L^/dog/,+2 A 1 B2 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ^/RE/ (absolute: no preceding range)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -L^/dog/,+2 A 1 B2 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ^/RE/ (absolute: not found)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L4,4 -L^/tambourine/ file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ^/RE/ (absolute: end-of-file)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tn=$(expr $(wc -l <file) + 1) &&\n"> <LIT_CHARS "\tcheck_count -L$n -L^/$/,+2 A 1 C 1 E 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup -L :regex">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttr Q \"\\\\t\" >hello.c <<-\\EOF &&\n"> <LIT_CHARS "\tint main(int argc, const char *argv[])\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\tQputs(\"hello\");\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit add hello.c &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"F\" GIT_AUTHOR_EMAIL=\"F@test.git\" \\\n"> <LIT_CHARS "\tgit commit -m \"hello\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmv hello.c hello.orig &&\n"> <LIT_CHARS "\tsed -e \"/}/ {x; s/$/Qputs(\\\"goodbye\\\");/; G;}\" <hello.orig |\n"> <LIT_CHARS "\ttr Q \"\\\\t\" >hello.c &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"G\" GIT_AUTHOR_EMAIL=\"G@test.git\" \\\n"> <LIT_CHARS "\tgit commit -a -m \"goodbye\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmv hello.c hello.orig &&\n"> <LIT_CHARS "\techo \"#include <stdio.h>\" >hello.c &&\n"> <LIT_CHARS "\tcat hello.orig >>hello.c &&\n"> <LIT_CHARS "\ttr Q \"\\\\t\" >>hello.c <<-\\EOF &&\n"> <LIT_CHARS "\tvoid mail()\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\tQputs(\"mail\");\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"H\" GIT_AUTHOR_EMAIL=\"H@test.git\" \\\n"> <LIT_CHARS "\tgit commit -a -m \"mail\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L :literal">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -f hello.c -L:main F 4 G 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L :regex">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -f hello.c \"-L:m[a-z][a-z]l\" H 4\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L :nomatch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L:nomatch hello.c\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L :RE (relative)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -f hello.c -L3,3 -L:ma.. F 1 H 4\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L :RE (relative: no preceding range)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -f hello.c -L:ma.. F 4 G 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L :RE (relative: not found)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L3,3 -L:tambourine hello.c\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L :RE (relative: end-of-file)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L, -L:main hello.c\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ^:RE (absolute)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -f hello.c -L3,3 -L^:ma.. F 4 G 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ^:RE (absolute: no preceding range)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -f hello.c -L^:ma.. F 4 G 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ^:RE (absolute: not found)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L4,4 -L^:tambourine hello.c\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ^:RE (absolute: end-of-file)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tn=$(printf \"%d\" $(wc -l <hello.c)) &&\n"> <LIT_CHARS "\tcheck_count -f hello.c -L$n -L^:ma.. F 4 G 1 H 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup incremental">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=I &&\n"> <LIT_CHARS "\texport GIT_AUTHOR_NAME &&\n"> <LIT_CHARS "\tGIT_AUTHOR_EMAIL=I@test.git &&\n"> <LIT_CHARS "\texport GIT_AUTHOR_EMAIL &&\n"> <LIT_CHARS "\t>incremental &&\n"> <LIT_CHARS "\tgit add incremental &&\n"> <LIT_CHARS "\tgit commit -m \"step 0\" &&\n"> <LIT_CHARS "\tprintf \"partial\" >>incremental &&\n"> <LIT_CHARS "\tgit commit -a -m \"step 0.5\" &&\n"> <LIT_CHARS "\techo >>incremental &&\n"> <LIT_CHARS "\tgit commit -a -m \"step 1\"\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame empty">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -h HEAD^^ -f incremental\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 0 empty">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L0 incremental HEAD^^\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 1 empty">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L1 incremental HEAD^^\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 2 empty">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L2 incremental HEAD^^\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame half">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -h HEAD^ -f incremental I 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 0 half">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L0 incremental HEAD^\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 1 half">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -h HEAD^ -f incremental -L1 I 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 2 half">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L2 incremental HEAD^\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 3 half">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L3 incremental HEAD^\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame full">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -f incremental I 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 0 full">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L0 incremental\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 1 full">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_count -f incremental -L1 I 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 2 full">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L2 incremental\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L 3 full">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L3 incremental\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,+">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L1,+ file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,-">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L1,- file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X (non-numeric X)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -LX file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,Y (non-numeric Y)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L1,Y file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,+N (non-numeric N)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L1,+N file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L X,-N (non-numeric N)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L1,-N file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blame -L ,^/RE/">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail $PROG -L1,^/99/ file\n">]})
)