diff options
Diffstat (limited to 'tests/init.cfg')
| -rw-r--r-- | tests/init.cfg | 205 |
1 files changed, 205 insertions, 0 deletions
diff --git a/tests/init.cfg b/tests/init.cfg new file mode 100644 index 0000000..bc62c32 --- /dev/null +++ b/tests/init.cfg @@ -0,0 +1,205 @@ +# This file is sourced by init.sh, *before* its initialization. + +# This goes hand in hand with the "9>&2;" in tests/Makefile.am's +# TESTS_ENVIRONMENT definition. +stderr_fileno_=9 + +# Map settings of "none" to the empty string. +test _"$LOCALE_FR" = _none && LOCALE_FR= +test _"$LOCALE_FR_UTF8" = _none && LOCALE_FR_UTF8= + +# Unset key environment variables. +if (FOO=FOO; unset FOO) >/dev/null 2>&1; then + as_unset=unset +else + as_unset=false +fi + +# Derive this list by searching for string literals as the first +# argument to getenv: +# git grep getenv|perl -nle '/\bgetenv *\("(.+?)"\)/ and print $1'|sort -u grep +vars_=' +GREP_COLOR +GREP_COLORS +GREP_OPTIONS +TERM +' +envvar_check_fail=0 +for v_ in $vars_ +do + $as_unset $v_ + if eval test \"\${$v_+set}\" = set; then + echo "$0: the $v_ environment variable is set --" \ + ' unset it and rerun this test' >&2 + envvar_check_fail=1 + fi +done + +test "$envvar_check_fail" = 1 && fail_ "failed to unset the above envvars" + +require_timeout_() +{ + ( timeout 10s true ) > /dev/null 2>&1 \ + || skip_ your system lacks the timeout program + timeout 10s false; test $? = 1 \ + || skip_ your system has a non-GNU timeout program +} + +require_pcre_() +{ + echo . | grep -P . 2>err || { + test $? -eq 1 && fail_ PCRE available, but does not work. + skip_ no PCRE support + } + compare /dev/null err || fail_ PCRE available, but stderr not empty. +} + +# Some tests would fail without this particular locale. +# If the locale is not available, just skip the test. +require_en_utf8_locale_() +{ + path_prepend_ . + case $(get-mb-cur-max en_US.UTF-8) in + [3456]) ;; + *) skip_ 'en_US.UTF-8 locale not found' ;; + esac +} + +require_tr_utf8_locale_() +{ + path_prepend_ . + case $(get-mb-cur-max tr_TR.UTF-8) in + [3456]) ;; + *) skip_ 'tr_TR.UTF-8 locale not found' ;; + esac +} + +require_ru_RU_koi8_r() +{ + path_prepend_ . + case $(get-mb-cur-max ru_RU.KOI8-R) in + 1) ;; + *) skip_ 'ru_RU.KOI8-R locale not found' ;; + esac +} + +require_compiled_in_MB_support() +{ + require_en_utf8_locale_ + printf 'é' | LC_ALL=en_US.UTF-8 grep '[[:lower:]]' \ + || skip_ this test requires MBS support +} + +require_unibyte_locale() +{ + path_prepend_ . + for loc in C en_US; do + for encoding in '' .iso88591 .iso885915 .ISO8859-1 .ISO8859-15; do + locale=$loc$encoding + MB_CUR_MAX=$(get-mb-cur-max $locale 2>/dev/null) && + test "$MB_CUR_MAX" -eq 1 && + LC_ALL=$locale && + export LC_ALL && + return + done + done + skip_ 'no unibyte locale found' +} + +# Define hi_res_time_ to a function that prints the current time +# as a floating point number with greater than 1-second resolution. +# Otherwise, skip the requiring test. +require_hi_res_time_() +{ + local cmd + for cmd in 'date +%s.%N' \ + 'perl -le "use Time::HiRes qw(time); print scalar time()"'; do + case $($cmd) in + *.[0-9]*) eval 'hi_res_time_() { '"$cmd"'; }'; break;; + esac + done + type hi_res_time_ || skip_ no high-resolution timer support +} + +require_JP_EUC_locale_() +{ + local locale=ja_JP.eucJP + path_prepend_ . + case $(get-mb-cur-max $locale) in + [23]) + LC_ALL=$locale && + export LC_ALL && + return + ;; + *) ;; + esac + + skip_ "$loc locale not found" +} + +expensive_() +{ + if test "$RUN_EXPENSIVE_TESTS" != yes; then + skip_ 'expensive: disabled by default +This test is relatively expensive, so it is disabled by default. +To run it anyway, rerun make check with the RUN_EXPENSIVE_TESTS +environment variable set to yes. E.g., + + env RUN_EXPENSIVE_TESTS=yes make check + +or use the shortcut target of the toplevel Makefile, + + make check-expensive +' + fi +} + +# Like printf with a single argument, but that argument must be a +# sequence of four-byte strings \xHH where each H is a hexadecimal byte. +hex_printf_() +{ + local octal_fmt=$(printf '\\%o' \ + $(printf '%s\n' "$1" \ + | sed 's,\\x\([0-9abcdefABCDEF][0-9abcdefABCDEF]\), 0x\1,g')) + printf "$octal_fmt" +} + +# Wrap tr so that it always runs in the C locale. +# Otherwise, in a multibyte locale, GNU tr (which is not multibyte-aware +# as of 2014-11-08), would work differently than others. For example, +# this command, which was written with unibyte GNU tr in mind, +# LC_ALL=ja_JP.eucJP tr AB '\244\263' +# would act like this with the multibyte tr from HP-UX and Solaris: +# LC_ALL=ja_JP.eucJP tr A '\244\263' +tr() { LC_ALL=C env -- tr "$@"; } + +# Usage: user_time_ EXPECTED_EXIT_STATUS CMD ... +# If CMD ... exits with the expected exit status, print the elapsed +# child "user" time (not "system" time) in milliseconds and return 0. +# Otherwise, diagnose the exit status mismatch and return nonzero. +user_time_() +{ + $PERL -le ' + my $expected_exit_status = $ARGV[0]; + shift @ARGV; + + system (@ARGV); + my ($user, $system, $child_user, $child_system) = times; + + my $me = q('"$ME_"'); + $? == -1 + and die qq($me: failed to exec ") . join (" ", @ARGV) . qq(": $!\n); + my $rc = $?; + my $sig = ($rc & 127); + $sig and die "$me: child died with signal $sig\n"; + $rc >>= 8; + $rc == $expected_exit_status + or die "$me: bad exit status: expected $expected_exit_status; got $rc\n"; + + # Print milliseconds of child user time. + $child_user *= 1000; + print int ($child_user + 0.5)' "$@" +} + +# yes is not portable, fake it with $AWK +yes() { line=${*-y} ${AWK-awk} 'BEGIN{for (;;) print ENVIRON["line"]}'; } |