mirror of
https://github.com/fish-shell/fish-shell.git
synced 2024-11-24 12:35:44 +08:00
a3e0d64e88
`env -u` is not supported on all platforms we support (e.g. macOS/OS X 10.10). We don't need these variables erased, blanked works just fine.
1017 lines
26 KiB
Fish
1017 lines
26 KiB
Fish
# Explicitly overriding HOME/XDG_CONFIG_HOME is only required if not invoking via `make test`
|
|
# RUN: env FISH=%fish %fish -C 'set -l filter_ctrls %filter-control-sequences' %s
|
|
# Environment variable tests
|
|
|
|
# Test if variables can be properly set
|
|
|
|
set smurf blue
|
|
|
|
if test $smurf = blue
|
|
echo Test 1 pass
|
|
else
|
|
echo Test 1 fail
|
|
end
|
|
# CHECK: Test 1 pass
|
|
|
|
# Test if variables can be erased
|
|
|
|
set -e smurf
|
|
if set -q smurf
|
|
echo Test 2 fail
|
|
else
|
|
echo Test 2 pass
|
|
end
|
|
# CHECK: Test 2 pass
|
|
|
|
# Test if local variables go out of scope
|
|
|
|
set -e t3
|
|
if true
|
|
set -l t3 bar
|
|
end
|
|
|
|
if set -q t3
|
|
echo Test 3 fail
|
|
else
|
|
echo Test 3 pass
|
|
end
|
|
# CHECK: Test 3 pass
|
|
|
|
# Test if globals can be set in block scope
|
|
|
|
if true
|
|
set -g baz qux
|
|
end
|
|
|
|
if test $baz = qux
|
|
echo Test 4 pass
|
|
else
|
|
echo Test 4 fail
|
|
end
|
|
# CHECK: Test 4 pass
|
|
|
|
|
|
#Test that scope is preserved when setting a new value
|
|
|
|
set t5 a
|
|
|
|
if true
|
|
set t5 b
|
|
end
|
|
|
|
if test $t5 = b
|
|
echo Test 5 pass
|
|
else
|
|
echo Test 5 fail
|
|
end
|
|
# CHECK: Test 5 pass
|
|
|
|
# Test that scope is preserved in double blocks
|
|
|
|
for i in 1
|
|
set t6 $i
|
|
for j in a
|
|
if test $t6$j = 1a
|
|
echo Test 6 pass
|
|
else
|
|
echo Test 6 fail
|
|
end
|
|
end
|
|
end
|
|
# CHECK: Test 6 pass
|
|
|
|
|
|
# Test if variables in for loop blocks do not go out of scope on new laps
|
|
|
|
set res fail
|
|
|
|
set -e t7
|
|
for i in 1 2
|
|
if test $i = 1
|
|
set t7 lala
|
|
else
|
|
if test $t7
|
|
set res pass
|
|
end
|
|
end
|
|
end
|
|
|
|
echo Test 7 $res
|
|
# CHECK: Test 7 pass
|
|
|
|
# Test if variables are properly exported
|
|
|
|
set -e t8
|
|
if true
|
|
set -lx t8 foo
|
|
if test ($FISH -c "echo $t8") = foo
|
|
echo Test 8 pass
|
|
else
|
|
echo Test 8 fail
|
|
end
|
|
end
|
|
# CHECK: Test 8 pass
|
|
|
|
# Test if exported variables go out of scope
|
|
|
|
if $FISH -c "set -q t8; and exit 0; or exit 1"
|
|
echo Test 9 fail
|
|
else
|
|
echo Test 9 pass
|
|
end
|
|
# CHECK: Test 9 pass
|
|
|
|
# Test erasing variables in specific scope
|
|
|
|
set -eU __fish_test_universal_variables_variable_foo
|
|
set -g __fish_test_universal_variables_variable_foo bar
|
|
begin
|
|
set -l __fish_test_universal_variables_variable_foo baz
|
|
set -eg __fish_test_universal_variables_variable_foo
|
|
end
|
|
|
|
if set -q __fish_test_universal_variables_variable_foo
|
|
echo Test 10 fail
|
|
else
|
|
echo Test 10 pass
|
|
end
|
|
# CHECK: Test 10 pass
|
|
|
|
set __fish_test_universal_variables_variable_foo abc def
|
|
set -e __fish_test_universal_variables_variable_foo[1]
|
|
if test $__fish_test_universal_variables_variable_foo '=' def
|
|
echo Test 11 pass
|
|
else
|
|
echo Test 11 fail
|
|
end
|
|
# CHECK: Test 11 pass
|
|
|
|
# Test combinations of export and scope
|
|
|
|
set -ge __fish_test_universal_variables_variable_foo
|
|
set -Ue __fish_test_universal_variables_variable_foo
|
|
set -Ux __fish_test_universal_variables_variable_foo bar
|
|
set __fish_test_universal_variables_variable_foo baz
|
|
if test (/bin/sh -c 'echo $__fish_test_universal_variables_variable_foo') = baz -a ($FISH -c 'echo $__fish_test_universal_variables_variable_foo') = baz
|
|
echo Test 12 pass
|
|
else
|
|
echo Test 12 fail
|
|
end
|
|
# CHECK: Test 12 pass
|
|
|
|
set -Ue __fish_test_universal_variables_variable_foo
|
|
|
|
# Should no longer be in environment (#2046)
|
|
env | string match '__fish_test_universal_variables_variable_foo=*'
|
|
|
|
set -Ux __fish_test_universal_variables_variable_foo bar
|
|
set -U __fish_test_universal_variables_variable_foo baz
|
|
if test (/bin/sh -c 'echo $__fish_test_universal_variables_variable_foo') = baz -a ($FISH -c 'echo $__fish_test_universal_variables_variable_foo') = baz
|
|
echo Test 13 pass
|
|
else
|
|
echo Test 13 fail
|
|
end
|
|
# CHECK: Test 13 pass
|
|
|
|
set -Ux __fish_test_universal_variables_variable_foo bar
|
|
set -u __fish_test_universal_variables_variable_foo bar
|
|
if test (/bin/sh -c 'echo $__fish_test_universal_variables_variable_foo') = '' -a ($FISH -c 'echo $__fish_test_universal_variables_variable_foo') = bar
|
|
echo Test 14 pass
|
|
else
|
|
echo Test 14 fail
|
|
end
|
|
# CHECK: Test 14 pass
|
|
|
|
set -Ux __fish_test_universal_variables_variable_foo bar
|
|
set -Uu __fish_test_universal_variables_variable_foo baz
|
|
if test (/bin/sh -c 'echo $__fish_test_universal_variables_variable_foo') = '' -a ($FISH -c 'echo $__fish_test_universal_variables_variable_foo') = baz
|
|
echo Test 15 pass
|
|
else
|
|
echo Test 15 fail
|
|
end
|
|
# CHECK: Test 15 pass
|
|
|
|
set -eU __fish_test_universal_variables_variable_foo
|
|
function watch_foo --on-variable __fish_test_universal_variables_variable_foo
|
|
echo Foo change detected
|
|
end
|
|
|
|
set -U __fish_test_universal_variables_variable_foo 1234
|
|
# CHECK: Foo change detected
|
|
set -eU __fish_test_universal_variables_variable_foo
|
|
# CHECK: Foo change detected
|
|
# WTF set -eg __fish_test_universal_variables_variable_foo
|
|
|
|
functions -e watch_foo
|
|
|
|
# test erasing variables without a specified scope
|
|
|
|
set -g test16res
|
|
set -U __fish_test_universal_variables_variable_foo universal
|
|
set -g __fish_test_universal_variables_variable_foo global
|
|
|
|
begin
|
|
set -l __fish_test_universal_variables_variable_foo blocklocal
|
|
|
|
function test16
|
|
set -l __fish_test_universal_variables_variable_foo function
|
|
begin
|
|
set -l __fish_test_universal_variables_variable_foo functionblock
|
|
set test16res $test16res $__fish_test_universal_variables_variable_foo
|
|
|
|
# This sequence seems pointless but it's really verifying that we
|
|
# successfully expose higher scopes as we erase the closest scope.
|
|
set -e __fish_test_universal_variables_variable_foo
|
|
set test16res $test16res $__fish_test_universal_variables_variable_foo
|
|
|
|
set -e __fish_test_universal_variables_variable_foo
|
|
set test16res $test16res $__fish_test_universal_variables_variable_foo
|
|
|
|
set -e __fish_test_universal_variables_variable_foo
|
|
set test16res $test16res $__fish_test_universal_variables_variable_foo
|
|
|
|
set -e __fish_test_universal_variables_variable_foo
|
|
set -q __fish_test_universal_variables_variable_foo
|
|
and set test16res $test16res $__fish_test_universal_variables_variable_foo
|
|
end
|
|
|
|
set -q __fish_test_universal_variables_variable_foo
|
|
and echo __fish_test_universal_variables_variable_foo should set after test16 inner begin..end
|
|
end
|
|
|
|
test16
|
|
set test16res $test16res $__fish_test_universal_variables_variable_foo
|
|
end
|
|
# CHECK: count:5 content:[functionblock function global universal blocklocal]
|
|
|
|
set -q __fish_test_universal_variables_variable_foo
|
|
and echo __fish_test_universal_variables_variable_foo should set after test16 outer begin..end
|
|
|
|
echo count:(count $test16res) "content:[$test16res]"
|
|
if test (count $test16res) = 5 -a "$test16res" = "functionblock function global universal blocklocal"
|
|
echo Test 16 pass
|
|
else
|
|
echo Test 16 fail
|
|
end
|
|
# CHECK: Test 16 pass
|
|
|
|
# Test that shadowing with a non-exported variable works
|
|
set -gx __fish_test_env17 UNSHADOWED
|
|
env | string match '__fish_test_env17=*'
|
|
# CHECK: __fish_test_env17=UNSHADOWED
|
|
|
|
function __fish_test_shadow
|
|
set -l __fish_test_env17
|
|
env | string match -q '__fish_test_env17=*'; or echo SHADOWED
|
|
end
|
|
__fish_test_shadow
|
|
# CHECK: SHADOWED
|
|
|
|
# Test that the variable is still exported (#2611)
|
|
env | string match '__fish_test_env17=*'
|
|
# CHECK: __fish_test_env17=UNSHADOWED
|
|
|
|
# Test that set var (command substitution) works with if/while.
|
|
|
|
if set fish_test_18 (false)
|
|
echo Test 18 fail
|
|
else
|
|
echo Test 18 pass
|
|
end
|
|
# CHECK: Test 18 pass
|
|
|
|
if not set fish_test_18 (true)
|
|
echo Test 18 fail
|
|
else
|
|
echo Test 18 pass
|
|
end
|
|
# CHECK: Test 18 pass
|
|
|
|
set __fish_test_18_status pass
|
|
while set fish_test_18 (false); or not set fish_test_18 (true)
|
|
set __fish_test_18_status fail
|
|
break
|
|
end
|
|
echo Test 18 $__fish_test_18_status
|
|
# CHECK: Test 18 pass
|
|
|
|
# Test that local exported variables are copied to functions (#1091)
|
|
function __fish_test_local_export
|
|
echo $var
|
|
set var boo
|
|
echo $var
|
|
end
|
|
set -lx var wuwuwu
|
|
__fish_test_local_export
|
|
# CHECK: wuwuwu
|
|
# CHECK: boo
|
|
echo $var
|
|
# CHECK: wuwuwu
|
|
|
|
# Test that we don't copy local-exports to blocks.
|
|
set -lx var foo
|
|
begin
|
|
echo $var
|
|
# CHECK: foo
|
|
set var bar
|
|
echo $var
|
|
# CHECK: bar
|
|
end
|
|
echo $var # should be "bar"
|
|
# CHECK: bar
|
|
|
|
# clear for other shells
|
|
set -eU __fish_test_universal_variables_variable_foo
|
|
|
|
# Test behavior of universals on startup (#1526)
|
|
echo Testing Universal Startup
|
|
# CHECK: Testing Universal Startup
|
|
set -U testu 0
|
|
$FISH -c 'set -U testu 1'
|
|
echo $testu
|
|
# CHECK: 1
|
|
$FISH -c 'set -q testu; and echo $testu'
|
|
# CHECK: 1
|
|
|
|
$FISH -c 'set -U testu 2'
|
|
echo $testu
|
|
# CHECK: 2
|
|
$FISH -c 'set -q testu; and echo $testu'
|
|
# CHECK: 2
|
|
|
|
$FISH -c 'set -e testu'
|
|
set -q testu
|
|
or echo testu undef in top level shell
|
|
# CHECK: testu undef in top level shell
|
|
$FISH -c 'set -q testu; or echo testu undef in sub shell'
|
|
# CHECK: testu undef in sub shell
|
|
|
|
begin
|
|
# test SHLVL
|
|
# use a subshell to ensure a clean slate
|
|
env SHLVL= $FISH -ic 'echo SHLVL: $SHLVL; $FISH -ic \'echo SHLVL: $SHLVL\''
|
|
# CHECK: SHLVL: 1
|
|
# CHECK: SHLVL: 2
|
|
|
|
# exec should decrement SHLVL - outer fish increments by 1, decrements for exec,
|
|
# inner fish increments again so the value stays the same.
|
|
env SHLVL=1 $FISH -ic 'echo SHLVL: $SHLVL; exec $FISH -ic \'echo SHLVL: $SHLVL\''
|
|
# CHECK: SHLVL: 2
|
|
# CHECK: SHLVL: 2
|
|
|
|
# garbage SHLVLs should be treated as garbage
|
|
env SHLVL=3foo $FISH -ic 'echo SHLVL: $SHLVL'
|
|
# CHECK: SHLVL: 1
|
|
|
|
# whitespace is allowed though (for bash compatibility)
|
|
env SHLVL="3 " $FISH -ic 'echo SHLVL: $SHLVL'
|
|
env SHLVL=" 3" $FISH -ic 'echo SHLVL: $SHLVL'
|
|
# CHECK: SHLVL: 4
|
|
# CHECK: SHLVL: 4
|
|
end | $filter_ctrls
|
|
|
|
# Non-interactive fish doesn't touch $SHLVL
|
|
env SHLVL=2 $FISH -c 'echo SHLVL: $SHLVL'
|
|
# CHECK: SHLVL: 2
|
|
env SHLVL=banana $FISH -c 'echo SHLVL: $SHLVL'
|
|
# CHECK: SHLVL: banana
|
|
|
|
# Test transformation of inherited variables
|
|
env DISPLAY="localhost:0.0" $FISH -c 'echo Elements in DISPLAY: (count $DISPLAY)'
|
|
# CHECK: Elements in DISPLAY: 1
|
|
|
|
# We can't use PATH for this because the global configuration will modify PATH
|
|
# based on /etc/paths and /etc/paths.d.
|
|
# Exported arrays are colon delimited; they are automatically split on colons if they end in PATH.
|
|
set -gx FOO one two three four
|
|
set -gx FOOPATH one two three four
|
|
$FISH -c 'echo Elements in FOO and FOOPATH: (count $FOO) (count $FOOPATH)'
|
|
# CHECK: Elements in FOO and FOOPATH: 1 4
|
|
|
|
# some must use colon separators!
|
|
set -lx MANPATH man1 man2 man3
|
|
env | grep '^MANPATH='
|
|
# CHECK: MANPATH=man1:man2:man3
|
|
|
|
# ensure we don't escape space and colon values
|
|
set -x DONT_ESCAPE_COLONS 1: 2: :3:
|
|
env | grep '^DONT_ESCAPE_COLONS='
|
|
# CHECK: DONT_ESCAPE_COLONS=1: 2: :3:
|
|
|
|
set -x DONT_ESCAPE_SPACES '1 ' '2 ' ' 3 ' 4
|
|
env | grep '^DONT_ESCAPE_SPACES='
|
|
# CHECK: DONT_ESCAPE_SPACES=1 2 3 4
|
|
|
|
set -x DONT_ESCAPE_COLONS_PATH 1: 2: :3:
|
|
env | grep '^DONT_ESCAPE_COLONS_PATH='
|
|
# CHECK: DONT_ESCAPE_COLONS_PATH=1::2:::3:
|
|
|
|
|
|
# Path universal variables
|
|
set -U __fish_test_path_not a b c
|
|
set -U __fish_test_PATH 1 2 3
|
|
echo "$__fish_test_path_not $__fish_test_PATH" $__fish_test_path_not $__fish_test_PATH
|
|
# CHECK: a b c 1:2:3 a b c 1 2 3
|
|
|
|
set --unpath __fish_test_PATH $__fish_test_PATH
|
|
echo "$__fish_test_path_not $__fish_test_PATH" $__fish_test_path_not $__fish_test_PATH
|
|
# CHECK: a b c 1 2 3 a b c 1 2 3
|
|
|
|
set -q --path __fish_test_PATH
|
|
and echo __fish_test_PATH is a pathvar
|
|
or echo __fish_test_PATH is not a pathvar
|
|
# CHECK: __fish_test_PATH is not a pathvar
|
|
|
|
set -q --unpath __fish_test_PATH
|
|
and echo __fish_test_PATH is not a pathvar
|
|
or echo __fish_test_PATH is not not a pathvar
|
|
# CHECK: __fish_test_PATH is not a pathvar
|
|
|
|
set --path __fish_test_path_not $__fish_test_path_not
|
|
echo "$__fish_test_path_not $__fish_test_PATH" $__fish_test_path_not $__fish_test_PATH
|
|
# CHECK: a:b:c 1 2 3 a b c 1 2 3
|
|
|
|
set -q --path __fish_test_path_not
|
|
and echo __fish_test_path_not is a pathvar
|
|
or echo __fish_test_path_not is not a pathvar
|
|
# CHECK: __fish_test_path_not is a pathvar
|
|
|
|
set -q --unpath __fish_test_path_not
|
|
and echo __fish_test_path_not is not a pathvar
|
|
or echo __fish_test_path_not is not not a pathvar
|
|
# CHECK: __fish_test_path_not is not not a pathvar
|
|
|
|
set --path __fish_test_PATH $__fish_test_PATH
|
|
echo "$__fish_test_path_not $__fish_test_PATH" $__fish_test_path_not $__fish_test_PATH
|
|
# CHECK: a:b:c 1:2:3 a b c 1 2 3
|
|
|
|
set -U __fish_test_PATH 1:2:3
|
|
echo "$__fish_test_PATH" $__fish_test_PATH
|
|
# CHECK: 1:2:3 1 2 3
|
|
|
|
set -e __fish_test_PATH
|
|
set -e __fish_test_path_not
|
|
|
|
set -U --path __fish_test_path2 a:b
|
|
echo "$__fish_test_path2" $__fish_test_path2
|
|
# CHECK: a:b a b
|
|
|
|
set -e __fish_test_path2
|
|
|
|
# Test empty uvars (#5992)
|
|
set -Ux __fish_empty_uvar
|
|
set -Uq __fish_empty_uvar
|
|
echo $status
|
|
# CHECK: 0
|
|
$FISH -c 'set -Uq __fish_empty_uvar; echo $status'
|
|
# CHECK: 0
|
|
env | grep __fish_empty_uvar
|
|
# CHECK: __fish_empty_uvar=
|
|
|
|
# Variable names in other commands
|
|
# Test invalid variable names in loops (#5800)
|
|
for a,b in y 1 z 3
|
|
echo $a,$b
|
|
end
|
|
# CHECKERR: {{.*}} for: a,b: invalid variable name. See `help identifiers`
|
|
# CHECKERR: for a,b in y 1 z 3
|
|
# CHECKERR: ^~^
|
|
|
|
# Global vs Universal Unspecified Scopes
|
|
set -U __fish_test_global_vs_universal universal
|
|
echo "global-vs-universal 1: $__fish_test_global_vs_universal"
|
|
# CHECK: global-vs-universal 1: universal
|
|
|
|
set -g __fish_test_global_vs_universal global
|
|
echo "global-vs-universal 2: $__fish_test_global_vs_universal"
|
|
# CHECK: global-vs-universal 2: global
|
|
|
|
|
|
set __fish_test_global_vs_universal global2
|
|
echo "global-vs-universal 3: $__fish_test_global_vs_universal"
|
|
# CHECK: global-vs-universal 3: global2
|
|
|
|
set -e -g __fish_test_global_vs_universal
|
|
echo "global-vs-universal 4: $__fish_test_global_vs_universal"
|
|
# CHECK: global-vs-universal 4: universal
|
|
|
|
set -e -U __fish_test_global_vs_universal
|
|
echo "global-vs-universal 5: $__fish_test_global_vs_universal"
|
|
# CHECK: global-vs-universal 5:
|
|
|
|
# Export local variables from all parent scopes (issue #6153).
|
|
function func
|
|
echo $local
|
|
end
|
|
set -lx local outer
|
|
func
|
|
# CHECK: outer
|
|
begin
|
|
func
|
|
# CHECK: outer
|
|
|
|
set -lx local inner
|
|
begin
|
|
func
|
|
end
|
|
# CHECK: inner
|
|
end
|
|
|
|
# Skip importing universal variables (#5258)
|
|
while set -q EDITOR
|
|
set -e EDITOR
|
|
end
|
|
set -Ux EDITOR emacs -nw
|
|
# CHECK: $EDITOR: set in universal scope, exported, with 2 elements
|
|
$FISH -c 'set -S EDITOR' | string match -r -e 'global|universal'
|
|
|
|
# When the variable has been changed outside of fish we accept it.
|
|
# CHECK: $EDITOR: set in global scope, exported, with 1 elements
|
|
# CHECK: $EDITOR: set in universal scope, exported, with 2 elements
|
|
sh -c "EDITOR='vim -g' $FISH -c "'\'set -S EDITOR\'' | string match -r -e 'global|universal'
|
|
|
|
# Verify behavior of `set --show` given an invalid var name
|
|
set --show 'argle bargle'
|
|
#CHECKERR: set: argle bargle: invalid variable name. See `help identifiers`
|
|
#CHECKERR: {{.*}}set.fish (line {{\d+}}):
|
|
#CHECKERR: set --show 'argle bargle'
|
|
#CHECKERR: ^
|
|
#CHECKERR: (Type 'help set' for related documentation)
|
|
|
|
# Verify behavior of `set --show`
|
|
set semiempty ''
|
|
set --show semiempty
|
|
#CHECK: $semiempty: set in global scope, unexported, with 1 elements
|
|
#CHECK: $semiempty[1]: ||
|
|
|
|
set -U var1 hello
|
|
set --show var1
|
|
#CHECK: $var1: set in universal scope, unexported, with 1 elements
|
|
#CHECK: $var1[1]: |hello|
|
|
|
|
set -l var1
|
|
set -g var1 goodbye "and don't come back"
|
|
set --show var1
|
|
#CHECK: $var1: set in local scope, unexported, with 0 elements
|
|
#CHECK: $var1: set in global scope, unexported, with 2 elements
|
|
#CHECK: $var1[1]: |goodbye|
|
|
#CHECK: $var1[2]: |and don't come back|
|
|
#CHECK: $var1: set in universal scope, unexported, with 1 elements
|
|
#CHECK: $var1[1]: |hello|
|
|
|
|
set -g var2
|
|
set --show _unset_var var2
|
|
#CHECK: $var2: set in global scope, unexported, with 0 elements
|
|
|
|
# Appending works
|
|
set -g var3a a b c
|
|
set -a var3a
|
|
set -a var3a d
|
|
set -a var3a e f
|
|
set --show var3a
|
|
#CHECK: $var3a: set in global scope, unexported, with 6 elements
|
|
#CHECK: $var3a[1]: |a|
|
|
#CHECK: $var3a[2]: |b|
|
|
#CHECK: $var3a[3]: |c|
|
|
#CHECK: $var3a[4]: |d|
|
|
#CHECK: $var3a[5]: |e|
|
|
#CHECK: $var3a[6]: |f|
|
|
set -g var3b
|
|
set -a var3b
|
|
set --show var3b
|
|
#CHECK: $var3b: set in global scope, unexported, with 0 elements
|
|
set -g var3c
|
|
set -a var3c 'one string'
|
|
set --show var3c
|
|
#CHECK: $var3c: set in global scope, unexported, with 1 elements
|
|
#CHECK: $var3c[1]: |one string|
|
|
|
|
# Prepending works
|
|
set -g var4a a b c
|
|
set -p var4a
|
|
set -p var4a d
|
|
set -p var4a e f
|
|
set --show var4a
|
|
#CHECK: $var4a: set in global scope, unexported, with 6 elements
|
|
#CHECK: $var4a[1]: |e|
|
|
#CHECK: $var4a[2]: |f|
|
|
#CHECK: $var4a[3]: |d|
|
|
#CHECK: $var4a[4]: |a|
|
|
#CHECK: $var4a[5]: |b|
|
|
#CHECK: $var4a[6]: |c|
|
|
set -g var4b
|
|
set -p var4b
|
|
set --show var4b
|
|
#CHECK: $var4b: set in global scope, unexported, with 0 elements
|
|
set -g var4c
|
|
set -p var4c 'one string'
|
|
set --show var4c
|
|
#CHECK: $var4c: set in global scope, unexported, with 1 elements
|
|
#CHECK: $var4c[1]: |one string|
|
|
|
|
# Appending and prepending at same time works
|
|
set -g var5 abc def
|
|
set -a -p var5 0 x 0
|
|
set --show var5
|
|
#CHECK: $var5: set in global scope, unexported, with 8 elements
|
|
#CHECK: $var5[1]: |0|
|
|
#CHECK: $var5[2]: |x|
|
|
#CHECK: $var5[3]: |0|
|
|
#CHECK: $var5[4]: |abc|
|
|
#CHECK: $var5[5]: |def|
|
|
#CHECK: $var5[6]: |0|
|
|
#CHECK: $var5[7]: |x|
|
|
#CHECK: $var5[8]: |0|
|
|
|
|
# Setting local scope when no local scope of the var uses the closest scope
|
|
set -g var6 ghi jkl
|
|
begin
|
|
set -l -a var6 mno
|
|
set --show var6
|
|
end
|
|
#CHECK: $var6: set in local scope, unexported, with 3 elements
|
|
#CHECK: $var6[1]: |ghi|
|
|
#CHECK: $var6[2]: |jkl|
|
|
#CHECK: $var6[3]: |mno|
|
|
#CHECK: $var6: set in global scope, unexported, with 2 elements
|
|
#CHECK: $var6[1]: |ghi|
|
|
#CHECK: $var6[2]: |jkl|
|
|
|
|
# `and` creates no new scope on its own
|
|
true; and set -l var7a 89 179
|
|
set -q var7a
|
|
echo $status
|
|
#CHECK: 0
|
|
|
|
# `begin` of an `and` creates a new scope
|
|
true; and begin
|
|
set -l var7b 359 719
|
|
end
|
|
set -q var7b
|
|
echo $status
|
|
#CHECK: 1
|
|
|
|
# `or` creates no new scope on its own
|
|
false; or set -l var8a 1439 2879
|
|
set -q var8a
|
|
echo $status
|
|
#CHECK: 0
|
|
|
|
# `begin` of an `or` creates a new scope
|
|
false; or begin
|
|
set -l var8b 9091 9901
|
|
end
|
|
set -q var8b
|
|
echo $status
|
|
#CHECK: 1
|
|
|
|
# Exporting works
|
|
set -x TESTVAR0
|
|
set -x TESTVAR1 a
|
|
set -x TESTVAR2 a b
|
|
env | grep TESTVAR | sort | cat -v
|
|
#CHECK: TESTVAR0=
|
|
#CHECK: TESTVAR1=a
|
|
#CHECK: TESTVAR2=a b
|
|
|
|
# if/for/while scope
|
|
function test_ifforwhile_scope
|
|
if set -l ifvar1 (true && echo val1)
|
|
end
|
|
if set -l ifvar2 (echo val2 && false)
|
|
end
|
|
if false
|
|
else if set -l ifvar3 (echo val3 && false)
|
|
end
|
|
while set -l whilevar1 (echo val3 ; false)
|
|
end
|
|
set --show ifvar1 ifvar2 ifvar3 whilevar1
|
|
end
|
|
test_ifforwhile_scope
|
|
#CHECK: $ifvar1: set in local scope, unexported, with 1 elements
|
|
#CHECK: $ifvar1[1]: |val1|
|
|
#CHECK: $ifvar2: set in local scope, unexported, with 1 elements
|
|
#CHECK: $ifvar2[1]: |val2|
|
|
#CHECK: $ifvar3: set in local scope, unexported, with 1 elements
|
|
#CHECK: $ifvar3[1]: |val3|
|
|
#CHECK: $whilevar1: set in local scope, unexported, with 1 elements
|
|
#CHECK: $whilevar1[1]: |val3|
|
|
|
|
# $status should always be read-only, setting it makes no sense because it's immediately overwritten.
|
|
set -g status 5
|
|
#CHECKERR: set: Tried to change the read-only variable 'status'
|
|
|
|
while set -e __fish_test_universal_exported_var
|
|
end
|
|
set -xU __fish_test_universal_exported_var 1
|
|
$FISH -c 'set __fish_test_universal_exported_var 2'
|
|
env | string match -e __fish_test_universal_exported_var
|
|
#CHECK: __fish_test_universal_exported_var=2
|
|
|
|
# Test that computed variables are global.
|
|
# If they can be set they can only be set in global scope,
|
|
# so they should only be shown in global scope.
|
|
set -S status
|
|
#CHECK: $status: set in global scope, unexported, with 1 elements (read-only)
|
|
#CHECK: $status[1]: |0|
|
|
|
|
# PWD is also read-only.
|
|
set -S PWD
|
|
#CHECK: $PWD: set in global scope, exported, with 1 elements (read-only)
|
|
#CHECK: $PWD[1]: |{{.*}}|
|
|
#CHECK: $PWD: originally inherited as |{{.*}}|
|
|
|
|
set -ql history
|
|
echo $status
|
|
#CHECK: 1
|
|
|
|
set --path newvariable foo
|
|
set -S newvariable
|
|
#CHECK: $newvariable: set in global scope, unexported, a path variable with 1 elements
|
|
#CHECK: $newvariable[1]: |foo|
|
|
|
|
set foo foo
|
|
set bar bar
|
|
set -e baz
|
|
|
|
set -e foo baz bar
|
|
echo $status
|
|
#CHECK: 4
|
|
set -S foo baz bar
|
|
|
|
set foo 1 2 3
|
|
set bar 1 2 3
|
|
|
|
set -e foo[1] bar[2]
|
|
echo $foo
|
|
#CHECK: 2 3
|
|
echo $bar
|
|
#CHECK: 1 3
|
|
|
|
|
|
# Test that `set -q` does not return 0 if there are 256 missing variables
|
|
|
|
set -lq a(seq 1 256)
|
|
echo $status
|
|
#CHECK: 255
|
|
|
|
true
|
|
|
|
set "" foo
|
|
#CHECKERR: set: : invalid variable name. See `help identifiers`
|
|
#CHECKERR: {{.*}}set.fish (line {{\d+}}):
|
|
#CHECKERR: set "" foo
|
|
#CHECKERR: ^
|
|
#CHECKERR: (Type 'help set' for related documentation)
|
|
|
|
set --show ""
|
|
#CHECKERR: set: : invalid variable name. See `help identifiers`
|
|
#CHECKERR: {{.*}}set.fish (line {{\d+}}):
|
|
#CHECKERR: set --show ""
|
|
#CHECKERR: ^
|
|
#CHECKERR: (Type 'help set' for related documentation)
|
|
|
|
set foo="ba nana"
|
|
#CHECKERR: set: foo=ba nana: invalid variable name. See `help identifiers`
|
|
#CHECKERR: set: Did you mean `set foo 'ba nana'`?
|
|
#CHECKERR: {{.*}}set.fish (line {{\d+}}):
|
|
#CHECKERR: set foo="ba nana"
|
|
#CHECKERR: ^
|
|
#CHECKERR: (Type 'help set' for related documentation)
|
|
# Test path splitting
|
|
begin
|
|
set -l PATH /usr/local/bin:/usr/bin
|
|
echo $PATH
|
|
# CHECK: /usr/local/bin /usr/bin
|
|
set -l CDPATH .:/usr
|
|
echo $CDPATH
|
|
# CHECK: . /usr
|
|
end
|
|
|
|
# Function scope:
|
|
set -f actuallystilllocal "this one is still local"
|
|
set -ql actuallystilllocal
|
|
and echo "Yep, it's local"
|
|
# CHECK: Yep, it's local
|
|
set -S actuallystilllocal
|
|
#CHECK: $actuallystilllocal: set in local scope, unexported, with 1 elements
|
|
#CHECK: $actuallystilllocal[1]: |this one is still local|
|
|
|
|
# Blocks aren't functions, "function" scope is still top-level local:
|
|
begin
|
|
set -f stilllocal "as local as the moon is wet"
|
|
echo $stilllocal
|
|
# CHECK: as local as the moon is wet
|
|
end
|
|
set -S stilllocal
|
|
#CHECK: $stilllocal: set in local scope, unexported, with 1 elements
|
|
#CHECK: $stilllocal[1]: |as local as the moon is wet|
|
|
|
|
set -g globalvar global
|
|
|
|
function test-function-scope
|
|
set -f funcvar "function"
|
|
echo $funcvar
|
|
# CHECK: function
|
|
set -S funcvar
|
|
#CHECK: $funcvar: set in local scope, unexported, with 1 elements
|
|
#CHECK: $funcvar[1]: |function|
|
|
begin
|
|
set -l funcvar "block"
|
|
echo $funcvar
|
|
# CHECK: block
|
|
set -S funcvar
|
|
#CHECK: $funcvar: set in local scope, unexported, with 1 elements
|
|
#CHECK: $funcvar[1]: |block|
|
|
end
|
|
echo $funcvar
|
|
# CHECK: function
|
|
|
|
begin
|
|
set -f funcvar2 "function from block"
|
|
echo $funcvar2
|
|
# CHECK: function from block
|
|
set -S funcvar2
|
|
#CHECK: $funcvar2: set in local scope, unexported, with 1 elements
|
|
#CHECK: $funcvar2[1]: |function from block|
|
|
end
|
|
echo $funcvar2
|
|
# CHECK: function from block
|
|
set -S funcvar2
|
|
#CHECK: $funcvar2: set in local scope, unexported, with 1 elements
|
|
#CHECK: $funcvar2[1]: |function from block|
|
|
|
|
set -l fruit banana
|
|
if true
|
|
set -f fruit orange
|
|
end
|
|
echo $fruit #orange
|
|
# function scope *is* the outermost local scope,
|
|
# so that `set -f` altered the same funcvariable as that `set -l` outside!
|
|
# CHECK: orange
|
|
|
|
set -f globalvar function
|
|
set -S globalvar
|
|
#CHECK: $globalvar: set in local scope, unexported, with 1 elements
|
|
#CHECK: $globalvar[1]: |function|
|
|
#CHECK: $globalvar: set in global scope, unexported, with 1 elements
|
|
#CHECK: $globalvar[1]: |global|
|
|
end
|
|
|
|
test-function-scope
|
|
echo $funcvar $funcvar2
|
|
# CHECK:
|
|
|
|
function erase-funcvar
|
|
set -l banana 1
|
|
begin
|
|
set -l banana 2
|
|
set -ef banana
|
|
echo $banana
|
|
# CHECK: 2
|
|
end
|
|
echo $banana
|
|
# CHECK:
|
|
end
|
|
|
|
erase-funcvar
|
|
|
|
set -f foo
|
|
set -l banana
|
|
set -g global
|
|
begin
|
|
set -qf foo
|
|
and echo foo is function scoped
|
|
# CHECK: foo is function scoped
|
|
|
|
set -l localvar414
|
|
set -qf localvar414
|
|
or echo localvar414 is not function scoped
|
|
# CHECK: localvar414 is not function scoped
|
|
|
|
set -qf banana
|
|
and echo banana is function scoped
|
|
# CHECK: banana is function scoped
|
|
|
|
set -l global
|
|
set -qf global
|
|
or echo global is not function scoped
|
|
# CHECK: global is not function scoped
|
|
end
|
|
|
|
set --query $this_is_not_set
|
|
echo $status
|
|
# CHECK: 255
|
|
|
|
set --query
|
|
echo $status
|
|
# CHECK: 255
|
|
|
|
set -U status
|
|
# CHECKERR: set: Tried to modify the special variable 'status' with the wrong scope
|
|
set -S status
|
|
# CHECK: $status: set in global scope, unexported, with 1 elements (read-only)
|
|
# CHECK: $status[1]: |2|
|
|
|
|
# See that we show inherited variables correctly:
|
|
foo=bar $FISH -c 'set foo 1 2 3; set --show foo'
|
|
# CHECK: $foo: set in global scope, exported, with 3 elements
|
|
# CHECK: $foo[1]: |1|
|
|
# CHECK: $foo[2]: |2|
|
|
# CHECK: $foo[3]: |3|
|
|
# CHECK: $foo: originally inherited as |bar|
|
|
|
|
# Verify behavior of erasing in multiple scopes simultaneously
|
|
set -U marbles global
|
|
set -g marbles global
|
|
set -l marbles local
|
|
|
|
set -eUg marbles
|
|
set -ql marbles || echo "erased in more scopes than it should!"
|
|
set -qg marbles && echo "didn't erase from global scope!"
|
|
set -qU marbles && echo "didn't erase from universal scope!"
|
|
|
|
begin
|
|
set -l secret local 4 8 15 16 23 42
|
|
set -g secret global 4 8 15 16 23 42
|
|
set -egl secret[3..5]
|
|
echo $secret
|
|
# CHECK: local 4 23 42
|
|
end
|
|
echo $secret
|
|
# CHECK: global 4 23 42
|
|
|
|
set -e
|
|
# CHECKERR: set: --erase: option requires an argument
|
|
# CHECKERR: {{.*}}set.fish (line {{\d+}}):
|
|
# CHECKERR: set -e
|
|
# CHECKERR: ^
|
|
# CHECKERR: (Type 'help set' for related documentation)
|
|
|
|
while set -e undefined
|
|
end
|
|
|
|
set -e undefined[x..]
|
|
# CHECKERR: set: Invalid index starting at 'undefined'
|
|
# CHECKERR: checks/set.fish (line 954):
|
|
# CHECKERR: set -e undefined[x..]
|
|
# CHECKERR: ^
|
|
# CHECKERR: (Type 'help set' for related documentation)
|
|
|
|
set -e undefined[1..]
|
|
set -e undefined[..]
|
|
set -e undefined[..1]
|
|
|
|
set -l negative_oob 1 2 3
|
|
set -q negative_oob[-10..1]
|
|
|
|
# --no-event
|
|
|
|
function onevent --on-variable nonevent
|
|
echo ONEVENT $argv $nonevent
|
|
end
|
|
|
|
set -g nonevent bar
|
|
set -e nonevent
|
|
|
|
# CHECK: ONEVENT VARIABLE SET nonevent bar
|
|
# CHECK: ONEVENT VARIABLE ERASE nonevent
|
|
|
|
set -g --no-event nonevent 2
|
|
set -e --no-event nonevent
|
|
set -S nonevent
|
|
|
|
set -g --no-event nonevent 3
|
|
set -e nonevent
|
|
# CHECK: ONEVENT VARIABLE ERASE nonevent
|
|
|
|
set -g nonevent 4
|
|
# CHECK: ONEVENT VARIABLE SET nonevent 4
|
|
set -e --no-event nonevent
|
|
|
|
set -l nonevent 4
|
|
set -e nonevent
|
|
# CHECK: ONEVENT VARIABLE SET nonevent
|
|
# CHECK: ONEVENT VARIABLE ERASE nonevent
|
|
|
|
mkdir -p empty
|
|
env XDG_CONFIG_HOME= HOME=$PWD/empty LC_ALL=en_US.UTF-8 $FISH -c 'set -Ux LC_ALL en_US.UTF-8'
|
|
env XDG_CONFIG_HOME= HOME=$PWD/empty LC_ALL=en_US.UTF-8 $FISH -c 'set -S LC_ALL'
|
|
# CHECK: $LC_ALL: set in universal scope, exported, with 1 elements
|
|
# CHECK: $LC_ALL[1]: |en_US.UTF-8|
|
|
# CHECK: $LC_ALL: originally inherited as |en_US.UTF-8|
|
|
|
|
# This used to crash
|
|
set line[0] ""
|
|
# CHECKERR: set: array index out of bounds
|
|
# CHECKERR: {{.*}}set.fish (line {{\d+}}):
|
|
# CHECKERR: set line[0] ""
|
|
# CHECKERR: ^
|
|
# CHECKERR: (Type 'help set' for related documentation)
|
|
|
|
|
|
echo Still here
|
|
# CHECK: Still here
|
|
|
|
exit 0
|