(command.CommandList
  children: [
    (command.ShAssignment
      left: <Id.Lit_VarLike 'test_description='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'test_description='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'test_description='> name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'check quarantine of objects during push'>)}
        )
      ]
      redirects: []
    )
    (command.Simple
      blame_tok: <.>
      more_env: []
      words: [{<.>} {<'./test-lib.sh'>}]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'create picky dest repo'>)}
        {
          (SQ <'\n'> <'\tgit init --bare dest.git &&\n'> 
            <'\twrite_script dest.git/hooks/pre-receive <<-\\EOF\n'> <'\twhile read old new ref; do\n'> <'\t\ttest "$(git log -1 --format=%s $new)" = reject && exit 1\n'> 
            <'\tdone\n'> <'\texit 0\n'> <'\tEOF\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'accepted objects work'>)}
        {
          (SQ <'\n'> <'\ttest_commit ok &&\n'> <'\tgit push dest.git HEAD &&\n'> 
            <'\tcommit=$(git rev-parse HEAD) &&\n'> <'\tgit --git-dir=dest.git cat-file commit $commit\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'rejected objects are not installed'>)}
        {
          (SQ <'\n'> <'\ttest_commit reject &&\n'> <'\tcommit=$(git rev-parse HEAD) &&\n'> 
            <'\ttest_must_fail git push dest.git reject &&\n'> <'\ttest_must_fail git --git-dir=dest.git cat-file commit $commit\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'rejected objects are removed'>)}
        {
          (SQ <'\n'> <'\techo "incoming-*" >expect &&\n'> 
            <'\t(cd dest.git/objects && echo incoming-*) >actual &&\n'> <'\ttest_cmp expect actual\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_done>
      more_env: []
      words: [{<test_done>}]
      redirects: []
      do_fork: T
    )
  ]
)