mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-28 22:03:12 +00:00
8bf8b10f68
See the changelog additions for user-visible changes. Since we enable/disable terminal protocols whenever we pass terminal ownership, tests can no longer run in parallel on the same terminal. For the same reason, readline shortcuts in the gdb REPL will not work anymore. As a remedy, use gdbserver, or lobby for CSI u support in libreadline. Add sleep to some tests, otherwise they fall (both in CI and locally). There are two weird failures on FreeBSD remaining, disable them for now https://github.com/fish-shell/fish-shell/pull/10359/checks?check_run_id=23330096362 Design and implementation borrows heavily from Kakoune. In future, we should try to implement more of the kitty progressive enhancements. Closes #10359
627 lines
11 KiB
Fish
627 lines
11 KiB
Fish
# RUN: %fish -C 'set -g fish %fish' %s | %filter-ctrlseqs
|
||
#
|
||
# Test function, loops, conditionals and some basic elements
|
||
#
|
||
|
||
# The test driver always starts each test in its own temporary directory, but to make it easier to
|
||
# run this test directly for whatever reason:
|
||
set -g tmpdir (mktemp -d)
|
||
|
||
# Comments in odd places don't cause problems
|
||
for i in 1 2 # Comment on same line as command
|
||
# Comment inside loop
|
||
for j in a b
|
||
# Double loop
|
||
echo $i$j
|
||
end;
|
||
end
|
||
#CHECK: 1a
|
||
#CHECK: 1b
|
||
#CHECK: 2a
|
||
#CHECK: 2b
|
||
|
||
# Escaped newlines
|
||
echo foo\ bar
|
||
echo foo\
|
||
bar
|
||
echo "foo\
|
||
bar"
|
||
echo 'foo\
|
||
bar'
|
||
#CHECK: foo bar
|
||
#CHECK: foobar
|
||
#CHECK: foobar
|
||
#CHECK: foo\
|
||
#CHECK: bar
|
||
|
||
for i in \
|
||
a b c
|
||
echo $i
|
||
end
|
||
#CHECK: a
|
||
#CHECK: b
|
||
#CHECK: c
|
||
|
||
|
||
# Simple function tests
|
||
|
||
function foo
|
||
echo > $tmpdir/fish_foo.txt $argv
|
||
end
|
||
|
||
foo hello
|
||
|
||
cat $tmpdir/fish_foo.txt |read foo
|
||
|
||
if test $foo = hello;
|
||
echo Test 2 pass
|
||
else
|
||
echo Test 2 fail
|
||
end
|
||
#CHECK: Test 2 pass
|
||
|
||
function foo
|
||
printf 'Test %s' $argv[1]; echo ' pass'
|
||
end
|
||
|
||
foo 3a
|
||
#CHECK: Test 3a pass
|
||
|
||
for i in Test for continue break and switch builtins problems;
|
||
switch $i
|
||
case Test
|
||
printf "%s " $i
|
||
case "for"
|
||
printf "%s " 3b
|
||
case "c*"
|
||
echo pass
|
||
case break
|
||
continue
|
||
echo fail
|
||
case and
|
||
break
|
||
echo fail
|
||
case "*"
|
||
echo fail
|
||
end
|
||
end
|
||
#CHECK: Test 3b pass
|
||
|
||
set -l sta
|
||
if eval true
|
||
if eval false
|
||
set sta fail
|
||
else
|
||
set sta pass
|
||
end
|
||
else
|
||
set sta fail
|
||
end
|
||
echo Test 4 $sta
|
||
#CHECK: Test 4 pass
|
||
|
||
# Testing builtin status
|
||
|
||
function test_builtin_status
|
||
return 1
|
||
end
|
||
test_builtin_status
|
||
if [ $status -eq 1 ]
|
||
set sta pass
|
||
else
|
||
set sta fail
|
||
end
|
||
echo Test 5 $sta
|
||
#CHECK: Test 5 pass
|
||
|
||
|
||
function test_builtin_status_clamp_to_255
|
||
return 300
|
||
end
|
||
test_builtin_status_clamp_to_255
|
||
echo $status
|
||
#CHECK: 255
|
||
|
||
$fish -c "exit 300"
|
||
echo $status
|
||
#CHECK: 255
|
||
|
||
####################
|
||
# echo tests
|
||
echo 'abc\ndef'
|
||
#CHECK: abc\ndef
|
||
echo -e 'abc\ndef'
|
||
#CHECK: abc
|
||
#CHECK: def
|
||
echo -e 'abc\zdef'
|
||
#CHECK: abc\zdef
|
||
echo -e 'abc\41def'
|
||
echo -e 'abc\041def'
|
||
#CHECK: abc!def
|
||
#CHECK: abc!def
|
||
echo -e 'abc\121def'
|
||
echo -e 'abc\1212def'
|
||
#CHECK: abcQdef
|
||
#CHECK: abcQ2def
|
||
echo -e 'abc\cdef' # won't output a newline!
|
||
#CHECK: abc
|
||
echo ''
|
||
echo -
|
||
#CHECK: -
|
||
echo -h
|
||
#CHECK: -h
|
||
echo -ne '\376' | display_bytes
|
||
#CHECK: 0000000 376
|
||
#CHECK: 0000001
|
||
echo -e 'abc\x21def'
|
||
echo -e 'abc\x211def'
|
||
#CHECK: abc!def
|
||
#CHECK: abc!1def
|
||
|
||
echo \UDE01
|
||
#CHECK: <20>
|
||
|
||
# Comments allowed in between lines (#1987)
|
||
echo before comment \
|
||
# comment
|
||
after comment
|
||
#CHECK: before comment after comment
|
||
|
||
# Backslashes are part of comments and do not join lines (#1255)
|
||
# This should execute false, not echo it
|
||
echo -n # comment\
|
||
false
|
||
|
||
function always_fails
|
||
if true
|
||
return 1
|
||
end
|
||
end
|
||
|
||
# Verify $argv set correctly in sourced scripts (#139)
|
||
echo 'echo "source argv {$argv}"' | source
|
||
#CHECK: source argv {}
|
||
echo 'echo "source argv {$argv}"' | source -
|
||
#CHECK: source argv {}
|
||
echo 'echo "source argv {$argv}"' | source - abc
|
||
#CHECK: source argv {abc}
|
||
echo 'echo "source argv {$argv}"' | source - abc def
|
||
#CHECK: source argv {abc def}
|
||
|
||
always_fails
|
||
echo $status
|
||
#CHECK: 1
|
||
|
||
# Test that subsequent cases do not blow away the status from previous ones
|
||
for val in one two three four
|
||
switch $val
|
||
case one
|
||
/bin/sh -c 'exit 1'
|
||
case two
|
||
/bin/sh -c 'exit 2'
|
||
case three
|
||
/bin/sh -c 'exit 3'
|
||
end
|
||
echo $status
|
||
end
|
||
#CHECK: 1
|
||
#CHECK: 2
|
||
#CHECK: 3
|
||
#CHECK: 0
|
||
|
||
# Test that the `switch` builtin itself does not blow away status before evaluating a case
|
||
false
|
||
switch one
|
||
case one
|
||
echo $status
|
||
end
|
||
#CHECK: 1
|
||
|
||
#test contains -i
|
||
contains -i string a b c string d
|
||
#CHECK: 4
|
||
contains -i string a b c d; or echo nothing
|
||
#CHECK: nothing
|
||
contains -i -- string a b c string d
|
||
#CHECK: 4
|
||
contains -i -- -- a b c; or echo nothing
|
||
#CHECK: nothing
|
||
contains -i -- -- a b c -- v
|
||
#CHECK: 4
|
||
|
||
# Test if, else, and else if
|
||
if true
|
||
echo alpha1.1
|
||
echo alpha1.2
|
||
else if false
|
||
echo beta1.1
|
||
echo beta1.2
|
||
else if false
|
||
echo gamma1.1
|
||
echo gamma1.2
|
||
else
|
||
echo delta1.1
|
||
echo delta1.2
|
||
end
|
||
#CHECK: alpha1.1
|
||
#CHECK: alpha1.2
|
||
|
||
if false
|
||
echo alpha2.1
|
||
echo alpha2.2
|
||
else if begin ; true ; end
|
||
echo beta2.1
|
||
echo beta2.2
|
||
else if begin ; echo nope2.1; false ; end
|
||
echo gamma2.1
|
||
echo gamma2.2
|
||
else
|
||
echo delta2.1
|
||
echo delta2.2
|
||
end
|
||
#CHECK: beta2.1
|
||
#CHECK: beta2.2
|
||
|
||
if false
|
||
echo alpha3.1
|
||
echo alpha3.2
|
||
else if begin ; echo yep3.1; false ; end
|
||
echo beta3.1
|
||
echo beta3.2
|
||
else if begin ; echo yep3.2; true ; end
|
||
echo gamma3.1
|
||
echo gamma3.2
|
||
else
|
||
echo delta3.1
|
||
echo delta3.2
|
||
end
|
||
#CHECK: yep3.1
|
||
#CHECK: yep3.2
|
||
#CHECK: gamma3.1
|
||
#CHECK: gamma3.2
|
||
|
||
if false
|
||
echo alpha4.1
|
||
echo alpha4.2
|
||
else if begin ; echo yep4.1; false ; end
|
||
echo beta4.1
|
||
echo beta4.2
|
||
else if begin ; echo yep4.2; false ; end
|
||
echo gamma4.1
|
||
echo gamma4.2
|
||
else
|
||
echo delta4.1
|
||
echo delta4.2
|
||
end
|
||
#CHECK: yep4.1
|
||
#CHECK: yep4.2
|
||
#CHECK: delta4.1
|
||
#CHECK: delta4.2
|
||
|
||
if test ! -n "abc"
|
||
else if test -n "def"
|
||
echo "epsilon5.2"
|
||
else if not_a_valid_command but it should be OK because a previous branch was taken
|
||
echo "epsilon 5.3"
|
||
else if test ! -n "abc"
|
||
echo "epsilon 5.4"
|
||
end
|
||
#CHECK: epsilon5.2
|
||
|
||
# Ensure builtins work
|
||
# https://github.com/fish-shell/fish-shell/issues/359
|
||
if not echo skip1 > /dev/null
|
||
echo "zeta 6.1"
|
||
else if echo skip2 > /dev/null
|
||
echo "zeta 6.2"
|
||
end
|
||
#CHECK: zeta 6.2
|
||
|
||
echo '###'
|
||
#CHECK: ###
|
||
|
||
# Ensure 'type' works
|
||
# https://github.com/fish-shell/fish-shell/issues/513
|
||
function fish_test_type_zzz
|
||
true
|
||
end
|
||
# Should succeed
|
||
type -q fish_test_type_zzz ; echo $status
|
||
#CHECK: 0
|
||
# Should fail
|
||
type -q -f fish_test_type_zzz ; echo $status
|
||
#CHECK: 1
|
||
|
||
# ensure that builtins that produce no output can still truncate files
|
||
# (bug PCA almost reintroduced!)
|
||
echo abc > $tmpdir/file_truncation_test.txt
|
||
cat $tmpdir/file_truncation_test.txt
|
||
echo -n > $tmpdir/file_truncation_test.txt
|
||
cat $tmpdir/file_truncation_test.txt
|
||
#CHECK: abc
|
||
|
||
# Test events.
|
||
|
||
|
||
# This pattern caused a crash; github issue #449
|
||
|
||
set -g var before
|
||
|
||
function test1 --on-event test
|
||
set -g var $var:test1
|
||
functions -e test2
|
||
end
|
||
|
||
function test2 --on-event test
|
||
# this should not run, as test2 gets removed before it has a chance of running
|
||
set -g var $var:test2a
|
||
end
|
||
emit test
|
||
|
||
echo $var
|
||
#CHECK: before:test1
|
||
|
||
|
||
function test3 --on-event test3
|
||
echo received event test3 with args: $argv
|
||
end
|
||
|
||
emit test3 foo bar
|
||
#CHECK: received event test3 with args: foo bar
|
||
|
||
# test empty argument
|
||
emit
|
||
#CHECKERR: emit: expected event name
|
||
|
||
# Test break and continue
|
||
# This should output Ping once
|
||
for i in a b c
|
||
if not contains $i c ; continue ; end
|
||
echo Ping
|
||
end
|
||
#CHECK: Ping
|
||
|
||
# This should output Pong not at all
|
||
for i in a b c
|
||
if not contains $i c ; break ; end
|
||
echo Pong
|
||
end
|
||
|
||
# This should output Foop three times, and Boop not at all
|
||
set i a a a
|
||
while contains $i a
|
||
set -e i[-1]
|
||
echo Foop
|
||
continue
|
||
echo Boop
|
||
end
|
||
#CHECK: Foop
|
||
#CHECK: Foop
|
||
#CHECK: Foop
|
||
|
||
# This should output Doop once
|
||
set i a a a
|
||
while contains $i a
|
||
set -e i[-1]
|
||
echo Doop
|
||
break
|
||
echo Darp
|
||
end
|
||
#CHECK: Doop
|
||
|
||
# break and continue may be dynamically invoked.
|
||
set dyn_break break
|
||
set dyn_continue continue
|
||
|
||
while true
|
||
$dyn_break
|
||
echo "I should be unreachable"
|
||
end
|
||
|
||
for foo in 1 2 3
|
||
$dyn_continue
|
||
echo "I should be unreachable"
|
||
end
|
||
|
||
# Check that these error correctly.
|
||
# Simplify __fish_print_help, as it's noisy.
|
||
function __fish_print_help
|
||
echo $argv[2..]
|
||
end
|
||
$dyn_break
|
||
eval break
|
||
#CHECKERR: break: Not inside of loop
|
||
#CHECKERR: break: Not inside of loop
|
||
$dyn_continue
|
||
eval continue
|
||
#CHECKERR: continue: Not inside of loop
|
||
#CHECKERR: continue: Not inside of loop
|
||
|
||
# Test implicit cd. This should do nothing.
|
||
./
|
||
|
||
# Test special for loop expansion
|
||
# Here we the name of the variable is derived from another variable
|
||
set var1 var2
|
||
for $var1 in 1 2 3
|
||
echo -n $var2
|
||
end
|
||
echo
|
||
#CHECK: 123
|
||
|
||
# Test status -n
|
||
eval 'status -n
|
||
status -n
|
||
status -n'
|
||
#CHECK: 1
|
||
#CHECK: 2
|
||
#CHECK: 3
|
||
|
||
# Test support for unbalanced blocks
|
||
function try_unbalanced_block
|
||
$fish -c "echo $argv | source " 2>&1 | grep "Missing end" 1>&2
|
||
end
|
||
try_unbalanced_block 'begin'
|
||
#CHECKERR: - (line 1): Missing end to balance this begin
|
||
try_unbalanced_block 'while true'
|
||
#CHECKERR: - (line 1): Missing end to balance this while loop
|
||
try_unbalanced_block 'for x in 1 2 3'
|
||
#CHECKERR: - (line 1): Missing end to balance this for loop
|
||
try_unbalanced_block 'switch abc'
|
||
#CHECKERR: - (line 1): Missing end to balance this switch statement
|
||
try_unbalanced_block 'function anything'
|
||
#CHECKERR: - (line 1): Missing end to balance this function definition
|
||
try_unbalanced_block 'if false'
|
||
#CHECKERR: - (line 1): Missing end to balance this if statement
|
||
|
||
# Ensure that quoted keywords work
|
||
'while' false; end
|
||
"while" false; end
|
||
"wh"'ile' false; "e"nd
|
||
|
||
# BOM checking (see #1518). But only in UTF8 locales.
|
||
# (locale guarded because of musl)
|
||
if command -sq locale; and string match -qi '*utf-8*' -- (locale)
|
||
echo \uFEFF"echo bom_test" | source
|
||
else
|
||
echo "echo bom_test" | source
|
||
end
|
||
#CHECK: bom_test
|
||
|
||
# Comments abutting text (#953)
|
||
echo not#a#comment
|
||
#CHECK: not#a#comment
|
||
echo is # a # comment
|
||
#CHECK: is
|
||
|
||
# Test that our builtins can all do --query
|
||
command --query cp
|
||
echo $status
|
||
#CHECK: 0
|
||
|
||
type --query cp
|
||
echo $status
|
||
#CHECK: 0
|
||
|
||
jobs --query 0
|
||
echo $status
|
||
#CHECK: 1
|
||
|
||
abbr --query thisshouldnotbeanabbreviationohmygoshitssolongwhywouldanyoneeverusethis
|
||
echo $status
|
||
#CHECK: 1
|
||
|
||
functions --query alias
|
||
echo $status
|
||
#CHECK: 0
|
||
|
||
set --query status
|
||
echo $status
|
||
#CHECK: 0
|
||
|
||
builtin --query echo
|
||
echo $status
|
||
#CHECK: 0
|
||
|
||
# Check that echo doesn't interpret options *and print them*
|
||
# at the start of quoted args:
|
||
echo '-ne \tart'
|
||
# CHECK: -ne \tart
|
||
echo '-n art'
|
||
echo banana
|
||
# CHECK: -n art
|
||
# CHECK: banana
|
||
|
||
# This used to be a parse error - #7685.
|
||
echo (echo hello\\)
|
||
# CHECK: hello\
|
||
|
||
# This used to be a parse error - #7866.
|
||
echo (echo foo;#)
|
||
)
|
||
# CHECK: foo
|
||
echo (echo bar #'
|
||
)
|
||
# CHECK: bar
|
||
echo (#"
|
||
echo baz)
|
||
# CHECK: baz
|
||
|
||
# Make sure we don't match up brackets within comments (#8022).
|
||
$fish -c 'echo f[oo # not valid, no matching ]'
|
||
# CHECKERR: fish: Unexpected end of string, square brackets do not match
|
||
# CHECKERR: echo f[oo # not valid, no matching ]
|
||
# CHECKERR: {{ }}^
|
||
|
||
# Should fail because $PWD is read-only.
|
||
for PWD in foo bar
|
||
true
|
||
end
|
||
# CHECKERR: {{.*}}/basic.fish (line {{\d+}}): for: PWD: cannot overwrite read-only variable
|
||
# CHECKERR: for PWD in foo bar
|
||
# CHECKERR: ^~^
|
||
# XXX FIXME carat should point at PWD
|
||
|
||
$fish -c 'echo \xtest'
|
||
# CHECKERR: fish: Invalid token '\xtest'
|
||
# CHECKERR: echo \xtest
|
||
# CHECKERR: ^~~~~^
|
||
|
||
$fish -c 'echo \utest'
|
||
# CHECKERR: fish: Invalid token '\utest'
|
||
# CHECKERR: echo \utest
|
||
# CHECKERR: ^~~~~^
|
||
|
||
echo $status
|
||
# CHECK: 127
|
||
|
||
$fish -c 'echo \c'
|
||
# CHECKERR: fish: Incomplete escape sequence '\c'
|
||
# CHECKERR: echo \c
|
||
# CHECKERR: ^^
|
||
|
||
echo $status
|
||
# CHECK: 127
|
||
|
||
$fish -c 'echo \C'
|
||
# CHECK: C
|
||
echo $status
|
||
# CHECK: 0
|
||
|
||
$fish -c 'echo \U'
|
||
# CHECKERR: fish: Incomplete escape sequence '\U'
|
||
# CHECKERR: echo \U
|
||
# CHECKERR: ^^
|
||
|
||
echo $status
|
||
# CHECK: 127
|
||
|
||
$fish -c 'echo \x'
|
||
# CHECKERR: fish: Incomplete escape sequence '\x'
|
||
# CHECKERR: echo \x
|
||
# CHECKERR: ^^
|
||
|
||
echo $status
|
||
# CHECK: 127
|
||
|
||
$fish -c begin
|
||
# CHECKERR: fish: Missing end to balance this begin
|
||
# CHECKERR: begin
|
||
# CHECKERR: ^~~~^
|
||
|
||
echo $status
|
||
# CHECK: 127
|
||
|
||
$fish -c 'echo \ufdd2"fart"'
|
||
# CHECKERR: fish: Invalid token '\ufdd2"fart"'
|
||
# CHECKERR: echo \ufdd2"fart"
|
||
# CHECKERR: ^~~~~~~~~~~^
|
||
|
||
echo (printf '\ufdd2foo') | string escape
|
||
# CHECK: \Xef\Xb7\X92foo
|
||
|
||
printf '%s\n' "#!/bin/sh" 'echo $0' > $tmpdir/argv0.sh
|
||
chmod +x $tmpdir/argv0.sh
|
||
cd $tmpdir
|
||
./argv0.sh
|
||
# CHECK: ./argv0.sh
|