(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 <'perl interface (Git.pm)'>)}
        )
      ]
      redirects: []
    )
    (command.Simple
      blame_tok: <.>
      more_env: []
      words: [{<.>} {<'./test-lib.sh'>}]
      redirects: []
      do_fork: T
    )
    (command.If
      if_kw: <Id.KW_If if>
      arms: [
        (IfArm
          keyword: <Id.KW_If if>
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Pipeline
                      negated: <Id.KW_Bang '!'>
                      children: [
                        (command.Simple
                          blame_tok: <test_have_prereq>
                          more_env: []
                          words: [{<test_have_prereq>} {<PERL>}]
                          redirects: []
                          do_fork: T
                        )
                      ]
                      ops: []
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          then_kw: <Id.KW_Then then>
          action: [
            (command.ShAssignment
              left: <Id.Lit_VarLike 'skip_all='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'skip_all='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'skip_all='> name:skip_all)
                  op: assign_op.Equal
                  rhs: {(SQ <'skipping perl interface tests, perl not available'>)}
                )
              ]
              redirects: []
            )
            (command.Simple
              blame_tok: <test_done>
              more_env: []
              words: [{<test_done>}]
              redirects: []
              do_fork: T
            )
          ]
          spids: [23 32]
        )
      ]
      else_action: []
      fi_kw: <Id.KW_Fi fi>
      redirects: []
    )
    (command.AndOr
      children: [
        (command.Simple
          blame_tok: <perl>
          more_env: []
          words: [{<perl>} {<-MTest> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <More>} {<-e>} {<0>}]
          redirects: [(Redir op:<Id.Redir_Great '2>'> loc:(redir_loc.Fd fd:2) arg:{<'/dev/null'>})]
          do_fork: T
        )
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.ShAssignment
              left: <Id.Lit_VarLike 'skip_all='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'skip_all='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'skip_all='> name:skip_all)
                  op: assign_op.Equal
                  rhs: {(DQ <'Perl Test::More unavailable, skipping test'>)}
                )
              ]
              redirects: []
            )
            (command.Simple
              blame_tok: <test_done>
              more_env: []
              words: [{<test_done>}]
              redirects: []
              do_fork: T
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
      ]
      ops: [<Id.Op_DPipe _>]
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'set up test repository'>)}
        {
          (SQ <'echo "test file 1" > file1 &&\n'> <'     echo "test file 2" > file2 &&\n'> 
            <'     mkdir directory1 &&\n'> <'     echo "in directory1" >> directory1/file &&\n'> <'     mkdir directory2 &&\n'> 
            <'     echo "in directory2" >> directory2/file &&\n'> <'     git add . &&\n'> <'     git commit -m "first commit" &&\n'> <'\n'> 
            <'     echo "new file in subdir 2" > directory2/file2 &&\n'> <'     git add . &&\n'> <'     git commit -m "commit in directory2" &&\n'> <'\n'> 
            <'     echo "changed file 1" > file1 &&\n'> <'     git commit -a -m "second commit" &&\n'> <'\n'> 
            <'     git config --add color.test.slot1 green &&\n'> <'     git config --add test.string value &&\n'> <'     git config --add test.dupstring value1 &&\n'> 
            <'     git config --add test.dupstring value2 &&\n'> <'     git config --add test.booltrue true &&\n'> <'     git config --add test.boolfalse no &&\n'> 
            <'     git config --add test.boolother other &&\n'> <'     git config --add test.int 2k &&\n'> <'     git config --add test.path "~/foo" &&\n'> 
            <'     git config --add test.pathexpanded "$HOME/foo" &&\n'> <'     git config --add test.pathmulti foo &&\n'> <'     git config --add test.pathmulti bar\n'> 
            <'     '>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.ShAssignment
      left: <Id.Lit_VarLike 'test_external_has_tap='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'test_external_has_tap='>
          lhs: 
            (sh_lhs_expr.Name
              left: <Id.Lit_VarLike 'test_external_has_tap='>
              name: test_external_has_tap
            )
          op: assign_op.Equal
          rhs: {<1>}
        )
      ]
      redirects: []
    )
    (command.Simple
      blame_tok: <test_external_without_stderr>
      more_env: []
      words: [
        {<test_external_without_stderr>}
        {(SQ <'Perl API'>)}
        {<perl>}
        {(DQ ($ Id.VSub_DollarName TEST_DIRECTORY)) <'/t9700/test.pl'>}
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_done>
      more_env: []
      words: [{<test_done>}]
      redirects: []
      do_fork: T
    )
  ]
)