Major refactoring of code into separate Stow and Stow::Util Perl modules

1 files changed, 14 insertions, 10 deletions

diff --git a/t/defer.t b/t/defer.t
index a4f8cf7..24d4d5f 100644..100755
--- a/t/defer.t
+++ b/t/defer.t
@@ -4,19 +4,23 @@
 # Testing defer().
 #
 
-# load as a library
-BEGIN { use lib qw(. ..); require "stow"; }
+use strict;
+use warnings;
+
+use testutil;
 
 use Test::More tests => 4;
 
-$Option{'defer'} = [ 'man' ];
-ok(defer('man/man1/file.1') => 'simple success');
+my $stow;
+
+$stow = new_Stow(defer => [ 'man' ]);
+ok($stow->defer('man/man1/file.1') => 'simple success');
 
-$Option{'defer'} = [ 'lib' ];
-ok(!defer('man/man1/file.1') => 'simple failure');
+$stow = new_Stow(defer => [ 'lib' ]);
+ok(! $stow->defer('man/man1/file.1') => 'simple failure');
 
-$Option{'defer'} = [ 'lib', 'man', 'share' ];
-ok(defer('man/man1/file.1') => 'complex success');
+$stow = new_Stow(defer => [ 'lib', 'man', 'share' ]);
+ok($stow->defer('man/man1/file.1') => 'complex success');
 
-$Option{'defer'} = [ 'lib', 'man', 'share' ];
-ok(!defer('bin/file') => 'complex failure');
+$stow = new_Stow(defer => [ 'lib', 'man', 'share' ]);
+ok(! $stow->defer('bin/file') => 'complex failure');