t/defer.t

   1 #!/usr/local/bin/perl
   2
   3 #
   4 # Testing defer().
   5 #
   6
   7 use strict;
   8 use warnings;
   9
  10 use testutil;
  11
  12 use Test::More tests => 4;
  13
  14 init_test_dirs();
  15 cd("$OUT_DIR/target");
  16
  17 my $stow;
  18
  19 $stow = new_Stow(defer => [ 'man' ]);
  20 ok($stow->defer('man/man1/file.1') => 'simple success');
  21
  22 $stow = new_Stow(defer => [ 'lib' ]);
  23 ok(! $stow->defer('man/man1/file.1') => 'simple failure');
  24
  25 $stow = new_Stow(defer => [ 'lib', 'man', 'share' ]);
  26 ok($stow->defer('man/man1/file.1') => 'complex success');
  27
  28 $stow = new_Stow(defer => [ 'lib', 'man', 'share' ]);
  29 ok(! $stow->defer('bin/file') => 'complex failure');