(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'git-pack-object with missing base\n'> <'\n'>)}
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <'setup base'>)} 
      {
        (SQ <'for a in a b c d e f g h i; do echo $a >>text; done &&\n'> <'     echo side >side &&\n'> 
          <'     git update-index --add text side &&\n'> <'     A=$(echo A | git commit-tree $(git write-tree)) &&\n'> <'\n'> <'     echo m >>text &&\n'> 
          <'     git update-index text &&\n'> <'     B=$(echo B | git commit-tree $(git write-tree) -p $A) &&\n'> <'     git update-ref HEAD $B\n'> 
          <'    '>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'setup patch_clone'>)} 
      {
        (SQ <'base_objects=$(pwd)/.git/objects &&\n'> <'     (mkdir patch_clone &&\n'> 
          <'      cd patch_clone &&\n'> <'      git init &&\n'> <'      echo "$base_objects" >.git/objects/info/alternates &&\n'> 
          <'      echo q >>text &&\n'> <'      git read-tree $B &&\n'> <'      git update-index text &&\n'> 
          <'      git update-ref HEAD $(echo C | git commit-tree $(git write-tree) -p $B) &&\n'> <'      rm .git/objects/info/alternates &&\n'> <'\n'> 
          <'      git --git-dir=../.git cat-file commit $B |\n'> <'      git hash-object -t commit -w --stdin &&\n'> <'\n'> 
          <'      git --git-dir=../.git cat-file tree "$B^{tree}" |\n'> <'      git hash-object -t tree -w --stdin\n'> <'     ) &&\n'> 
          <'     C=$(git --git-dir=patch_clone/.git rev-parse HEAD)\n'> <'    '>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'indirectly clone patch_clone'>)} 
      {
        (SQ <'(mkdir user_clone &&\n'> <'      cd user_clone &&\n'> <'      git init &&\n'> 
          <'      git pull ../.git &&\n'> <'      test $(git rev-parse HEAD) = $B &&\n'> <'\n'> <'      git pull ../patch_clone/.git &&\n'> 
          <'      test $(git rev-parse HEAD) = $C\n'> <'     )\n'> <'    '>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'clone of patch_clone is incomplete'>)} 
      {
        (SQ <'(mkdir user_direct &&\n'> <'      cd user_direct &&\n'> <'      git init &&\n'> 
          <'      test_must_fail git fetch ../patch_clone/.git\n'> <'     )\n'> <'    '>
        )
      }
    )
    (C {(test_done)})
  ]
)