diff options
Diffstat (limited to 'tests/init.cfg')
| -rw-r--r-- | tests/init.cfg | 552 |
1 files changed, 0 insertions, 552 deletions
diff --git a/tests/init.cfg b/tests/init.cfg deleted file mode 100644 index f223f13a5..000000000 --- a/tests/init.cfg +++ /dev/null @@ -1,552 +0,0 @@ -# This file is sourced by init.sh, *before* its initialization. - -# Copyright (C) 2010-2012 Free Software Foundation, Inc. - -# This program is free software: you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation, either version 3 of the License, or -# (at your option) any later version. - -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. - -# You should have received a copy of the GNU General Public License -# along with this program. If not, see <http://www.gnu.org/licenses/>. - - -# This goes hand in hand with the "exec 9>&2;" in tests/Makefile.am's -# TESTS_ENVIRONMENT definition. -stderr_fileno_=9 - -# Having an unsearchable directory in PATH causes execve to fail with EACCES -# when applied to an unresolvable program name, contrary to the desired ENOENT. -# Avoid the problem by rewriting PATH to exclude unsearchable directories. -# Also, if PATH lacks /sbin and/or /usr/sbin, append it/them. -sanitize_path_() -{ - # FIXME: remove double quotes around $IFS when all tests use init.sh. - # They constitute a work-around for a bug in FreeBSD 8.1's /bin/sh. - local saved_IFS="$IFS" - IFS=: - set -- $PATH - IFS=$saved_IFS - - local d d1 - local colon= - local new_path= - for d in "$@"; do - test -z "$d" && d1=. || d1=$d - if ls -d "$d1/." > /dev/null 2>&1; then - new_path="$new_path$colon$d" - colon=':' - fi - done - - for d in /sbin /usr/sbin ; do - case ":$new_path:" in - *:$d:*) ;; - *) new_path="$new_path:$d" ;; - esac - done - - PATH=$new_path - export PATH -} - -getlimits_() -{ - eval $(getlimits) - test "$INT_MAX" || fatal_ "running getlimits" -} - -require_acl_() -{ - getfacl --version < /dev/null > /dev/null 2>&1 \ - && setfacl --version < /dev/null > /dev/null 2>&1 \ - || skip_ "This test requires getfacl and setfacl." - - id -u bin > /dev/null 2>&1 \ - || skip_ "This test requires a local user named bin." -} - -is_local_dir_() -{ - test $# = 1 || framework_failure_ - df --local "$1" >/dev/null 2>&1 -} - -require_mount_list_() -{ - local mount_list_fail='cannot read table of mounted file systems' - df 2>&1 | grep -F "$mount_list_fail" >/dev/null && - skip_ "$mount_list_fail" -} - -require_local_dir_() -{ - require_mount_list_ - is_local_dir_ . || - skip_ "This test must be run on a local file system." -} - -# Skip this test if we're not in SELinux "enforcing" mode. -require_selinux_enforcing_() -{ - test "$(getenforce)" = Enforcing \ - || skip_ "This test is useful only with SELinux in Enforcing mode." -} - -require_openat_support_() -{ - # Skip this test if your system has neither the openat-style functions - # nor /proc/self/fd support with which to emulate them. - test -z "$CONFIG_HEADER" \ - && skip_ 'internal error: CONFIG_HEADER not defined' - - _skip=yes - grep '^#define HAVE_OPENAT' "$CONFIG_HEADER" > /dev/null && _skip=no - test -d /proc/self/fd && _skip=no - if test $_skip = yes; then - skip_ 'this system lacks openat support' - fi -} - -require_ulimit_() -{ - local ulimit_works=yes - # Expect to be able to exec a program in 10MiB of virtual memory, - # (10MiB is usually plenty, but valgrind-wrapped date requires 19000KiB, - # so allow more in that case) - # but not in 20KiB. I chose "date". It must not be a shell built-in - # function, so you can't use echo, printf, true, etc. - # Of course, in coreutils, I could use $top_builddir/src/true, - # but this should be able to work for other projects, too. - local vm - case $(printenv LD_PRELOAD) in */valgrind/*) vm=22000;; *) vm=10000;; esac - - ( ulimit -v $vm; date ) > /dev/null 2>&1 || ulimit_works=no - ( ulimit -v 20; date ) > /dev/null 2>&1 && ulimit_works=no - - test $ulimit_works = no \ - && skip_ "this shell lacks ulimit support" -} - -require_readable_root_() -{ - test -r / || skip_ "/ is not readable" -} - -# Skip the current test if strace is not available or doesn't work -# with the named syscall. Usage: require_strace_ unlink -require_strace_() -{ - test $# = 1 || framework_failure_ - - strace -V < /dev/null > /dev/null 2>&1 || - skip_ 'no strace program' - - strace -qe "$1" echo > /dev/null 2>&1 || - skip_ 'strace -qe "'"$1"'" does not work' - - # On some linux/sparc64 systems, strace works fine on 32-bit executables, - # but prints only one line of output for every 64-bit executable. - strace -o log-help ls --help >/dev/null || framework_failure_ - n_lines_help=$(wc -l < log-help) - rm -f log-help - if test $n_lines_help = 0 || test $n_lines_help = 1; then - skip_ 'strace produces no more than one line of output' - fi -} - -# Skip the current test if valgrind doesn't work. -require_valgrind_() -{ - valgrind --help >/dev/null || skip_ "requires valgrind" -} - -require_setfacl_() -{ - setfacl -m user::rwx . \ - || skip_ "setfacl does not work on the current file system" -} - -# Require a controlling input 'terminal'. -require_controlling_input_terminal_() -{ - tty -s || have_input_tty=no - test -t 0 || have_input_tty=no - if test "$have_input_tty" = no; then - skip_ 'requires controlling input terminal -This test must have a controlling input "terminal", so it may not be -run via "batch", "at", or "ssh". On some systems, it may not even be -run in the background.' - fi -} - -require_built_() -{ - skip_=no - for i in "$@"; do - case " $built_programs " in - *" $i "*) ;; - *) echo "$i: not built" 1>&2; skip_=yes ;; - esac - done - - test $skip_ = yes && skip_ "required program(s) not built" -} - -require_file_system_bytes_free_() -{ - local req=$1 - local expr=$(stat -f --printf "$req / %S <= %a" .) - $AWK "BEGIN{ exit !($expr) }" \ - || skip_ "this test needs at least $req bytes of free space" -} - -uid_is_privileged_() -{ - # Make sure id -u succeeds. - my_uid=$(id -u) \ - || { echo "$0: cannot run 'id -u'" 1>&2; return 1; } - - # Make sure it gives valid output. - case $my_uid in - 0) ;; - *[!0-9]*) - echo "$0: invalid output ('$my_uid') from 'id -u'" 1>&2 - return 1 ;; - *) return 1 ;; - esac -} - -get_process_status_() -{ - sed -n '/^State:[ ]*\([[:alpha:]]\).*/s//\1/p' /proc/$1/status -} - -# Convert an ls-style permission string, like drwxr----x and -rw-r-x-wx -# to the equivalent chmod --mode (-m) argument, (=,u=rwx,g=r,o=x and -# =,u=rw,g=rx,o=wx). Ignore ACLs. -rwx_to_mode_() -{ - case $# in - 1) rwx=$1;; - *) echo "$0: wrong number of arguments" 1>&2 - echo "Usage: $0 ls-style-mode-string" 1>&2 - return;; - esac - - case $rwx in - [ld-][rwx-][rwx-][rwxsS-][rwx-][rwx-][rwxsS-][rwx-][rwx-][rwxtT-]) ;; - [ld-][rwx-][rwx-][rwxsS-][rwx-][rwx-][rwxsS-][rwx-][rwx-][rwxtT-][+.]) ;; - *) echo "$0: invalid mode string: $rwx" 1>&2; return;; - esac - - # Perform these conversions: - # S s - # s xs - # T t - # t xt - # The 'T' and 't' ones are only valid for 'other'. - s='s/S/@/;s/s/x@/;s/@/s/' - t='s/T/@/;s/t/x@/;s/@/t/' - - u=$(echo $rwx|sed 's/^.\(...\).*/,u=\1/;s/-//g;s/^,u=$//;'$s) - g=$(echo $rwx|sed 's/^....\(...\).*/,g=\1/;s/-//g;s/^,g=$//;'$s) - o=$(echo $rwx|sed 's/^.......\(...\).*/,o=\1/;s/-//g;s/^,o=$//;'$s';'$t) - echo "=$u$g$o" -} - -# Set the global variable stty_reversible_ to a space-separated list of the -# reversible settings from stty.c. stty_reversible_ also starts and ends -# with a space. -stty_reversible_init_() -{ - # Pad start with one space for the first option to match in query function. - stty_reversible_=' '$(perl -lne '/^ *{"(.*?)",.*\bREV\b/ and print $1' \ - $abs_top_srcdir/src/stty.c | tr '\n' ' ') - # Ensure that there are at least 62, i.e., so we're alerted if - # reformatting the source empties the list. - test 62 -le $(echo "$stty_reversible_"|wc -w) \ - || framework_failure_ "too few reversible settings" -} - -# Test whether $1 is one of stty's reversible options. -stty_reversible_query_() -{ - case $stty_reversible_ in - '') - framework_failure_ "stty_reversible_init_() not called?";; - *" $1 "*) - return 0;; - *) - return 1;; - esac -} - -skip_if_() -{ - case $1 in - root) skip_ must be run as root ;; - non-root) skip_ must be run as non-root ;; - *) ;; # FIXME? - esac -} - -require_selinux_() -{ - # When in a chroot of an SELinux-enabled system, but with a mock-simulated - # SELinux-*disabled* system, recognize that SELinux is disabled system wide: - grep 'selinuxfs$' /proc/filesystems > /dev/null \ - || skip_ "this system lacks SELinux support" - - # Independent of whether SELinux is enabled system-wide, - # the current file system may lack SELinux support. - case $(ls -Zd .) in - '? .'|'unlabeled .') - skip_ "this system (or maybe just" \ - "the current file system) lacks SELinux support" - ;; - esac -} - -very_expensive_() -{ - if test "$RUN_VERY_EXPENSIVE_TESTS" != yes; then - skip_ 'very expensive: disabled by default -This test is very expensive, so it is disabled by default. -To run it anyway, rerun make check with the RUN_VERY_EXPENSIVE_TESTS -environment variable set to yes. E.g., - - env RUN_VERY_EXPENSIVE_TESTS=yes make check - -or use the shortcut target of the toplevel Makefile, - - make check-very-expensive -' - fi -} - -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 -} - -require_root_() -{ - uid_is_privileged_ || skip_ "must be run as root" - NON_ROOT_USERNAME=${NON_ROOT_USERNAME=nobody} - NON_ROOT_GROUP=${NON_ROOT_GROUP=$(id -g $NON_ROOT_USERNAME)} -} - -skip_if_root_() { uid_is_privileged_ && skip_ "must be run as non-root"; } - -# Set 'groups' to a space-separated list of at least two groups -# of which the user is a member. -require_membership_in_two_groups_() -{ - test $# = 0 || framework_failure_ - - groups=${COREUTILS_GROUPS-$( (id -G || /usr/xpg4/bin/id -G) 2>/dev/null)} - case "$groups" in - *' '*) ;; - *) skip_ 'requires membership in two groups -this test requires that you be a member of more than one group, -but running 'id -G'\'' either failed or found just one. If you really -are a member of at least two groups, then rerun this test with -COREUTILS_GROUPS set in your environment to the space-separated list -of group names or numbers. E.g., - - env COREUTILS_GROUPS='\''users cdrom'\'' make check - -' - ;; - esac -} - -# Is /proc/$PID/status supported? -require_proc_pid_status_() -{ - sleep 2 & - local pid=$! - sleep .5 - grep '^State:[ ]*[S]' /proc/$pid/status > /dev/null 2>&1 || - skip_ "/proc/$pid/status: missing or 'different'" - kill $pid -} - -# Return nonzero if the specified path is on a file system for -# which FIEMAP support exists. Note some file systems (like ext3 and btrfs) -# only support FIEMAP for files, not directories. -fiemap_capable_() -{ - if ! python < /dev/null; then - warn_ 'fiemap_capable_: python missing: assuming not fiemap capable' - return 1 - fi - python $abs_srcdir/fiemap-capable "$@" -} - -# Skip the current test if "." lacks d_type support. -require_dirent_d_type_() -{ - python < /dev/null \ - || skip_ python missing: assuming no d_type support - - # Manually exclude xfs, since the test would mistakenly report - # that it has d_type support: d_type == DT_DIR for "." and "..", - # but DT_UNKNOWN for all other types. - df -x xfs . > /dev/null 2>&1 \ - || skip_ requires d_type support - - python $abs_srcdir/d_type-check \ - || skip_ requires d_type support -} - -# Skip the current test if we lack Perl. -require_perl_() -{ - : ${PERL=perl} - $PERL -e 'use warnings' > /dev/null 2>&1 \ - || skip_ 'configure did not find a usable version of Perl' -} - -# Does the current (working-dir) file system support sparse files? -require_sparse_support_() -{ - test $# = 0 || framework_failure_ - # Test whether we can create a sparse file. - # For example, on Darwin6.5 with a file system of type hfs, it's not possible. - # NTFS requires 128K before a hole appears in a sparse file. - t=sparse.$$ - dd bs=1 seek=128K of=$t < /dev/null 2> /dev/null - set x $(du -sk $t) - kb_size=$2 - rm -f $t - if test $kb_size -ge 128; then - skip_ 'this file system does not support sparse files' - fi -} - -mkfifo_or_skip_() -{ - test $# = 1 || framework_failure_ - if ! mkfifo "$1"; then - # Make an exception of this case -- usually we interpret framework-creation - # failure as a test failure. However, in this case, when running on a SunOS - # system using a disk NFS mounted from OpenBSD, the above fails like this: - # mkfifo: cannot make fifo 'fifo-10558': Not owner - skip_ 'unable to create a fifo' - fi -} - -# Disable the current test if the working directory seems to have -# the setgid bit set. -skip_if_setgid_() -{ - setgid_tmpdir=setgid-$$ - (umask 77; mkdir $setgid_tmpdir) - perms=$(stat --printf %A $setgid_tmpdir) - rmdir $setgid_tmpdir - case $perms in - drwx------);; - drwxr-xr-x);; # Windows98 + DJGPP 2.03 - *) skip_ 'this directory has the setgid bit set';; - esac -} - -skip_if_mcstransd_is_running_() -{ - test $# = 0 || framework_failure_ - - # When mcstransd is running, you'll see only the 3-component - # version of file-system context strings. Detect that, - # and if it's running, skip this test. - __ctx=$(stat --printf='%C\n' .) || framework_failure_ - case $__ctx in - *:*:*:*) ;; # four components is ok - *) # anything else probably means mcstransd is running - skip_ "unexpected context '$__ctx'; turn off mcstransd" ;; - esac -} - -# Skip the current test if umask doesn't work as usual. -# This test should be run in the temporary directory that ends -# up being removed via the trap commands. -working_umask_or_skip_() -{ - umask 022 - touch file1 file2 - chmod 644 file2 - perms=$(ls -l file1 file2 | sed 's/ .*//' | uniq) - rm -f file1 file2 - - case $perms in - *' - '*) skip_ 'your build directory has unusual umask semantics' - esac -} - -# Retry a function requiring a sufficient delay to _pass_ -# using a truncated exponential backoff method. -# Example: retry_delay_ dd_reblock_1 .1 6 -# This example will call the dd_reblock_1 function with -# an initial delay of .1 second and call it at most 6 times -# with a max delay of 3.2s (doubled each time), or a total of 6.3s -# Note ensure you do _not_ quote the parameter to GNU sleep in -# your function, as it may contain separate values that sleep -# needs to accumulate. -retry_delay_() -{ - local test_func=$1 - local init_delay=$2 - local max_n_tries=$3 - - local attempt=1 - local num_sleeps=$attempt - local time_fail - while test $attempt -le $max_n_tries; do - local delay=$($AWK -v n=$num_sleeps -v s="$init_delay" \ - 'BEGIN { print s * n }') - "$test_func" "$delay" && { time_fail=0; break; } || time_fail=1 - attempt=$(expr $attempt + 1) - num_sleeps=$(expr $num_sleeps '*' 2) - done - test "$time_fail" = 0 -} - -# Call this with a list of programs under test immediately after -# sourcing init.sh. -print_ver_() -{ - if test "$VERBOSE" = yes; then - local i - for i in $*; do - env $i --version - done - fi -} - -# Are we running on GNU/Hurd? -require_gnu_() -{ - test "$(uname)" = GNU \ - || skip_ 'not running on GNU/Hurd' -} - -sanitize_path_ |