(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)})
  ]
)