Grafted root commit from savannah git master:v2.0.2

38dcdcb08c60f4cc661395beb22641c46add9e6c Initial Import

1 files changed, 22 insertions, 0 deletions

diff --git a/t/defer.t b/t/defer.t
new file mode 100644
index 0000000..a4f8cf7
--- /dev/null
+++ b/t/defer.t
@@ -0,0 +1,22 @@
+#!/usr/local/bin/perl
+
+#
+# Testing defer().
+#
+
+# load as a library
+BEGIN { use lib qw(. ..); require "stow"; }
+
+use Test::More tests => 4;
+
+$Option{'defer'} = [ 'man' ];
+ok(defer('man/man1/file.1') => 'simple success');
+
+$Option{'defer'} = [ 'lib' ];
+ok(!defer('man/man1/file.1') => 'simple failure');
+
+$Option{'defer'} = [ 'lib', 'man', 'share' ];
+ok(defer('man/man1/file.1') => 'complex success');
+
+$Option{'defer'} = [ 'lib', 'man', 'share' ];
+ok(!defer('bin/file') => 'complex failure');