(CommandList
  children: [
    (If
      arms: [
        (if_arm
          cond: [(C {(test_have_prereq)} {(MINGW)})]
          action: [
            (FuncDef
              name: sanitize_L
              body: 
                (BraceGroup
                  children: [
                    (Pipeline
                      children: [
                        (C {(echo)} {(DQ ($ VSub_Number '$1'))})
                        (C {(sed)} {(SQ <'sX\\(^-L\\|,\\)\\^\\?/X&\\\\;*Xg'>)})
                      ]
                      negated: F
                    )
                  ]
                  spids: [21]
                )
              spids: [16 20]
            )
          ]
          spids: [16777215 13]
        )
      ]
      else_action: [
        (FuncDef
          name: sanitize_L
          body: (BraceGroup children:[(C {(echo)} {(DQ ($ VSub_Number '$1'))})] spids:[49])
          spids: [44 48]
        )
      ]
      spids: [41 61]
    )
    (FuncDef
      name: check_count
      body: 
        (BraceGroup
          children: [
            (AndOr
              ops: [Op_DAmp Op_DAmp Op_DAmp Op_DAmp Op_DAmp Op_DAmp]
              children: [
                (Assignment
                  keyword: Assign_None
                  pairs: [(assign_pair lhs:(LhsName name:head) op:Equal rhs:{(EmptyPart)} spids:[72])]
                  spids: [72]
                )
                (Assignment
                  keyword: Assign_None
                  pairs: [(assign_pair lhs:(LhsName name:file) op:Equal rhs:{(SQ <file>)} spids:[77])]
                  spids: [77]
                )
                (Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (LhsName name:options)
                      op: Equal
                      rhs: {(EmptyPart)}
                      spids: [85]
                    )
                  ]
                  spids: [85]
                )
                (While
                  cond: [(C {(Lit_Other ':')})]
                  body: 
                    (DoGroup
                      children: [
                        (Case
                          to_match: {(DQ ($ VSub_Number '$1'))}
                          arms: [
                            (case_arm
                              pat_list: [{(-h)}]
                              action: [
                                (Sentence
                                  child: 
                                    (Assignment
                                      keyword: Assign_None
                                      pairs: [
                                        (assign_pair
                                          lhs: (LhsName name:head)
                                          op: Equal
                                          rhs: {(DQ ($ VSub_Number '$2'))}
                                          spids: [110]
                                        )
                                      ]
                                      spids: [110]
                                    )
                                  terminator: <Op_Semi ';'>
                                )
                                (Sentence
                                  child: (C {(shift)})
                                  terminator: <Op_Semi ';'>
                                )
                                (C {(shift)})
                              ]
                              spids: [107 108 121 16777215]
                            )
                            (case_arm
                              pat_list: [{(-f)}]
                              action: [
                                (Sentence
                                  child: 
                                    (Assignment
                                      keyword: Assign_None
                                      pairs: [
                                        (assign_pair
                                          lhs: (LhsName name:file)
                                          op: Equal
                                          rhs: {(DQ ($ VSub_Number '$2'))}
                                          spids: [127]
                                        )
                                      ]
                                      spids: [127]
                                    )
                                  terminator: <Op_Semi ';'>
                                )
                                (Sentence
                                  child: (C {(shift)})
                                  terminator: <Op_Semi ';'>
                                )
                                (C {(shift)})
                              ]
                              spids: [124 125 138 16777215]
                            )
                            (case_arm
                              pat_list: [{(-L) (Lit_Other '*')}]
                              action: [
                                (Sentence
                                  child: 
                                    (Assignment
                                      keyword: Assign_None
                                      pairs: [
                                        (assign_pair
                                          lhs: (LhsName name:options)
                                          op: Equal
                                          rhs: 
                                            {
                                              (DQ ($ VSub_Name '$options') (' ') 
                                                (CommandSubPart
                                                  command_list: 
                                                    (CommandList
                                                      children: [
                                                        (C {(sanitize_L)} {(DQ ($ VSub_Number '$1'))})
                                                      ]
                                                    )
                                                  left_token: <Left_CommandSub '$('>
                                                  spids: [149 155]
                                                )
                                              )
                                            }
                                          spids: [145]
                                        )
                                      ]
                                      spids: [145]
                                    )
                                  terminator: <Op_Semi ';'>
                                )
                                (C {(shift)})
                              ]
                              spids: [141 143 161 16777215]
                            )
                            (case_arm
                              pat_list: [{(-) (Lit_Other '*')}]
                              action: [
                                (Sentence
                                  child: 
                                    (Assignment
                                      keyword: Assign_None
                                      pairs: [
                                        (assign_pair
                                          lhs: (LhsName name:options)
                                          op: Equal
                                          rhs: 
                                            {
                                              (DQ ($ VSub_Name '$options') (' ') ($ VSub_Number '$1'))
                                            }
                                          spids: [168]
                                        )
                                      ]
                                      spids: [168]
                                    )
                                  terminator: <Op_Semi ';'>
                                )
                                (C {(shift)})
                              ]
                              spids: [164 166 178 16777215]
                            )
                            (case_arm
                              pat_list: [{(Lit_Other '*')}]
                              action: [(ControlFlow token:<ControlFlow_Break break>)]
                              spids: [181 182 186 16777215]
                            )
                          ]
                          spids: [98 104 189]
                        )
                      ]
                      spids: [95 192]
                    )
                )
                (SimpleCommand
                  words: [
                    {(echo)}
                    {
                      (DQ ($ VSub_Name '$PROG') (' ') ($ VSub_Name '$options') (' ') 
                        ($ VSub_Name '$file') (' ') ($ VSub_Name '$head')
                      )
                    }
                  ]
                  redirects: [(Redir op_id:Redir_GreatAnd fd:16777215 arg_word:{(4)} spids:[209])]
                )
                (SimpleCommand
                  words: [
                    {($ VSub_Name '$PROG')}
                    {($ VSub_Name '$options')}
                    {($ VSub_Name '$file')}
                    {($ VSub_Name '$head')}
                  ]
                  redirects: [(Redir op_id:Redir_Great fd:16777215 arg_word:{(actual)} spids:[223])]
                )
                (SimpleCommand
                  words: [
                    {(perl)}
                    {(-e)}
                    {
                      (SQ <'\n'> <'\t\tmy %expect = (@ARGV);\n'> 
                        <'\t\tmy %count = map { $_ => 0 } keys %expect;\n'> <'\t\twhile (<STDIN>) {\n'> <'\t\t\tif (/^[0-9a-f]+\\t\\(([^\\t]+)\\t/) {\n'> 
                        <'\t\t\t\tmy $author = $1;\n'> <'\t\t\t\tfor ($author) { s/^\\s*//; s/\\s*$//; }\n'> <'\t\t\t\t$count{$author}++;\n'> <'\t\t\t}\n'> 
                        <'\t\t}\n'> <'\t\tmy $bad = 0;\n'> <'\t\twhile (my ($author, $count) = each %count) {\n'> <'\t\t\tmy $ok;\n'> 
                        <'\t\t\tmy $value = 0;\n'> <'\t\t\t$value = $expect{$author} if defined $expect{$author};\n'> <'\t\t\tif ($value != $count) {\n'> 
                        <'\t\t\t\t$bad = 1;\n'> <'\t\t\t\t$ok = "bad";\n'> <'\t\t\t}\n'> <'\t\t\telse {\n'> <'\t\t\t\t$ok = "good";\n'> <'\t\t\t}\n'> 
                        <
'\t\t\tprint STDERR "Author $author (expected $value, attributed $count) $ok\\n";\n'
                        > <'\t\t}\n'> <'\t\texit($bad);\n'> <'\t'>
                      )
                    }
                    {(DQ ($ VSub_At '$@'))}
                  ]
                  redirects: [(Redir op_id:Redir_Less fd:16777215 arg_word:{(actual)} spids:[266])]
                )
              ]
            )
          ]
          spids: [69]
        )
      spids: [64 68]
    )
    (C {(test_expect_success)} {(SQ <'setup A lines'>)} 
      {
        (SQ <'\n'> <'\techo "1A quick brown fox jumps over the" >file &&\n'> 
          <'\techo "lazy dog" >>file &&\n'> <'\tgit add file &&\n'> <'\tGIT_AUTHOR_NAME="A" GIT_AUTHOR_EMAIL="A@test.git" \\\n'> 
          <'\tgit commit -a -m "Initial."\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame 1 author'>)} {(SQ <'\n'> <'\tcheck_count A 2\n'>)})
    (C {(test_expect_success)} {(SQ <'blame by tag objects'>)} 
      {
        (SQ <'\n'> <'\tgit tag -m "test tag" testTag &&\n'> 
          <'\tgit tag -m "test tag #2" testTag2 testTag &&\n'> <'\tcheck_count -h testTag A 2 &&\n'> <'\tcheck_count -h testTag2 A 2\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'setup B lines'>)} 
      {
        (SQ <'\n'> <'\techo "2A quick brown fox jumps over the" >>file &&\n'> 
          <'\techo "lazy dog" >>file &&\n'> <'\tGIT_AUTHOR_NAME="B" GIT_AUTHOR_EMAIL="B@test.git" \\\n'> <'\tgit commit -a -m "Second."\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame 2 authors'>)} {(SQ <'\n'> <'\tcheck_count A 2 B 2\n'>)})
    (C {(test_expect_success)} {(SQ <'setup B1 lines (branch1)'>)} 
      {
        (SQ <'\n'> <'\tgit checkout -b branch1 master &&\n'> 
          <'\techo "3A slow green fox jumps into the" >>file &&\n'> <'\techo "well." >>file &&\n'> <'\tGIT_AUTHOR_NAME="B1" GIT_AUTHOR_EMAIL="B1@test.git" \\\n'> 
          <'\tgit commit -a -m "Branch1-1"\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame 2 authors + 1 branch1 author'>)} 
      {(SQ <'\n'> <'\tcheck_count A 2 B 2 B1 2\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'setup B2 lines (branch2)'>)} 
      {
        (SQ <'\n'> <'\tgit checkout -b branch2 master &&\n'> 
          <'\tsed -e "s/2A quick brown/4A quick brown lazy dog/" <file >file.new &&\n'> <'\tmv file.new file &&\n'> <'\tGIT_AUTHOR_NAME="B2" GIT_AUTHOR_EMAIL="B2@test.git" \\\n'> 
          <'\tgit commit -a -m "Branch2-1"\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame 2 authors + 1 branch2 author'>)} 
      {(SQ <'\n'> <'\tcheck_count A 2 B 1 B2 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'merge branch1 & branch2'>)} {(SQ <'\n'> <'\tgit merge branch1\n'>)})
    (C {(test_expect_success)} {(SQ <'blame 2 authors + 2 merged-in authors'>)} 
      {(SQ <'\n'> <'\tcheck_count A 2 B 1 B1 2 B2 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame --first-parent blames merge for branch1'>)} 
      {(SQ <'\n'> <'\tcheck_count --first-parent A 2 B 1 "A U Thor" 2 B2 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame ancestor'>)} 
      {(SQ <'\n'> <'\tcheck_count -h master A 2 B 2\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame great-ancestor'>)} 
      {(SQ <'\n'> <'\tcheck_count -h master^ A 2\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'setup evil merge'>)} 
      {(SQ <'\n'> <'\techo "evil merge." >>file &&\n'> <'\tgit commit -a --amend\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame evil merge'>)} 
      {(SQ <'\n'> <'\tcheck_count A 2 B 1 B1 2 B2 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame huge graft'>)} 
      {
        (SQ <'\n'> <'\ttest_when_finished "git checkout branch2" &&\n'> 
          <'\ttest_when_finished "rm -f .git/info/grafts" &&\n'> <'\tgraft= &&\n'> <'\tfor i in 0 1 2\n'> <'\tdo\n'> <'\t\tfor j in 0 1 2 3 4 5 6 7 8 9\n'> <'\t\tdo\n'> 
          <'\t\t\tgit checkout --orphan "$i$j" &&\n'> <'\t\t\tprintf "%s\\n" "$i" "$j" >file &&\n'> <'\t\t\ttest_tick &&\n'> 
          <'\t\t\tGIT_AUTHOR_NAME=$i$j GIT_AUTHOR_EMAIL=$i$j@test.git \\\n'> <'\t\t\tgit commit -a -m "$i$j" &&\n'> <'\t\t\tcommit=$(git rev-parse --verify HEAD) &&\n'> 
          <'\t\t\tgraft="$graft$commit "\n'> <'\t\tdone\n'> <'\tdone &&\n'> <'\tprintf "%s " $graft >.git/info/grafts &&\n'> 
          <'\tcheck_count -h 00 01 1 10 1\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'setup incomplete line'>)} 
      {
        (SQ <'\n'> <'\techo "incomplete" | tr -d "\\\\012" >>file &&\n'> 
          <'\tGIT_AUTHOR_NAME="C" GIT_AUTHOR_EMAIL="C@test.git" \\\n'> <'\tgit commit -a -m "Incomplete"\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame incomplete line'>)} 
      {(SQ <'\n'> <'\tcheck_count A 2 B 1 B1 2 B2 1 "A U Thor" 1 C 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'setup edits'>)} 
      {
        (SQ <'\n'> <'\tmv file file.orig &&\n'> <'\t{\n'> <'\t\tcat file.orig &&\n'> <'\t\techo\n'> 
          <'\t} | sed -e "s/^3A/99/" -e "/^1A/d" -e "/^incomplete/d" >file &&\n'> <'\techo "incomplete" | tr -d "\\\\012" >>file &&\n'> 
          <'\tGIT_AUTHOR_NAME="D" GIT_AUTHOR_EMAIL="D@test.git" \\\n'> <'\tgit commit -a -m "edit"\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame edits'>)} 
      {(SQ <'\n'> <'\tcheck_count A 1 B 1 B1 1 B2 1 "A U Thor" 1 C 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'setup obfuscated email'>)} 
      {
        (SQ <'\n'> <'\techo "No robots allowed" >file.new &&\n'> <'\tcat file >>file.new &&\n'> 
          <'\tmv file.new file &&\n'> <'\tGIT_AUTHOR_NAME="E" GIT_AUTHOR_EMAIL="E at test dot git" \\\n'> 
          <'\tgit commit -a -m "norobots"\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame obfuscated email'>)} 
      {(SQ <'\n'> <'\tcheck_count A 1 B 1 B1 1 B2 1 "A U Thor" 1 C 1 D 1 E 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 1 (all)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L1 A 1 B 1 B1 1 B2 1 "A U Thor" 1 C 1 D 1 E 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L , (all)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L, A 1 B 1 B1 1 B2 1 "A U Thor" 1 C 1 D 1 E 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X (X to end)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L5 B1 1 C 1 D 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X, (X to end)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L5, B1 1 C 1 D 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ,Y (up to Y)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L,3 A 1 B2 1 E 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,X'>)} {(SQ <'\n'> <'\tcheck_count -L3,3 B2 1\n'>)})
    (C {(test_expect_success)} {(SQ <'blame -L X,Y'>)} 
      {(SQ <'\n'> <'\tcheck_count -L3,6 B 1 B1 1 B2 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L Y,X (undocumented)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L6,3 B 1 B1 1 B2 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L -X'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L-1 file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 0'>)} {(SQ <'\n'> <'\ttest_must_fail $PROG -L0 file\n'>)})
    (C {(test_expect_success)} {(SQ <'blame -L ,0'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L,0 file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ,+0'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L,+0 file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,+0'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L1,+0 file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,+1'>)} {(SQ <'\n'> <'\tcheck_count -L3,+1 B2 1\n'>)})
    (C {(test_expect_success)} {(SQ <'blame -L X,+N'>)} 
      {(SQ <'\n'> <'\tcheck_count -L3,+4 B 1 B1 1 B2 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ,-0'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L,-0 file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,-0'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L1,-0 file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,-1'>)} {(SQ <'\n'> <'\tcheck_count -L3,-1 B2 1\n'>)})
    (C {(test_expect_success)} {(SQ <'blame -L X,-N'>)} 
      {(SQ <'\n'> <'\tcheck_count -L6,-4 B 1 B1 1 B2 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/ (RE to end)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L/evil/ C 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/,/RE2/'>)} 
      {(SQ <'\n'> <'\tcheck_count -L/robot/,/green/ A 1 B 1 B2 1 D 1 E 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,/RE/'>)} 
      {(SQ <'\n'> <'\tcheck_count -L5,/evil/ B1 1 D 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/,Y'>)} 
      {(SQ <'\n'> <'\tcheck_count -L/99/,7 B1 1 D 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/,+N'>)} 
      {(SQ <'\n'> <'\tcheck_count -L/99/,+3 B1 1 D 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/,-N'>)} 
      {(SQ <'\n'> <'\tcheck_count -L/99/,-3 B 1 B2 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X (X == nlines)'>)} 
      {(SQ <'\n'> <'\tn=$(expr $(wc -l <file) + 1) &&\n'> <'\tcheck_count -L$n C 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X (X == nlines + 1)'>)} 
      {(SQ <'\n'> <'\tn=$(expr $(wc -l <file) + 2) &&\n'> <'\ttest_must_fail $PROG -L$n file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X (X > nlines)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L12345 file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ,Y (Y == nlines)'>)} 
      {
        (SQ <'\n'> <'\tn=$(expr $(wc -l <file) + 1) &&\n'> 
          <'\tcheck_count -L,$n A 1 B 1 B1 1 B2 1 "A U Thor" 1 C 1 D 1 E 1\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame -L ,Y (Y == nlines + 1)'>)} 
      {(SQ <'\n'> <'\tn=$(expr $(wc -l <file) + 2) &&\n'> <'\ttest_must_fail $PROG -L,$n file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ,Y (Y > nlines)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L,12345 file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L multiple (disjoint)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L2,3 -L6,7 A 1 B1 1 B2 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L multiple (disjoint: unordered)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L6,7 -L2,3 A 1 B1 1 B2 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L multiple (adjacent)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L2,3 -L4,5 A 1 B 1 B2 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L multiple (adjacent: unordered)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L4,5 -L2,3 A 1 B 1 B2 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L multiple (overlapping)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L2,4 -L3,5 A 1 B 1 B2 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L multiple (overlapping: unordered)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L3,5 -L2,4 A 1 B 1 B2 1 D 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L multiple (superset/subset)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L2,8 -L3,5 A 1 B 1 B1 1 B2 1 C 1 D 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L multiple (superset/subset: unordered)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L3,5 -L2,8 A 1 B 1 B1 1 B2 1 C 1 D 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/ (relative)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L3,3 -L/fox/ B1 1 B2 1 C 1 D 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/ (relative: no preceding range)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L/dog/ A 1 B 1 B1 1 B2 1 C 1 D 1 "A U Thor" 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/ (relative: adjacent)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L1,1 -L/dog/,+1 A 1 E 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/ (relative: not found)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L4,4 -L/dog/ file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L /RE/ (relative: end-of-file)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L, -L/$/ file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ^/RE/ (absolute)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L3,3 -L^/dog/,+2 A 1 B2 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ^/RE/ (absolute: no preceding range)'>)} 
      {(SQ <'\n'> <'\tcheck_count -L^/dog/,+2 A 1 B2 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ^/RE/ (absolute: not found)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L4,4 -L^/tambourine/ file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ^/RE/ (absolute: end-of-file)'>)} 
      {
        (SQ <'\n'> <'\tn=$(expr $(wc -l <file) + 1) &&\n'> 
          <'\tcheck_count -L$n -L^/$/,+2 A 1 C 1 E 1\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'setup -L :regex'>)} 
      {
        (SQ <'\n'> <'\ttr Q "\\\\t" >hello.c <<-\\EOF &&\n'> 
          <'\tint main(int argc, const char *argv[])\n'> <'\t{\n'> <'\tQputs("hello");\n'> <'\t}\n'> <'\tEOF\n'> <'\tgit add hello.c &&\n'> 
          <'\tGIT_AUTHOR_NAME="F" GIT_AUTHOR_EMAIL="F@test.git" \\\n'> <'\tgit commit -m "hello" &&\n'> <'\n'> <'\tmv hello.c hello.orig &&\n'> 
          <'\tsed -e "/}/ {x; s/$/Qputs(\\"goodbye\\");/; G;}" <hello.orig |\n'> <'\ttr Q "\\\\t" >hello.c &&\n'> <'\tGIT_AUTHOR_NAME="G" GIT_AUTHOR_EMAIL="G@test.git" \\\n'> 
          <'\tgit commit -a -m "goodbye" &&\n'> <'\n'> <'\tmv hello.c hello.orig &&\n'> <'\techo "#include <stdio.h>" >hello.c &&\n'> 
          <'\tcat hello.orig >>hello.c &&\n'> <'\ttr Q "\\\\t" >>hello.c <<-\\EOF &&\n'> <'\tvoid mail()\n'> <'\t{\n'> <'\tQputs("mail");\n'> <'\t}\n'> 
          <'\tEOF\n'> <'\tGIT_AUTHOR_NAME="H" GIT_AUTHOR_EMAIL="H@test.git" \\\n'> <'\tgit commit -a -m "mail"\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame -L :literal'>)} 
      {(SQ <'\n'> <'\tcheck_count -f hello.c -L:main F 4 G 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L :regex'>)} 
      {(SQ <'\n'> <'\tcheck_count -f hello.c "-L:m[a-z][a-z]l" H 4\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L :nomatch'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L:nomatch hello.c\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L :RE (relative)'>)} 
      {(SQ <'\n'> <'\tcheck_count -f hello.c -L3,3 -L:ma.. F 1 H 4\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L :RE (relative: no preceding range)'>)} 
      {(SQ <'\n'> <'\tcheck_count -f hello.c -L:ma.. F 4 G 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L :RE (relative: not found)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L3,3 -L:tambourine hello.c\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L :RE (relative: end-of-file)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L, -L:main hello.c\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ^:RE (absolute)'>)} 
      {(SQ <'\n'> <'\tcheck_count -f hello.c -L3,3 -L^:ma.. F 4 G 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ^:RE (absolute: no preceding range)'>)} 
      {(SQ <'\n'> <'\tcheck_count -f hello.c -L^:ma.. F 4 G 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ^:RE (absolute: not found)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L4,4 -L^:tambourine hello.c\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ^:RE (absolute: end-of-file)'>)} 
      {
        (SQ <'\n'> <'\tn=$(printf "%d" $(wc -l <hello.c)) &&\n'> 
          <'\tcheck_count -f hello.c -L$n -L^:ma.. F 4 G 1 H 1\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'setup incremental'>)} 
      {
        (SQ <'\n'> <'\t(\n'> <'\tGIT_AUTHOR_NAME=I &&\n'> <'\texport GIT_AUTHOR_NAME &&\n'> 
          <'\tGIT_AUTHOR_EMAIL=I@test.git &&\n'> <'\texport GIT_AUTHOR_EMAIL &&\n'> <'\t>incremental &&\n'> <'\tgit add incremental &&\n'> 
          <'\tgit commit -m "step 0" &&\n'> <'\tprintf "partial" >>incremental &&\n'> <'\tgit commit -a -m "step 0.5" &&\n'> 
          <'\techo >>incremental &&\n'> <'\tgit commit -a -m "step 1"\n'> <'\t)\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'blame empty'>)} 
      {(SQ <'\n'> <'\tcheck_count -h HEAD^^ -f incremental\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 0 empty'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L0 incremental HEAD^^\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 1 empty'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L1 incremental HEAD^^\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 2 empty'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L2 incremental HEAD^^\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame half'>)} 
      {(SQ <'\n'> <'\tcheck_count -h HEAD^ -f incremental I 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 0 half'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L0 incremental HEAD^\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 1 half'>)} 
      {(SQ <'\n'> <'\tcheck_count -h HEAD^ -f incremental -L1 I 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 2 half'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L2 incremental HEAD^\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 3 half'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L3 incremental HEAD^\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame full'>)} {(SQ <'\n'> <'\tcheck_count -f incremental I 1\n'>)})
    (C {(test_expect_success)} {(SQ <'blame -L 0 full'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L0 incremental\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 1 full'>)} 
      {(SQ <'\n'> <'\tcheck_count -f incremental -L1 I 1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 2 full'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L2 incremental\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L 3 full'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L3 incremental\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L'>)} {(SQ <'\n'> <'\ttest_must_fail $PROG -L file\n'>)})
    (C {(test_expect_success)} {(SQ <'blame -L X,+'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L1,+ file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,-'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L1,- file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X (non-numeric X)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -LX file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,Y (non-numeric Y)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L1,Y file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,+N (non-numeric N)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L1,+N file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L X,-N (non-numeric N)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L1,-N file\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'blame -L ,^/RE/'>)} 
      {(SQ <'\n'> <'\ttest_must_fail $PROG -L1,^/99/ file\n'>)}
    )
  ]
)