summaryrefslogtreecommitdiff
path: root/t/examples.t
diff options
context:
space:
mode:
authorAdam Spiers <stow@adamspiers.org>2019-06-28 16:48:59 +0100
committerGitHub <noreply@github.com>2019-06-28 16:48:59 +0100
commit6d195f95e0d9f035029402f63a5b452867626053 (patch)
treeb7db16385a88f0bacbdccf1fef3e8037f6293309 /t/examples.t
parent5f875009f80cfd309223378bfcdb1d4d85599079 (diff)
parent74f018283477b8953e43838353d596f595a6abb6 (diff)
downloadstow-6d195f95e0d9f035029402f63a5b452867626053.tar.gz
Various improvements to tests (#52)
Various improvements to tests
Diffstat (limited to 't/examples.t')
-rwxr-xr-xt/examples.t32
1 files changed, 16 insertions, 16 deletions
diff --git a/t/examples.t b/t/examples.t
index 56aa5b6..376de39 100755
--- a/t/examples.t
+++ b/t/examples.t
@@ -28,30 +28,30 @@ use Test::More tests => 10;
use English qw(-no_match_vars);
init_test_dirs();
-cd("$OUT_DIR/target");
+cd("$TEST_DIR/target");
my $stow;
## set up some fake packages to stow
# perl
-make_dir('stow/perl/bin');
+make_path('stow/perl/bin');
make_file('stow/perl/bin/perl');
make_file('stow/perl/bin/a2p');
-make_dir('stow/perl/info');
+make_path('stow/perl/info');
make_file('stow/perl/info/perl');
-make_dir('stow/perl/lib/perl');
-make_dir('stow/perl/man/man1');
+make_path('stow/perl/lib/perl');
+make_path('stow/perl/man/man1');
make_file('stow/perl/man/man1/perl.1');
# emacs
-make_dir('stow/emacs/bin');
+make_path('stow/emacs/bin');
make_file('stow/emacs/bin/emacs');
make_file('stow/emacs/bin/etags');
-make_dir('stow/emacs/info');
+make_path('stow/emacs/info');
make_file('stow/emacs/info/emacs');
-make_dir('stow/emacs/libexec/emacs');
-make_dir('stow/emacs/man/man1');
+make_path('stow/emacs/libexec/emacs');
+make_path('stow/emacs/man/man1');
make_file('stow/emacs/man/man1/emacs.1');
#
@@ -81,9 +81,9 @@ remove_link('info');
remove_link('lib');
remove_link('man');
-make_dir('bin');
-make_dir('lib');
-make_dir('man/man1');
+make_path('bin');
+make_path('lib');
+make_path('man/man1');
$stow = new_Stow(dir => 'stow');
$stow->plan_stow('perl');
@@ -157,8 +157,8 @@ ok(
# behaviour is the same as if the empty directory had nothing to do with stow
#
-make_dir('stow/pkg1a/bin1');
-make_dir('stow/pkg1b/bin1');
+make_path('stow/pkg1a/bin1');
+make_path('stow/pkg1b/bin1');
make_file('stow/pkg1b/bin1/file1b');
$stow = new_Stow(dir => 'stow');
@@ -172,10 +172,10 @@ ok(-d 'bin1' => 'bug 1: stowing empty dirs');
# BUG 2: split open tree-folding symlinks pointing inside different stow
# directories
#
-make_dir('stow2a/pkg2a/bin2');
+make_path('stow2a/pkg2a/bin2');
make_file('stow2a/pkg2a/bin2/file2a');
make_file('stow2a/.stow');
-make_dir('stow2b/pkg2b/bin2');
+make_path('stow2b/pkg2b/bin2');
make_file('stow2b/pkg2b/bin2/file2b');
make_file('stow2b/.stow');