diff options
Diffstat (limited to 'tests/scripts/options')
-rw-r--r-- | tests/scripts/options/dash-k | 13 | ||||
-rw-r--r-- | tests/scripts/options/symlinks | 5 |
2 files changed, 10 insertions, 8 deletions
diff --git a/tests/scripts/options/dash-k b/tests/scripts/options/dash-k index fec630c3..05db28ac 100644 --- a/tests/scripts/options/dash-k +++ b/tests/scripts/options/dash-k @@ -16,7 +16,7 @@ open(MAKEFILE,"> $makefile"); # The Contents of the MAKEFILE ... print MAKEFILE <<EOF; -VPATH = $workdir +VPATH = work edit: main.o kbd.o commands.o display.o \t\@echo cc -o edit main.o kbd.o commands.o display.o @@ -38,11 +38,12 @@ EOF close(MAKEFILE); -@files_to_touch = ("$workdir${pathsep}main.c","$workdir${pathsep}defs.h", - "$workdir${pathsep}command.h", - "$workdir${pathsep}commands.c","$workdir${pathsep}display.c", - "$workdir${pathsep}buffer.h", - "$workdir${pathsep}command.c"); +mkdir('work'); +@files_to_touch = ("work${pathsep}main.c","work${pathsep}defs.h", + "work${pathsep}command.h", + "work${pathsep}commands.c","work${pathsep}display.c", + "work${pathsep}buffer.h", + "work${pathsep}command.c"); &touch(@files_to_touch); diff --git a/tests/scripts/options/symlinks b/tests/scripts/options/symlinks index 83dc84fb..8886b2fc 100644 --- a/tests/scripts/options/symlinks +++ b/tests/scripts/options/symlinks @@ -15,8 +15,9 @@ use File::Spec; &utouch(-10, 'dep'); &utouch(-5, 'targ'); -$dirnm = (File::Spec->splitdir($cwddir))[-1]; -symlink(File::Spec->catfile(File::Spec->updir(), $dirnm, 'dep'), 'sym'); +my $dirnm = (File::Spec->splitdir($testpath))[-1]; +my $dep = File::Spec->catfile(File::Spec->updir(), $dirnm, 'dep'); +symlink($dep, 'sym') or die "Cannot create symlink sym -> $dep\n"; # Without -L, nothing should happen # With -L, it should update targ |