mirror of
https://github.com/fish-shell/fish-shell.git
synced 2024-12-14 18:03:38 +08:00
fd006e02da
The leading slash always needs to be present, even if there aren't any other components. This was introduced by the Rust port.
311 lines
8.0 KiB
Fish
311 lines
8.0 KiB
Fish
# RUN: %fish -C 'set -g fish %fish' %s
|
|
|
|
set -g fish (realpath $fish)
|
|
|
|
# Store pwd to later go back before cleaning up
|
|
set -l oldpwd (pwd)
|
|
|
|
set -l tmp (mktemp -d)
|
|
cd $tmp
|
|
# resolve CDPATH (issue 6220)
|
|
begin
|
|
mkdir -p x
|
|
# CHECK: /{{.*}}/x
|
|
cd x
|
|
pwd
|
|
|
|
# CHECK: /{{.*}}/x
|
|
set -lx CDPATH ..
|
|
cd x
|
|
pwd
|
|
end
|
|
cd $oldpwd
|
|
rm -rf $tmp
|
|
|
|
# Create a test directory to store our stuff.
|
|
# macOS likes to return symlinks from (mktemp -d), make sure it does not.
|
|
set -l base (realpath (mktemp -d))
|
|
set real (realpath (mktemp -d))
|
|
set link $base/link
|
|
ln -s $real $link
|
|
cd $link
|
|
prevd
|
|
nextd
|
|
test "$PWD" = "$link" || echo "\$PWD != \$link:"\n "\$PWD: $PWD"\n "\$link: $link"\n
|
|
test (pwd) = "$link" || echo "(pwd) != \$link:"\n "\$PWD: "(pwd)\n "\$link: $link"\n
|
|
test (pwd -P) = "$real" || echo "(pwd -P) != \$real:"\n "\$PWD: $PWD"\n "\$real: $real"\n
|
|
test (pwd -P -L) = "$link" || echo "(pwd -P -L) != \$link:"\n "\$PWD: $PWD"\n "\$link: $link"\n
|
|
# Expect no output on success.
|
|
|
|
# Create a symlink and verify logical completion.
|
|
# create directory $base/through/the/looking/glass
|
|
# symlink $base/somewhere/teleport -> $base/through/the/looking/glass
|
|
# verify that .. completions work
|
|
cd $base
|
|
mkdir -p $base/through/the/looking/glass
|
|
|
|
mkdir -p $base/somewhere
|
|
mkdir $base/somewhere/a1
|
|
mkdir $base/somewhere/a2
|
|
mkdir $base/somewhere/a3
|
|
touch $base/through/the/looking/b(seq 1 3)
|
|
mkdir $base/through/the/looking/d1
|
|
mkdir $base/through/the/looking/d2
|
|
mkdir $base/through/the/looking/d3
|
|
ln -s $base/through/the/looking/glass $base/somewhere/rabbithole
|
|
|
|
cd $base/somewhere/rabbithole
|
|
echo "ls:"
|
|
complete -C'ls ../'
|
|
#CHECK: ls:
|
|
#CHECK: ../b1
|
|
#CHECK: ../b2
|
|
#CHECK: ../b3
|
|
#CHECK: ../d1/
|
|
#CHECK: ../d2/
|
|
#CHECK: ../d3/
|
|
#CHECK: ../glass/
|
|
|
|
echo "cd:"
|
|
complete -C'cd ../'
|
|
#CHECK: cd:
|
|
#CHECK: ../a1/
|
|
#CHECK: ../a2/
|
|
#CHECK: ../a3/
|
|
#CHECK: ../rabbithole/
|
|
|
|
|
|
# PWD should be imported and respected by fish
|
|
cd $oldpwd
|
|
mkdir -p $base/realhome
|
|
ln -s $base/realhome $base/linkhome
|
|
cd $base/linkhome
|
|
set -l real_getcwd (pwd -P)
|
|
env HOME=$base/linkhome $fish -c 'echo PWD is $PWD'
|
|
#CHECK: PWD is {{.*}}/linkhome
|
|
|
|
|
|
# Do not inherit a virtual PWD that fails to resolve to getcwd (#5647)
|
|
env HOME=$base/linkhome PWD=/tmp $fish -c 'echo $PWD' | read output_pwd
|
|
test (realpath $output_pwd) = $real_getcwd
|
|
and echo "BogusPWD test 1 succeeded"
|
|
or echo "BogusPWD test 1 failed: $output_pwd vs $real_getcwd"
|
|
#CHECK: BogusPWD test 1 succeeded
|
|
|
|
env HOME=$base/linkhome PWD=/path/to/nowhere $fish -c 'echo $PWD' | read output_pwd
|
|
test (realpath $output_pwd) = $real_getcwd
|
|
and echo "BogusPWD test 2 succeeded"
|
|
or echo "BogusPWD test 2 failed: $output_pwd vs $real_getcwd"
|
|
#CHECK: BogusPWD test 2 succeeded
|
|
|
|
# $CDPATH
|
|
set -g CDPATH $base
|
|
cd linkhome
|
|
test $PWD = $base/linkhome; and echo Gone to linkhome via CDPATH
|
|
#CHECK: Gone to linkhome via CDPATH
|
|
|
|
set -g CDPATH /tmp
|
|
cd $base
|
|
test $PWD = $base; and echo Gone to base
|
|
#CHECK: Gone to base
|
|
|
|
cd linkhome
|
|
test $PWD = $base/linkhome; and echo Gone to linkhome via implicit . in CDPATH
|
|
#CHECK: Gone to linkhome via implicit . in CDPATH
|
|
|
|
set -g CDPATH ./
|
|
cd $base
|
|
test $PWD = $base; and echo No crash with ./ CDPATH
|
|
#CHECK: No crash with ./ CDPATH
|
|
|
|
# test for directories beginning with a hyphen
|
|
mkdir $base/-testdir
|
|
cd $base
|
|
cd -- -testdir
|
|
test $PWD = $base/-testdir
|
|
echo $status
|
|
#CHECK: 0
|
|
|
|
# test a few error cases - nonexistent directory
|
|
set -l old_cdpath $CDPATH
|
|
set -l old_path $PWD
|
|
cd nonexistent
|
|
#CHECKERR: cd: The directory 'nonexistent' does not exist
|
|
#CHECKERR: {{.*}}/cd.fish (line {{\d+}}):
|
|
#CHECKERR: builtin cd $argv
|
|
#CHECKERR: ^
|
|
#CHECKERR: in function 'cd' with arguments 'nonexistent'
|
|
#CHECKERR: called on line {{\d+}} of file {{.*}}/cd.fish
|
|
|
|
touch file
|
|
cd file
|
|
#CHECKERR: cd: 'file' is not a directory
|
|
#CHECKERR: {{.*}}/cd.fish (line {{\d+}}):
|
|
#CHECKERR: builtin cd $argv
|
|
#CHECKERR: ^
|
|
#CHECKERR: in function 'cd' with arguments 'file'
|
|
#CHECKERR: called on line {{\d+}} of file {{.*}}/cd.fish
|
|
|
|
# a directory that isn't executable
|
|
mkdir bad-perms
|
|
chmod -x bad-perms
|
|
cd bad-perms
|
|
#CHECKERR: cd: Permission denied: 'bad-perms'
|
|
#CHECKERR: {{.*}}/cd.fish (line {{\d+}}):
|
|
#CHECKERR: builtin cd $argv
|
|
#CHECKERR: ^
|
|
#CHECKERR: in function 'cd' with arguments 'bad-perms'
|
|
#CHECKERR: called on line {{\d+}} of file {{.*}}/cd.fish
|
|
|
|
cd $old_path
|
|
mkdir -p cdpath-dir/bad-perms
|
|
mkdir -p cdpath-dir/nonexistent
|
|
mkdir -p cdpath-dir/file
|
|
set CDPATH $PWD/cdpath-dir $old_cdpath
|
|
|
|
# See that the completions also check the current directory
|
|
complete -C'cd ' | string match -q cdpath-dir/
|
|
and echo cdpath-dir is in
|
|
# CHECK: cdpath-dir is in
|
|
|
|
# A different directory with the same name that is first in $CDPATH works.
|
|
cd bad-perms
|
|
cd $old_path
|
|
cd nonexistent
|
|
cd $old_path
|
|
cd file
|
|
cd $old_path
|
|
|
|
# Even if the good dirs are later in $CDPATH most errors still aren't a problem
|
|
# - they just cause us to keep looking.
|
|
cd $old_path
|
|
set CDPATH $old_cdpath $PWD/cdpath-dir
|
|
cd nonexistent
|
|
cd $old_path
|
|
cd bad-perms
|
|
# Permission errors are still a problem!
|
|
#CHECKERR: cd: Permission denied: 'bad-perms'
|
|
#CHECKERR: {{.*}}/cd.fish (line {{\d+}}):
|
|
#CHECKERR: builtin cd $argv
|
|
#CHECKERR: ^
|
|
#CHECKERR: in function 'cd' with arguments 'bad-perms'
|
|
#CHECKERR: called on line {{\d+}} of file {{.*}}/cd.fish
|
|
cd $old_path
|
|
cd file
|
|
cd $old_path
|
|
|
|
# Test that going up to the root directory using .. works
|
|
cd /(string split --no-empty -f 1 / (pwd))
|
|
cd ..
|
|
pwd
|
|
#CHECK: /
|
|
|
|
# cd back before removing the test directory again.
|
|
cd $oldpwd
|
|
rm -Rf $base
|
|
set -g CDPATH ./
|
|
|
|
# Verify that PWD on-variable events are sent
|
|
function __fish_test_changed_pwd --on-variable PWD
|
|
echo "Changed to $PWD"
|
|
end
|
|
cd /
|
|
functions --erase __fish_test_changed_pwd
|
|
#CHECK: Changed to /
|
|
|
|
# Verify that cds don't stomp on each other.
|
|
function __fish_test_thrash_cd
|
|
set -l dir (mktemp -d)
|
|
cd $dir
|
|
for i in (seq 50)
|
|
test (/bin/pwd) = $dir
|
|
and test $PWD = $dir
|
|
or echo "cd test failed" 1>&2
|
|
sleep .002
|
|
end
|
|
end
|
|
__fish_test_thrash_cd |
|
|
__fish_test_thrash_cd |
|
|
__fish_test_thrash_cd |
|
|
__fish_test_thrash_cd |
|
|
__fish_test_thrash_cd
|
|
|
|
cd ""
|
|
# CHECKERR: cd: Empty directory '' does not exist
|
|
# CHECKERR: {{.*}}/cd.fish (line {{\d+}}):
|
|
# CHECKERR: builtin cd $argv
|
|
# CHECKERR: ^
|
|
# CHECKERR: in function 'cd' with arguments '""'
|
|
# CHECKERR: called on line {{\d+}} of file {{.*}}/cd.fish
|
|
echo $status
|
|
# CHECK: 1
|
|
|
|
cd (mktemp -d)
|
|
ln -s no/such/directory broken-symbolic-link
|
|
begin
|
|
set -lx CDPATH
|
|
cd broken-symbolic-link
|
|
end
|
|
# CHECKERR: cd: '{{.*}}/broken-symbolic-link' is a broken symbolic link to 'no/such/directory'
|
|
# CHECKERR: {{.*}}/cd.fish (line {{\d+}}):
|
|
# CHECKERR: builtin cd $argv
|
|
# CHECKERR: ^
|
|
# CHECKERR: in function 'cd' with arguments 'broken-symbolic-link'
|
|
# CHECKERR: called on line {{\d+}} of file {{.*}}/cd.fish
|
|
|
|
# Make sure that "broken symlink" is reported over "no such file or directory".
|
|
begin
|
|
set -lx CDPATH other
|
|
cd broken-symbolic-link
|
|
end
|
|
# CHECKERR: cd: '{{.*}}/broken-symbolic-link' is a broken symbolic link to 'no/such/directory'
|
|
# CHECKERR: {{.*}}/cd.fish (line {{\d+}}):
|
|
# CHECKERR: builtin cd $argv
|
|
# CHECKERR: ^
|
|
# CHECKERR: in function 'cd' with arguments 'broken-symbolic-link'
|
|
# CHECKERR: called on line {{\d+}} of file {{.*}}/cd.fish
|
|
|
|
begin
|
|
mkdir -p foo/bar/muf
|
|
set -lx CDPATH foo/bar
|
|
cd muf
|
|
echo $PWD | grep -q ^/ && echo '$PWD is absolute'
|
|
# CHECK: $PWD is absolute
|
|
cd ../../..
|
|
end
|
|
|
|
complete -C'cd .'
|
|
# CHECK: ../
|
|
# CHECK: ./
|
|
|
|
# Check that cd works with minimal permissions (issue #10432).
|
|
# This is first supported on macOS 12.
|
|
# `sysctl kern.osproductversion` emits something like:
|
|
# kern.osproductversion: 14.3.1
|
|
# Note that there is no kern.osproductversion under older OS X releases!
|
|
if test (uname) = "Darwin" && test (sysctl kern.osproductversion 2>/dev/null | string match -r \\d+; or echo 10) -lt 12
|
|
# Not supported. Satisfy the CHECKs below.
|
|
echo fake/a
|
|
echo fake/a/b
|
|
echo c
|
|
else
|
|
set -l oldpwd (pwd)
|
|
set -l tmp (mktemp -d)
|
|
cd $tmp
|
|
mkdir -p a/b/c
|
|
chmod -r a
|
|
|
|
cd a; pwd
|
|
# CHECK: {{.*}}/a
|
|
|
|
cd b
|
|
pwd
|
|
ls
|
|
# CHECK: {{.*}}/a/b
|
|
# CHECK: c
|
|
|
|
cd $oldpwd
|
|
chmod -R +rx $tmp # we must be able to list the directory to delete its children
|
|
rm -rf $tmp
|
|
end
|