diff options
Diffstat (limited to 'tests/commands.at')
| -rw-r--r-- | tests/commands.at | 131 |
1 files changed, 74 insertions, 57 deletions
diff --git a/tests/commands.at b/tests/commands.at index cf0fcf03ec40..211ee5a6f918 100644 --- a/tests/commands.at +++ b/tests/commands.at @@ -1,4 +1,5 @@ -# Individual built-in commands +AT_BANNER([Individual built-in commands]) + TCSH_UNTESTED([%]) @@ -7,17 +8,17 @@ AT_SETUP([:]) AT_CHECK([tcsh -f -c ': foo']) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([@]) # Not testing much... AT_CHECK([tcsh -f -c 'set' > out1 && tcsh -f -c '@' > out2]) -AT_CHECK([diff out1 out2 | tail -n +2], , -[< command set ---- -> command @ +AT_CHECK([diff -U0 out1 out2 | tail -n +3], [], [dnl +@@ -5 +5 @@ +-command set ++command @ ]) AT_CHECK([tcsh -f -c '@ var=2 * 3; echo $var'], , @@ -39,7 +40,7 @@ AT_CHECK([[tcsh -f -c \ 0 1 ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([alias]) @@ -74,13 +75,16 @@ AT_CHECK([tcsh -f alias.csh 2>&1], , bar ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([alloc]) + TCSH_UNTESTED([bg]) + TCSH_UNTESTED([bindkey]) -#TCSH_UNTESTED([bs2cmd]) + +dnl TCSH_UNTESTED([bs2cmd]) AT_SETUP([break]) @@ -127,7 +131,7 @@ AT_CHECK([tcsh -f break2.csh], , Line 2 ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([builtins]) @@ -200,7 +204,7 @@ AT_CHECK([tcsh -f chdir.csh], , [expout], Usage: chdir [-plvn][-|<dir>]. ]]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([complete]) @@ -217,7 +221,7 @@ AT_CHECK([tcsh -f complete.csh], , 'n/A/t:*/_' 'n/[^A]/t:*/_' ]]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([continue]) @@ -263,7 +267,7 @@ AT_CHECK([tcsh -f continue2.csh], , Line 2 ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([dirs]) @@ -331,8 +335,7 @@ AT_CHECK([echo x"`/bin/pwd`"x > /tmp/x && sed "s,`/bin/pwd`,CWD,g" < saved], , pushd CWD/a ]) -AT_CLEANUP - +AT_CLEANUP() AT_SETUP([echo]) @@ -342,7 +345,7 @@ AT_CHECK([tcsh -f -c 'echo OK'], , [OK ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([echotc]) @@ -354,7 +357,7 @@ AT_CHECK([tcsh -f -c 'set cmd="echo OK"; eval $cmd'], , [OK ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([exec]) @@ -363,7 +366,7 @@ AT_CHECK([tcsh -f -c 'exec echo OK'], , [OK ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([exit]) @@ -372,7 +375,7 @@ AT_CHECK([tcsh -f -c 'exit (50 * 4)'], 200) AT_CHECK([tcsh -f -c '(exit 50); exit'], 0) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([fg]) @@ -380,7 +383,7 @@ TCSH_UNTESTED([fg]) AT_SETUP([filetest]) -touch file1 file2 +touch file1 file2 'b{c' chmod 6777 file1 chmod 000 file2 @@ -417,6 +420,10 @@ AT_CHECK([tcsh -f -c 'filetest -s file1 nonempty'], , [0 1 ]) +AT_CHECK([tcsh -f -c 'filetest -f "b{c"'], , +[1 +]) + mkdir dir chmod +t dir ln -s file2 link @@ -498,7 +505,7 @@ AT_CHECK([tcsh -f -c 'filetest -N unknown'], , [-1 ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([foreach]) @@ -514,10 +521,11 @@ b c ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([getspath]) + TCSH_UNTESTED([getxvers]) @@ -529,7 +537,7 @@ AT_CHECK([[tcsh -f -c 'glob a b c' | od -c] dnl 0000005 ]]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([goto]) @@ -554,7 +562,7 @@ Here OK ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([hashstat]) @@ -687,7 +695,7 @@ set savehist= ( 5 merge ) history -S hist3 ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([hup]) @@ -709,7 +717,7 @@ AT_CHECK([tcsh -f -c 'onintr -; nohup tcsh -f hup.csh' < /dev/null], ignore, # The prefix form requires job control and is not tested -AT_CLEANUP +AT_CLEANUP() AT_SETUP([if]) @@ -768,10 +776,11 @@ OK OK ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([inlib]) + TCSH_UNTESTED([jobs]) @@ -789,7 +798,7 @@ AT_CHECK([tcsh -f -c 'tcsh -f -i -q < kill.csh'], ignore, # kill %job, kill -l untested untested -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([limit]) @@ -803,7 +812,7 @@ log ]]) AT_CHECK([tcsh -f log.csh]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([login]) @@ -815,7 +824,7 @@ AT_CHECK([tcsh -f -c 'logout'], 1, [], [Not a login shell. ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([ls-F]) @@ -883,7 +892,7 @@ lnowhere@ pipe| ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([migrate]) @@ -898,7 +907,7 @@ AT_CHECK([tcsh -f -c 'nice set var=1; echo $?var'], , ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([nohup]) @@ -915,7 +924,7 @@ AT_CHECK([tcsh -f -c 'onintr -; nohup tcsh -f nohup.csh' < /dev/null], , [OK ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([notify]) @@ -940,7 +949,7 @@ AT_CHECK([tcsh -f onintr.csh], , OK ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([popd]) @@ -985,7 +994,7 @@ CWD @&t@ Usage: popd [-plvn] [-|+<n>]. ]]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([printenv]) @@ -998,7 +1007,7 @@ AT_CHECK([env_var=value tcsh -f -c 'printenv' | grep env_var], , [env_var=value ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([pushd]) @@ -1065,14 +1074,14 @@ CWD / @&t@ Usage: pushd [-plvn] [-|<dir>|+<n>]. ]]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([rehash]) AT_CHECK([tcsh -f -c 'rehash']) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([repeat]) @@ -1085,10 +1094,11 @@ OK AT_CHECK([tcsh -f -c 'repeat 0 echo > file' && test -f file -a ! -s file]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([rootnode]) + TCSH_UNTESTED([sched]) # We don't want to wait for minutes, so ... @@ -1129,7 +1139,7 @@ val2a val2x [set: $my_var4 is read-only. ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([setenv]) @@ -1150,13 +1160,17 @@ AT_CHECK([tcsh -f -c 'setenv env_var value; ./output.sh'], , [value ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([setpath]) + TCSH_UNTESTED([setspath]) + TCSH_UNTESTED([settc]) + TCSH_UNTESTED([setty]) + TCSH_UNTESTED([setxvers]) @@ -1197,7 +1211,7 @@ shift: No more words. 4] ) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([source]) @@ -1236,10 +1250,11 @@ AT_DATA([unreadable.csh], chmod 000 unreadable.csh AT_CHECK([tcsh -f -c 'source unreadable.csh'], 1, [], [ignore]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([stop]) + TCSH_UNTESTED([suspend]) @@ -1296,7 +1311,7 @@ OK2 OK3 ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([telltc]) @@ -1323,7 +1338,7 @@ AT_CHECK([tcsh -f umask.csh], , 2 ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([unalias]) @@ -1336,7 +1351,7 @@ alias ]]) AT_CHECK([tcsh -f unalias.csh]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([uncomplete]) @@ -1349,17 +1364,18 @@ complete ]]) AT_CHECK([tcsh -f uncomplete.csh]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([unhash]) AT_CHECK([tcsh -f -c 'unhash']) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([universe]) + TCSH_UNTESTED([unlimit]) @@ -1375,7 +1391,7 @@ AT_CHECK([tcsh -f unset.csh], , [0 ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([unsetenv]) @@ -1389,7 +1405,7 @@ AT_CHECK([env_bar=value tcsh -f unsetenv.csh], , [ ]) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([ver]) @@ -1400,10 +1416,11 @@ AT_SETUP([wait]) # Not really... AT_CHECK([tcsh -f -c 'wait']) -AT_CLEANUP +AT_CLEANUP() TCSH_UNTESTED([warp]) + TCSH_UNTESTED([watchlog]) @@ -1423,7 +1440,7 @@ ls-F is a shell built-in CWD/ls-F ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([which]) @@ -1448,7 +1465,7 @@ this_does_not_exist: Command not found. echo: aliased to echo_alias ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([while]) @@ -1468,7 +1485,7 @@ AT_CHECK([tcsh -f while.csh], , OK ]) -AT_CLEANUP +AT_CLEANUP() AT_SETUP([jobs output]) @@ -1487,10 +1504,10 @@ endif ]]) AT_CHECK([tcsh -f jobs_stdout.csh], 0, [ignore]) -AT_CLEANUP +AT_CLEANUP() -AT_SETUP([time output]) +AT_SETUP([time output]) AT_DATA([time_output.csh], [[ @@ -1506,4 +1523,4 @@ endif ]]) AT_CHECK([tcsh -f time_output.csh], 0, [ignore]) -AT_CLEANUP +AT_CLEANUP() |