stow/t/defer.t

23 lines
492 B
Perl
Raw Permalink Normal View History

#!/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');