(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: 
            {
              (SQ <'check that the most basic functions work\n'> <'\n'> <'\n'> 
                <'Verify wrappers and compatibility functions.\n'>
              )
            }
          spids: [4]
        )
      ]
    )
    (C {<.>} {<'./test-lib.sh'>})
    (C {<test_expect_success>} {(SQ <'character classes (isspace, isalpha etc.)'>)} 
      {(SQ <'\n'> <'\ttest-ctype\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'mktemp to nonexistent directory prints filename'>)} 
      {
        (SQ <'\n'> <'\ttest_must_fail test-mktemp doesnotexist/testXXXXXX 2>err &&\n'> 
          <'\tgrep "doesnotexist/test" err\n'>
        )
      }
    )
    (C {<test_expect_success>} {<POSIXPERM> <Id.Lit_Comma ','> <SANITY>} 
      {(SQ <'mktemp to unwritable directory prints filename'>)} 
      {
        (SQ <'\n'> <'\tmkdir cannotwrite &&\n'> <'\tchmod -w cannotwrite &&\n'> 
          <'\ttest_when_finished "chmod +w cannotwrite" &&\n'> <'\ttest_must_fail test-mktemp cannotwrite/testXXXXXX 2>err &&\n'> <'\tgrep "cannotwrite/test" err\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'git_mkstemps_mode does not fail if fd 0 is not open'>)} 
      {(SQ <'\n'> <'\tgit commit --allow-empty -m message <&-\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'check for a bug in the regex routines'>)} 
      {
        (SQ <'\n'> <'\t# if this test fails, re-build git with NO_REGEX=1\n'> <'\ttest-regex --bug\n'>)
      }
    )
    (C {<test_done>})
  ]
)