23 lines
492 B
Perl
23 lines
492 B
Perl
|
#!/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');
|