diff options
Diffstat (limited to 'dotfiles/system/.zsh/modules/Test/C02cond.ztst')
| -rw-r--r-- | dotfiles/system/.zsh/modules/Test/C02cond.ztst | 448 |
1 files changed, 0 insertions, 448 deletions
diff --git a/dotfiles/system/.zsh/modules/Test/C02cond.ztst b/dotfiles/system/.zsh/modules/Test/C02cond.ztst deleted file mode 100644 index 3852501..0000000 --- a/dotfiles/system/.zsh/modules/Test/C02cond.ztst +++ /dev/null @@ -1,448 +0,0 @@ -# Tests corresponding to the texinfo node `Conditional Expressions' - -%prep - - umask 077 - - mkdir cond.tmp - - cd cond.tmp - - typeset -gi isnfs - [[ "$(find . -prune -fstype nfs 2>/dev/null)" == "." ]] && isnfs=1 - if (( isnfs )) && - (cd -q ${ZTST_tmp} >/dev/null 2>&1 && - [[ "$(find . -prune -fstype nfs 2>/dev/null)" != "." ]]); then - filetmpprefix=${ZTST_tmp}/condtest-$$- - isnfs=0 - else - filetmpprefix= - fi - newnewnew=${filetmpprefix}newnewnew - unmodified=${filetmpprefix}unmodified - zlnfs=${filetmpprefix}zlnfs - - touch $unmodified - - touch zerolength - chgrp $EGID zerolength - - touch $zlnfs - chgrp $EGID $zlnfs - - print 'Garbuglio' >nonzerolength - - mkdir modish - chgrp $EGID modish - - chmod 7710 modish # g+xs,u+s,+t - chmod g+s modish # two lines combined work around chmod bugs - - touch unmodish - chmod 000 unmodish - - print 'MZ' > cmd.exe - chmod +x cmd.exe -%test - - [[ -a zerolength && ! -a nonexistent ]] -0:-a cond - - # Find a block special file system. This is a little tricky. - block=$(find /dev(|ices)/ -type b -print) - if [[ -n $block ]]; then - [[ -b $block[(f)1] && ! -b zerolength ]] - else - print -u$ZTST_fd 'Warning: Not testing [[ -b blockdevice ]] (no devices found)' - [[ ! -b zerolength ]] - fi -0D:-b cond - - # Use hardcoded /dev/tty because globbing inside /dev fails on Cygwin - char=/dev/tty - [[ -c $char && ! -c $zerolength ]] -0:-c cond - - [[ -d . && ! -d zerolength ]] -0:-d cond - - [[ -e zerolength && ! -e nonexistent ]] -0:-e cond - - if [[ -n $block ]]; then - [[ -f zerolength && ! -f cond && ! -f $char && ! -f $block[(f)1] && ! -f . ]] - else - print -u$ZTST_fd 'Warning: Not testing [[ -f blockdevice ]] (no devices found)' - [[ -f zerolength && ! -f cond && ! -f $char && ! -f . ]] - fi -0:-f cond - - [[ -g modish && ! -g zerolength ]] -0:-g cond - - ln -s zerolength link - [[ -h link && ! -h zerolength ]] -0:-h cond - - [[ -k modish && ! -k zerolength ]] -0:-k cond - - foo=foo - bar= - [[ -n $foo && ! -n $bar && ! -n '' ]] -0:-n cond - - [[ -o rcs && ! -o norcs && -o noerrexit && ! -o errexit ]] -0:-o cond - - if ! grep '#define HAVE_FIFOS' $ZTST_testdir/../config.h; then - print -u$ZTST_fd 'Warning: Not testing [[ -p pipe ]] (FIFOs not supported)' - [[ ! -p zerolength ]] - else - if whence mkfifo && mkfifo pipe || mknod pipe p; then - [[ -p pipe && ! -p zerolength ]] - else - print -u$ZTST_fd 'Warning: Not testing [[ -p pipe ]] (cannot create FIFO)' - [[ ! -p zerolength ]] - fi - fi -0dD:-p cond - - if (( EUID == 0 )); then - print -u$ZTST_fd 'Warning: Not testing [[ ! -r file ]] (root reads anything)' - [[ -r zerolength && -r unmodish ]] - elif [[ $OSTYPE = cygwin ]]; then - print -u$ZTST_fd 'Warning: Not testing [[ ! -r file ]] - (all files created by user may be readable)' - [[ -r zerolength ]] - else - [[ -r zerolength && ! -r unmodish ]] - fi -0:-r cond - - [[ -s nonzerolength && ! -s zerolength ]] -0:-s cond - -# no simple way of guaranteeing test for -t - - [[ -u modish && ! -u zerolength ]] -0:-u cond - - [[ -x cmd.exe && ! -x zerolength ]] -0:-x cond - - [[ -z $bar && -z '' && ! -z $foo ]] -0:-z cond - - [[ -L link && ! -L zerolength ]] -0:-L cond - -# hard to guarantee a file not owned by current uid - [[ -O zerolength ]] -0:-O cond - - [[ -G zerolength ]] -0:-G cond - -# can't be bothered with -S - - if [[ ${mtab::="$({mount || /sbin/mount || /usr/sbin/mount} 2>/dev/null)"} = *[(]?*[)] ]]; then - print -u $ZTST_fd 'This test takes two seconds...' - else - unmodified_ls="$(ls -lu $unmodified)" - print -u $ZTST_fd 'This test takes up to 60 seconds...' - fi - sleep 2 - touch $newnewnew - if [[ $OSTYPE == "cygwin" ]]; then - ZTST_skip="[[ -N file ]] not supported on Cygwin" - elif (( isnfs )); then - ZTST_skip="[[ -N file ]] not supported with NFS" - elif { (( ! $+unmodified_ls )) && - cat $unmodified && - { df -k -- ${$(print -r -- "$mtab" | - awk '/noatime/ {print $1,$3}'):-""} | tr -s ' ' | - fgrep -- "$(df -k . | tail -1 | tr -s ' ')" } >&/dev/null } || - { (( $+unmodified_ls )) && SECONDS=0 && - ! until (( SECONDS >= 58 )); do - ZTST_hashmark; sleep 2; cat $unmodified - [[ $unmodified_ls != "$(ls -lu $unmodified)" ]] && break - done }; then - ZTST_skip="[[ -N file ]] not supported with noatime file system" - else - [[ -N $newnewnew && ! -N $unmodified ]] - fi -0:-N cond -F:This test can fail on NFS-mounted filesystems as the access and -F:modification times are not updated separately. The test will fail -F:on HFS+ (Apple Mac OS X default) filesystems because access times -F:are not recorded. Also, Linux ext3 filesystems may be mounted -F:with the noatime option which does not update access times. -F:Failures in these cases do not indicate a problem in the shell. - - [[ $newnewnew -nt $zlnfs && ! ($unmodified -nt $zlnfs) ]] -0:-nt cond - - [[ $zlnfs -ot $newnewnew && ! ($zlnfs -ot $unmodified) ]] -0:-ot cond - - [[ link -ef zerolength && ! (link -ef nonzerolength) ]] -0:-ef cond - - [[ foo = foo && foo != bar && foo == foo && foo != '' ]] -0:=, == and != conds - - [[ bar < foo && foo > bar ]] -0:< and > conds - - [[ $(( 3 + 4 )) -eq 0x07 && $(( 5 * 2 )) -ne 0x10 ]] -0:-eq and -ne conds - - [[ 3 -lt 04 && 05 -gt 2 ]] -0:-lt and -gt conds - - [[ 3 -le 3 && ! (4 -le 3) ]] -0:-le cond - - [[ 3 -ge 3 && ! (3 -ge 4) ]] -0:-ge cond - - [[ 1 -lt 2 || 2 -lt 2 && 3 -gt 4 ]] -0:|| and && in conds - - if ! grep '#define PATH_DEV_FD' $ZTST_testdir/../config.h; then - print -u$ZTST_fd "Warning: not testing [[ -e /dev/fd/0 ]] (/dev/fd not supported)" - true - else - [[ -e /dev/fd/0 ]] - fi -0dD:/dev/fd support in conds handled by access - - if ! grep '#define PATH_DEV_FD' $ZTST_testdir/../config.h; then - print -u$ZTST_fd "Warning: not testing [[ -O /dev/fd/0 ]] (/dev/fd not supported)" - true - else - [[ -O /dev/fd/0 ]] - fi -0dD:/dev/fd support in conds handled by stat - - [[ ( -z foo && -z foo ) || -z foo ]] -1:complex conds with skipping - - [ '' != bar -a '' = '' ] -0:strings with `[' builtin - - [ `echo 0` -lt `echo 1` ] -0:substitution in `[' builtin - - [ -n foo scrimble ] -2:argument checking for [ builtin -?(eval):[:1: too many arguments - - test -n foo scramble -2:argument checking for test builtin -?(eval):test:1: too many arguments - - [ -n foo scrimble scromble ] -2:argument checking for [ builtin -?(eval):[:1: too many arguments - - test -n foo scramble scrumble -2:argument checking for test builtin -?(eval):test:1: too many arguments - - [ -n foo -a -n bar scrimble ] -2:argument checking for [ builtin -?(eval):[:1: too many arguments - - test -n foo -a -z "" scramble -2:argument checking for test builtin -?(eval):test:1: too many arguments - - fn() { - # careful: first file must exist to trigger bug - [[ -e $unmodified ]] || print Where\'s my file\? - [[ $unmodified -nt NonExistentFile ]] - print status = $? - } - fn -0:-nt shouldn't abort on non-existent files ->status = 1 - - str='string' empty='' - [[ -v IFS && -v str && -v empty && ! -v str[3] && ! -v not_a_variable ]] -0:-v cond - - arr=( 1 2 3 4 ) empty=() - [[ -v arr && -v arr[1,4] && -v arr[1] && -v arr[4] && -v arr[-4] && - -v arr[(i)3] && ! -v arr[(i)x] && - ! -v arr[0] && ! -v arr[5] && ! -v arr[-5] && ! -v arr[2][1] && - ! -v arr[3]extra && -v empty && ! -v empty[1] ]] -0:-v cond with array - - typeset -A assoc=( key val num 4 ) - [[ -v assoc && -v assoc[key] && -v assoc[(i)*] && -v assoc[(I)*] && - ! -v assoc[x] && ! -v assoc[key][1] ]] -0:-v cond with association - - () { [[ -v 0 && -v 1 && -v 2 && ! -v 3 ]] } arg '' -0:-v cond with positional parameters - -# core dumps on failure - if zmodload zsh/regex 2>/dev/null; then - echo >regex_test.sh 'if [[ $# = 1 ]]; then - if [[ $1 =~ /?[^/]+:[0-9]+:$ ]]; then - : - fi - fi - exit 0' - $ZTST_testdir/../Src/zsh -f ./regex_test.sh - fi -0:regex tests shouldn't crash - - if zmodload zsh/regex 2>/dev/null; then - ( # subshell in case coredump test failed - string="this has stuff in it" - bad_regex=0 - if [[ $string =~ "h([a-z]*) s([a-z]*) " ]]; then - if [[ "$MATCH $MBEGIN $MEND" != "has stuff 6 15" ]]; then - print -r "regex variables MATCH MBEGIN MEND: - '$MATCH $MBEGIN $MEND' - should be: - 'has stuff 6 15'" - bad_regex=1 - else - results=("as 7 8" "tuff 11 14") - for i in 1 2; do - if [[ "$match[$i] $mbegin[$i] $mend[$i]" != $results[i] ]]; then - print -r "regex variables match[$i] mbegin[$i] mend[$i]: - '$match[$i] $mbegin[$i] $mend[$i]' - should be - '$results[$i]'" - bad_regex=1 - break - fi - done - fi - (( bad_regex )) || print OK - else - print -r "regex failed to match '$string'" - fi - ) - else - # if it didn't load, tough, but not a test error - ZTST_skip="regexp library not found." - fi -0:MATCH, MBEGIN, MEND, match, mbegin, mend ->OK - - if zmodload zsh/regex 2>/dev/null; then - ( # subshell because regex module may dump core, see above - if [[ a =~ a && b == b ]]; then - print OK - else - print "regex =~ inverted following test" - fi - ) - else - # not a test error - ZTST_skip="regexp library not found." - fi -0:regex infix operator should not invert following conditions ->OK - - [[ -fail badly ]] -2:Error message for unknown prefix condition -?(eval):1: unknown condition: -fail - - [[ really -fail badly ]] -2:Error message for unknown infix condition -?(eval):1: unknown condition: -fail - - crashme() { - if [[ $1 =~ ^http:* ]] - then - url=${1#*=} - fi - } - which crashme -0:Regression test for examining code with regular expression match ->crashme () { -> if [[ $1 =~ ^http:* ]] -> then -> url=${1#*=} -> fi ->} - - weirdies=( - '! -a !' - '! -o !' - '! -a' - '! -o' - '! -a ! -a !' - '! = !' - '! !' - '= -a o' - '! = -a o') - for w in $weirdies; do - eval test $w - print $? - done -0:test compatability weirdness: treat ! as a string sometimes ->0 ->0 ->1 ->0 ->0 ->0 ->1 ->0 ->1 - - foo='' - [[ $foo ]] || print foo is empty - foo=full - [[ $foo ]] && print foo is full -0:bash compatibility with single [[ ... ]] argument ->foo is empty ->foo is full - - test -z \( || print Not zero 1 - test -z \< || print Not zero 2 - test -n \( && print Not zero 3 - test -n \) && print Not zero 4 - [ -n \> ] && print Not zero 5 - [ -n \! ] && print Not zero 6 -0:test with two arguments and a token ->Not zero 1 ->Not zero 2 ->Not zero 3 ->Not zero 4 ->Not zero 5 ->Not zero 6 - - [ '(' = ')' ] || print OK 1 - [ '((' = '))' ] || print OK 2 - [ '(' = '(' ] && print OK 3 - [ '(' non-empty-string ')' ] && echo OK 4 - [ '(' '' ')' ] || echo OK 5 -0:yet more old-fashioned test fix ups: prefer comparison to parentheses ->OK 1 ->OK 2 ->OK 3 ->OK 4 ->OK 5 - - fn() { [[ 'a' == 'b' || 'b' = 'c' || 'c' != 'd' ]] } - which -x2 fn -0: = and == appear as input ->fn () { -> [[ 'a' == 'b' || 'b' = 'c' || 'c' != 'd' ]] ->} - -%clean - # This works around a bug in rm -f in some versions of Cygwin - chmod 644 unmodish - for tmpfile in $newnewnew $unmodified $zlnfs; do - [[ -f $tmpfile ]] && rm -f $tmpfile - done |