(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[DQ [LIT_CHARS "git hash-object"]]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef echo_without_newline []
    (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "%s">]} {[DQ [VarSub *]]})
  )
  (FunctionDef test_blob_does_not_exist []
    (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blob does not exist in database">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\ttest_must_fail git cat-file blob "][VarSub 1][LIT_CHARS "\n"][LIT_CHARS "\t"]]})
  )
  (FunctionDef test_blob_exists []
    (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blob exists in database">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tgit cat-file blob "][VarSub 1][LIT_CHARS "\n"][LIT_CHARS "\t"]]})
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('hello_content', {[DQ [LIT_CHARS "Hello World"]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('hello_sha1', {[LIT_CHARS 5e1c309dae7f45e0f39b1bf3ac3cd9db12e7d689]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('example_content', {[DQ [LIT_CHARS "This is an example"]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('example_sha1', {[LIT_CHARS ddd3f836d3e3fbb7ae289aa9ae83536f76956399]})])
  (FunctionDef setup_repo []
    (List
      (Com {[LIT_CHARS echo_without_newline]} {[DQ [VarSub hello_content]]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS hello]} <REDIR_GREAT ">"> 1),
        >
      )
      (Com {[LIT_CHARS echo_without_newline]} {[DQ [VarSub example_content]]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS example]} <REDIR_GREAT ">"> 1),
        >
      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_repo', {[LIT_CHARS test]})])
  (FunctionDef push_repo []
    (List
      (Com {[LIT_CHARS test_create_repo]} {[VarSub test_repo]})
      (Com {[LIT_CHARS cd]} {[VarSub test_repo]})
      (Com {[LIT_CHARS setup_repo]})
    )
  )
  (FunctionDef pop_repo []
    (List
      (Com {[LIT_CHARS cd]} {[LIT_CHARS ..]})
      (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[VarSub test_repo]})
    )
  )
  (Com {[LIT_CHARS setup_repo]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "multiple '--stdin's are rejected"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo example | test_must_fail git hash-object --stdin --stdin\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "Can't use --stdin and --stdin-paths together"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo example | test_must_fail git hash-object --stdin --stdin-paths &&\n"> <LIT_CHARS "\techo example | test_must_fail git hash-object --stdin-paths --stdin\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "Can't pass filenames as arguments with --stdin-paths"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo example | test_must_fail git hash-object --stdin-paths hello\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "Can't use --path with --stdin-paths"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo example | test_must_fail git hash-object --stdin-paths --path=foo\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "Can't use --path with --no-filters"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git hash-object --no-filters --path=foo\n">]})
  (Com {[LIT_CHARS push_repo]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "hash a file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest $hello_sha1 = $(git hash-object hello)\n">]})
  (Com {[LIT_CHARS test_blob_does_not_exist]} {[VarSub hello_sha1]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "hash from stdin">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest $example_sha1 = $(git hash-object --stdin < example)\n">]})
  (Com {[LIT_CHARS test_blob_does_not_exist]} {[VarSub example_sha1]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "hash a file and write to database">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest $hello_sha1 = $(git hash-object -w hello)\n">]})
  (Com {[LIT_CHARS test_blob_exists]} {[VarSub hello_sha1]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git hash-object --stdin file1 <file0 first operates on file0, then file1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo foo > file1 &&\n"> <LIT_CHARS "\tobname0=$(echo bar | git hash-object --stdin) &&\n"> <LIT_CHARS "\tobname1=$(git hash-object file1) &&\n"> <LIT_CHARS "\tobname0new=$(echo bar | git hash-object --stdin file1 | sed -n -e 1p) &&\n"> <LIT_CHARS "\tobname1new=$(echo bar | git hash-object --stdin file1 | sed -n -e 2p) &&\n"> <LIT_CHARS "\ttest \"$obname0\" = \"$obname0new\" &&\n"> <LIT_CHARS "\ttest \"$obname1\" = \"$obname1new\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "set up crlf tests">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo fooQ | tr Q \"\\\\015\" >file0 &&\n"> <LIT_CHARS "\tcp file0 file1 &&\n"> <LIT_CHARS "\techo \"file0 -crlf\" >.gitattributes &&\n"> <LIT_CHARS "\techo \"file1 crlf\" >>.gitattributes &&\n"> <LIT_CHARS "\tgit config core.autocrlf true &&\n"> <LIT_CHARS "\tfile0_sha=$(git hash-object file0) &&\n"> <LIT_CHARS "\tfile1_sha=$(git hash-object file1) &&\n"> <LIT_CHARS "\ttest \"$file0_sha\" != \"$file1_sha\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check that appropriate filter is invoke when --path is used">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tpath1_sha=$(git hash-object --path=file1 file0) &&\n"> <LIT_CHARS "\tpath0_sha=$(git hash-object --path=file0 file1) &&\n"> <LIT_CHARS "\ttest \"$file0_sha\" = \"$path0_sha\" &&\n"> <LIT_CHARS "\ttest \"$file1_sha\" = \"$path1_sha\" &&\n"> <LIT_CHARS "\tpath1_sha=$(cat file0 | git hash-object --path=file1 --stdin) &&\n"> <LIT_CHARS "\tpath0_sha=$(cat file1 | git hash-object --path=file0 --stdin) &&\n"> <LIT_CHARS "\ttest \"$file0_sha\" = \"$path0_sha\" &&\n"> <LIT_CHARS "\ttest \"$file1_sha\" = \"$path1_sha\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gitattributes also work in a subdirectory">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir subdir &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd subdir &&\n"> <LIT_CHARS "\t\tsubdir_sha0=$(git hash-object ../file0) &&\n"> <LIT_CHARS "\t\tsubdir_sha1=$(git hash-object ../file1) &&\n"> <LIT_CHARS "\t\ttest \"$file0_sha\" = \"$subdir_sha0\" &&\n"> <LIT_CHARS "\t\ttest \"$file1_sha\" = \"$subdir_sha1\"\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check that --no-filters option works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tnofilters_file1=$(git hash-object --no-filters file1) &&\n"> <LIT_CHARS "\ttest \"$file0_sha\" = \"$nofilters_file1\" &&\n"> <LIT_CHARS "\tnofilters_file1=$(cat file1 | git hash-object --stdin) &&\n"> <LIT_CHARS "\ttest \"$file0_sha\" = \"$nofilters_file1\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check that --no-filters option works with --stdin-paths">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tnofilters_file1=$(echo \"file1\" | git hash-object --stdin-paths --no-filters) &&\n"> <LIT_CHARS "\ttest \"$file0_sha\" = \"$nofilters_file1\"\n">]})
  (Com {[LIT_CHARS pop_repo]})
  (For args [{[DQ [LIT_CHARS "-w --stdin"]]}, {[DQ [LIT_CHARS "--stdin -w"]]}])
    (List
      (Com {[LIT_CHARS push_repo]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "hash from stdin and write to database ("][VarSub args][LIT_CHARS ")"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest $example_sha1 = $(git hash-object $args < example)\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_blob_exists]} {[VarSub example_sha1]})
      (Com {[LIT_CHARS pop_repo]})
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('filenames', {[DQ [LIT_CHARS "hello\n"][LIT_CHARS example]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sha1s', {[DQ [VarSub hello_sha1][LIT_CHARS "\n"][VarSub example_sha1]]})])
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "hash two files with names on stdin"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest \"$sha1s\" = \"$(echo_without_newline \"$filenames\" | git hash-object --stdin-paths)\"\n">]})
  (For args [{[DQ [LIT_CHARS "-w --stdin-paths"]]}, {[DQ [LIT_CHARS "--stdin-paths -w"]]}])
    (List
      (Com {[LIT_CHARS push_repo]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "hash two files with names on stdin and write to database ("][VarSub args][LIT_CHARS ")"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest \"$sha1s\" = \"$(echo_without_newline \"$filenames\" | git hash-object $args)\"\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_blob_exists]} {[VarSub hello_sha1]})
      (Com {[LIT_CHARS test_blob_exists]} {[VarSub example_sha1]})
      (Com {[LIT_CHARS pop_repo]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "too-short tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo abc >malformed-tree &&\n"> <LIT_CHARS "\ttest_must_fail git hash-object -t tree malformed-tree 2>err &&\n"> <LIT_CHARS "\ttest_i18ngrep \"too-short tree object\" err\n">]})
  (FunctionDef hex2oct []
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -ne]} {[SQ <LIT_CHARS "printf \"\\\\%03o\", hex for /../g">]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "malformed mode in tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\thex_sha1=$(echo foo | git hash-object --stdin -w) &&\n"> <LIT_CHARS "\tbin_sha1=$(echo $hex_sha1 | hex2oct) &&\n"> <LIT_CHARS "\tprintf \"9100644 \\0$bin_sha1\" >tree-with-malformed-mode &&\n"> <LIT_CHARS "\ttest_must_fail git hash-object -t tree tree-with-malformed-mode 2>err &&\n"> <LIT_CHARS "\ttest_i18ngrep \"malformed mode in tree entry\" err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "empty filename in tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\thex_sha1=$(echo foo | git hash-object --stdin -w) &&\n"> <LIT_CHARS "\tbin_sha1=$(echo $hex_sha1 | hex2oct) &&\n"> <LIT_CHARS "\tprintf \"100644 \\0$bin_sha1\" >tree-with-empty-filename &&\n"> <LIT_CHARS "\ttest_must_fail git hash-object -t tree tree-with-empty-filename 2>err &&\n"> <LIT_CHARS "\ttest_i18ngrep \"empty filename in tree entry\" err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "corrupt commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git hash-object -t commit --stdin </dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "corrupt tag">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git hash-object -t tag --stdin </dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "hash-object complains about bogus type name">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git hash-object -t bogus --stdin </dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "hash-object complains about truncated type name">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git hash-object -t bl --stdin </dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS --literally>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tt=1234567890 &&\n"> <LIT_CHARS "\techo example | git hash-object -t $t --literally --stdin\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--literally with extra-long type">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tt=12345678901234567890123456789012345678901234567890 &&\n"> <LIT_CHARS "\tt=\"$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t\" &&\n"> <LIT_CHARS "\techo example | git hash-object -t $t --literally --stdin\n">]})
  (Com {[LIT_CHARS test_done]})
)