(List
  (FunctionDef check_count []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('head', {[SQ ]})])
      (Case to_match={[DQ [VarSub 1]]}, pat_word_list=[[{[LIT_CHARS -h]}]]
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('head', {[DQ [VarSub 2]]})])
          (Com {[LIT_CHARS shift]}          )
          (Com {[LIT_CHARS shift]}          )
        )
      )
      (Com {[LIT_CHARS echo]} {[DQ [VarSub PROG][LIT_CHARS " file "][VarSub head]]}
        <
        (DescriptorRedirectNode target={[LIT_CHARS 4]} <REDIR_GREATAND ">&"> 1),
        >
      )
      (AndOr OP_OR_IF
        (Com {[VarSub PROG]} {[LIT_CHARS file]} {[VarSub head]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS .result]} <REDIR_GREAT ">"> 1),
          >
        )
        (Com {[LIT_CHARS return]} {[LIT_CHARS 1]}        )
      )
      (Pipeline
        (Com {[LIT_CHARS cat]} {[LIT_CHARS .result]}        )
        (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 @]]}        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare reference tree">]} {[SQ <LIT_CHARS "echo \"1A quick brown fox jumps over the\" >file &&\n"> <LIT_CHARS "     echo \"lazy dog\" >>file &&\n"> <LIT_CHARS "     git add file &&\n"> <LIT_CHARS "     GIT_AUTHOR_NAME=\"A\" GIT_AUTHOR_EMAIL=\"A@test.git\" git commit -a -m \"Initial.\"">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check all lines blamed on A">]} {[SQ <LIT_CHARS "check_count A 2">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Setup new lines blamed on B">]} {[SQ <LIT_CHARS "echo \"2A quick brown fox jumps over the\" >>file &&\n"> <LIT_CHARS "     echo \"lazy dog\" >> file &&\n"> <LIT_CHARS "     GIT_AUTHOR_NAME=\"B\" GIT_AUTHOR_EMAIL=\"B@test.git\" git commit -a -m \"Second.\"">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Two lines blamed on A, two on B">]} {[SQ <LIT_CHARS "check_count A 2 B 2">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge-setup part 1">]} {[SQ <LIT_CHARS "git checkout -b branch1 master &&\n"> <LIT_CHARS "     echo \"3A slow green fox jumps into the\" >> file &&\n"> <LIT_CHARS "     echo \"well.\" >> file &&\n"> <LIT_CHARS "     GIT_AUTHOR_NAME=\"B1\" GIT_AUTHOR_EMAIL=\"B1@test.git\" git commit -a -m \"Branch1-1\"">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Two lines blamed on A, two on B, two on B1">]} {[SQ <LIT_CHARS "check_count A 2 B 2 B1 2">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge-setup part 2">]} {[SQ <LIT_CHARS "git checkout -b branch2 master &&\n"> <LIT_CHARS "     sed -e \"s/2A quick brown/4A quick brown lazy dog/\" < file > file.new &&\n"> <LIT_CHARS "     mv file.new file &&\n"> <LIT_CHARS "     GIT_AUTHOR_NAME=\"B2\" GIT_AUTHOR_EMAIL=\"B2@test.git\" git commit -a -m \"Branch2-1\"">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Two lines blamed on A, one on B, one on B2">]} {[SQ <LIT_CHARS "check_count A 2 B 1 B2 1">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge-setup part 3">]} {[SQ <LIT_CHARS "git pull . branch1">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Two lines blamed on A, one on B, two on B1, one on B2">]} {[SQ <LIT_CHARS "check_count A 2 B 1 B1 2 B2 1">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Annotating an old revision works">]} {[SQ <LIT_CHARS "check_count -h master A 2 B 2">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Annotating an old revision works">]} {[SQ <LIT_CHARS "check_count -h master^ A 2">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge-setup part 4">]} {[SQ <LIT_CHARS "echo \"evil merge.\" >>file &&\n"> <LIT_CHARS "     git commit -a --amend">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Two lines blamed on A, one on B, two on B1, one on B2, one on A U Thor">]} {[SQ <LIT_CHARS "check_count A 2 B 1 B1 2 B2 1 \"A U Thor\" 1">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "an incomplete line added">]} {[SQ <LIT_CHARS "echo \"incomplete\" | tr -d \"\\\\012\" >>file &&\n"> <LIT_CHARS "    GIT_AUTHOR_NAME=\"C\" GIT_AUTHOR_EMAIL=\"C@test.git\" git commit -a -m \"Incomplete\"">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "With incomplete lines.">]} {[SQ <LIT_CHARS "check_count A 2 B 1 B1 2 B2 1 \"A U Thor\" 1 C 1">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "some edit">]} {[SQ <LIT_CHARS "mv file file.orig &&\n"> <LIT_CHARS "    {\n"> <LIT_CHARS "\tcat file.orig &&\n"> <LIT_CHARS "\techo\n"> <LIT_CHARS "    } | sed -e \"s/^3A/99/\" -e \"/^1A/d\" -e \"/^incomplete/d\" > file &&\n"> <LIT_CHARS "    echo \"incomplete\" | tr -d \"\\\\012\" >>file &&\n"> <LIT_CHARS "    GIT_AUTHOR_NAME=\"D\" GIT_AUTHOR_EMAIL=\"D@test.git\" git commit -a -m \"edit\"">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "some edit">]} {[SQ <LIT_CHARS "check_count A 1 B 1 B1 1 B2 1 \"A U Thor\" 1 C 1 D 1">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "an obfuscated email added">]} {[SQ <LIT_CHARS "echo \"No robots allowed\" > file.new &&\n"> <LIT_CHARS "     cat file >> file.new &&\n"> <LIT_CHARS "     mv file.new file &&\n"> <LIT_CHARS "     GIT_AUTHOR_NAME=\"E\" GIT_AUTHOR_EMAIL=\"E at test dot git\" git commit -a -m \"norobots\"">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "obfuscated email parsed">]} {[SQ <LIT_CHARS "check_count A 1 B 1 B1 1 B2 1 \"A U Thor\" 1 C 1 D 1 E 1">]}  )
)