diff options
author | Adam Spiers <stow@adamspiers.org> | 2019-06-28 16:48:59 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2019-06-28 16:48:59 +0100 |
commit | 6d195f95e0d9f035029402f63a5b452867626053 (patch) | |
tree | b7db16385a88f0bacbdccf1fef3e8037f6293309 /t/examples.t | |
parent | 5f875009f80cfd309223378bfcdb1d4d85599079 (diff) | |
parent | 74f018283477b8953e43838353d596f595a6abb6 (diff) | |
download | stow-6d195f95e0d9f035029402f63a5b452867626053.tar.gz |
Various improvements to tests (#52)
Various improvements to tests
Diffstat (limited to 't/examples.t')
-rwxr-xr-x | t/examples.t | 32 |
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'); |