(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS ".git file\n"> <LIT_CHARS "\n"> <LIT_CHARS "Verify that plumbing commands work when .git is a file\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef objpath []
    (Pipeline
      (Com {[LIT_CHARS echo]} {[DQ [VarSub 1]]})
      (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "s|\\(..\\)|\\1/|">]})
    )
  )
  (FunctionDef objck []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('p', {[ComSub (Com {[LIT_CHARS objpath]} {[DQ [VarSub 1]]})]})])
      (If
        (Com {[LIT_CHARS test]} {[LIT_OTHER "!"]} {[LIT_CHARS -f]} {[DQ [VarSub REAL][LIT_CHARS /objects/][VarSub p]]})
        (List
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "Object not found: "][VarSub REAL][LIT_CHARS /objects/][VarSub p]]})
          (Com {[LIT_CHARS false]})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "initial setup">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tREAL=\"$(pwd)/.real\" &&\n"> <LIT_CHARS "\tmv .git \"$REAL\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "bad setup: invalid .git file format">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"gitdir $REAL\" >.git &&\n"> <LIT_CHARS "\tif git rev-parse 2>.err\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\techo \"git rev-parse accepted an invalid .git file\"\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\tfi &&\n"> <LIT_CHARS "\tif ! grep \"Invalid gitfile format\" .err\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\techo \"git rev-parse returned wrong error\"\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\tfi\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "bad setup: invalid .git file path">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"gitdir: $REAL.not\" >.git &&\n"> <LIT_CHARS "\tif git rev-parse 2>.err\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\techo \"git rev-parse accepted an invalid .git file path\"\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\tfi &&\n"> <LIT_CHARS "\tif ! grep \"Not a git repository\" .err\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\techo \"git rev-parse returned wrong error\"\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\tfi\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "final setup + check rev-parse --git-dir">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"gitdir: $REAL\" >.git &&\n"> <LIT_CHARS "\ttest \"$REAL\" = \"$(git rev-parse --git-dir)\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check hash-object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"foo\" >bar &&\n"> <LIT_CHARS "\tSHA=$(cat bar | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\tobjck $SHA\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check cat-file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file blob $SHA >actual &&\n"> <LIT_CHARS "\ttest_cmp bar actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check update-index">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tif test -f \"$REAL/index\"\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\techo \"Hmm, $REAL/index exists?\"\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\tfi &&\n"> <LIT_CHARS "\trm -f \"$REAL/objects/$(objpath $SHA)\" &&\n"> <LIT_CHARS "\tgit update-index --add bar &&\n"> <LIT_CHARS "\tif ! test -f \"$REAL/index\"\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\techo \"$REAL/index not found\"\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\tfi &&\n"> <LIT_CHARS "\tobjck $SHA\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check write-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tSHA=$(git write-tree) &&\n"> <LIT_CHARS "\tobjck $SHA\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check commit-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tSHA=$(echo \"commit bar\" | git commit-tree $SHA) &&\n"> <LIT_CHARS "\tobjck $SHA\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check rev-list">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo $SHA >\"$REAL/HEAD\" &&\n"> <LIT_CHARS "\ttest \"$SHA\" = \"$(git rev-list HEAD)\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup_git_dir twice in subdir">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init sgd &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd sgd &&\n"> <LIT_CHARS "\t\tgit config alias.lsfi ls-files &&\n"> <LIT_CHARS "\t\tmv .git .realgit &&\n"> <LIT_CHARS "\t\techo \"gitdir: .realgit\" >.git &&\n"> <LIT_CHARS "\t\tmkdir subdir &&\n"> <LIT_CHARS "\t\tcd subdir &&\n"> <LIT_CHARS "\t\t>foo &&\n"> <LIT_CHARS "\t\tgit add foo &&\n"> <LIT_CHARS "\t\tgit lsfi >actual &&\n"> <LIT_CHARS "\t\techo foo >expected &&\n"> <LIT_CHARS "\t\ttest_cmp expected actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "enter_repo non-strict mode">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_create_repo enter_repo &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd enter_repo &&\n"> <LIT_CHARS "\t\ttest_tick &&\n"> <LIT_CHARS "\t\ttest_commit foo &&\n"> <LIT_CHARS "\t\tmv .git .realgit &&\n"> <LIT_CHARS "\t\techo \"gitdir: .realgit\" >.git\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote enter_repo >actual &&\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t946e985ab20de757ca5b872b16d64e92ff3803a9\tHEAD\n"> <LIT_CHARS "\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/heads/master\n"> <LIT_CHARS "\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/tags/foo\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "enter_repo linked checkout">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd enter_repo &&\n"> <LIT_CHARS "\t\tgit worktree add  ../foo refs/tags/foo\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote foo >actual &&\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t946e985ab20de757ca5b872b16d64e92ff3803a9\tHEAD\n"> <LIT_CHARS "\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/heads/master\n"> <LIT_CHARS "\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/tags/foo\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "enter_repo strict mode">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit ls-remote --upload-pack=\"git upload-pack --strict\" foo/.git >actual &&\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t946e985ab20de757ca5b872b16d64e92ff3803a9\tHEAD\n"> <LIT_CHARS "\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/heads/master\n"> <LIT_CHARS "\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/tags/foo\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_done]})
)