diff options
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/misc/pwd | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/misc/pwd b/tests/misc/pwd index 74bbc224f..7975960e4 100755 --- a/tests/misc/pwd +++ b/tests/misc/pwd @@ -8,12 +8,12 @@ $PERL -e 1 > /dev/null 2>&1 || { exit 77 } -pwd=`pwd` +framework_failure=0 +pwd=`${BUILD_SRC_DIR?}/pwd` || framework_failure=1 t0=`echo "$0"|sed 's,.*/,,'`.tmp; tmp=$t0/$$ trap 'status=$?; cd $pwd; chmod -R u+rwx $t0; rm -rf $t0 && exit $status' 0 trap '(exit $?); exit $?' 1 2 13 15 -framework_failure=0 mkdir -p $tmp || framework_failure=1 cd $tmp || framework_failure=1 @@ -25,6 +25,9 @@ fi ARGV_0=$0 export ARGV_0 +CWD=$pwd/$tmp +export CWD + $PERL -w -- - <<\EOF # Show that pwd works even when the length of the resulting @@ -34,8 +37,7 @@ use Cwd; (my $ME = $ENV{ARGV_0}) =~ s|.*/||; -my $cwd = getcwd; -chomp $cwd; +my $cwd = $ENV{CWD}; my $z = 'z' x 31; my $n = 256; my $expected = $cwd . ("/$z" x $n); |