(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: 
            {
              (SQ <'check that the most basic functions work\n'> <'\n'> <'\n'> 
                <'Verify wrappers and compatibility functions.\n'>
              )
            }
          spids: [4]
        )
      ]
      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) (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)})
  ]
)