1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use strict;
my $t; use lib ($t = -e 't' ? 't' : 'test');
use TestModuleManifestSkip;
use Test::More tests => 4;
# use XXX; use Test::Differences; *is = \&eq_or_diff;
my $dir = "$t/dir3";
my $file = "$dir/MANIFEST.SKIP";
unlink $file;
die if -e $file;
create();
create();
unlink $file or die;
sub create {
chdir $dir or die;
system("$^X -I$LIB -MModule::Manifest::Skip=create") == 0
or die;
chdir $HOME or die;
ok -e $file,
"MANIFEST.SKIP created";
is read_file($file),
$TEMPLATE,
'MANIFEST.SKIP is correct';
}
|
