mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-27 21:33:09 +00:00
190712d4b0
Add a test harness that uses `expect` to drive Fish to test interactive behavior. Include some tests for `read`.
111 lines
3.1 KiB
Fish
Executable file
111 lines
3.1 KiB
Fish
Executable file
#!/usr/local/bin/fish
|
|
#
|
|
# Main loop of the test suite. I wrote this
|
|
# instad of using autotest to provide additional
|
|
# testing for fish. :-)
|
|
|
|
|
|
if [ "$argv" != '-n' ]
|
|
set -l res ok
|
|
|
|
# begin...end has bug in error redirecting...
|
|
begin
|
|
../fish -n ./test.fish ^top.tmp.err
|
|
../fish -n ./test.fish -n ^^top.tmp.err
|
|
../fish ./test.fish -n ^^top.tmp.err
|
|
end | tee top.tmp.out
|
|
set -l tmp_status $status
|
|
if not diff top.tmp.out top.out >/dev/null
|
|
set res fail
|
|
echo "Output differs for file test.fish. Diff follows:"
|
|
diff -u top.out top.tmp.out
|
|
end
|
|
|
|
if not diff top.tmp.err top.err >/dev/null
|
|
set res fail
|
|
echo "Error output differs for file test.fish. Diff follows:"
|
|
diff -u top.err top.tmp.err
|
|
end
|
|
|
|
if test $tmp_status -ne (cat top.status)
|
|
set res fail
|
|
echo "Exit status differs for file test.fish"
|
|
end
|
|
|
|
if not ../fish -p /dev/null -c 'echo testing' >/dev/null
|
|
set res fail
|
|
echo "Profiling failed"
|
|
end
|
|
|
|
echo "Testing interactive functionality"
|
|
# bug: `fish -n` throws errors on fishscript functions that don't shadow real commands,
|
|
# so we can't use `type -q expect` here.
|
|
if command -s expect >/dev/null
|
|
# we have expect, we can run the interactive tests
|
|
begin
|
|
../fish -n ./interactive.fish ^interactive.tmp.err
|
|
../fish ./interactive.fish ^^interactive.tmp.err
|
|
end | tee interactive.tmp.out
|
|
set -l tmp_status $status
|
|
if not diff interactive.tmp.out interactive.out >/dev/null
|
|
set res fail
|
|
echo "Output differs for file interactive.fish"
|
|
end
|
|
|
|
if not diff interactive.tmp.err interactive.err >/dev/null
|
|
set res fail
|
|
echo "Error output differs for file interactive.fish"
|
|
end
|
|
|
|
if test $tmp_status -ne (cat interactive.status)
|
|
set res fail
|
|
echo "Exit status differs for file interactive.fish"
|
|
end
|
|
else
|
|
echo "Tests disabled: `expect` not found"
|
|
end
|
|
|
|
if test $res = ok
|
|
echo "File test.fish tested ok"
|
|
exit 0
|
|
else
|
|
echo "File test.fish failed tests"
|
|
exit 1
|
|
end
|
|
end
|
|
|
|
echo "Testing high level script functionality"
|
|
|
|
for i in *.in
|
|
set -l res ok
|
|
|
|
set -l base (basename $i .in)
|
|
set template_out (basename $i .in).out
|
|
set template_err (basename $i .in).err
|
|
set template_status (basename $i .in).status
|
|
|
|
../fish <$i >tmp.out ^tmp.err
|
|
set -l tmp_status $status
|
|
if not diff tmp.out $base.out >/dev/null
|
|
set res fail
|
|
echo "Output differs for file $i. Diff follows:"
|
|
diff -u tmp.out $base.out
|
|
end
|
|
|
|
if not diff tmp.err $base.err >/dev/null
|
|
set res fail
|
|
echo "Error output differs for file $i. Diff follows:"
|
|
diff -u tmp.err $base.err
|
|
end
|
|
|
|
if test $tmp_status -ne (cat $template_status)
|
|
set res fail
|
|
echo "Exit status differs for file $i"
|
|
end
|
|
|
|
if test $res = ok
|
|
echo "File $i tested ok"
|
|
else
|
|
echo "File $i failed tests"
|
|
end
|
|
end
|