#!/bin/sh

global test_description := ''check that the most basic functions work


Verify wrappers and compatibility functions.
''

source ./test-lib.sh

test_expect_success 'character classes (isspace, isalpha etc.)' '
	test-ctype
'

test_expect_success 'mktemp to nonexistent directory prints filename' '
	test_must_fail test-mktemp doesnotexist/testXXXXXX 2>err &&
	grep "doesnotexist/test" err
'

test_expect_success POSIXPERM,SANITY 'mktemp to unwritable directory prints filename' '
	mkdir cannotwrite &&
	chmod -w cannotwrite &&
	test_when_finished "chmod +w cannotwrite" &&
	test_must_fail test-mktemp cannotwrite/testXXXXXX 2>err &&
	grep "cannotwrite/test" err
'

test_expect_success 'git_mkstemps_mode does not fail if fd 0 is not open' '
	git commit --allow-empty -m message <&-
'

test_expect_success 'check for a bug in the regex routines' '
	# if this test fails, re-build git with NO_REGEX=1
	test-regex --bug
'

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