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
34
35
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::CheckManifest;
use IO::File;
use File::Basename;
use File::Spec;
SKIP: {
plan skip_all => 'Test not needed on Windows', 1 if $^O =~ /Win32/;
{
my $dir = dirname( File::Spec->rel2abs( __FILE__ ) );
# create file
my $fh_manifest = IO::File->new( $dir . '/MANIFEST', 'w' );
$fh_manifest->print( $_ . "\n" ) for (qw/MANIFEST A.txt B.txt 02_issue1.t 03_issue7.t/);
$fh_manifest->close or die $!;
# create file
my $fh = IO::File->new( $dir . '/A.txt', 'w' );
$fh->print( scalar localtime ) or die $!;
$fh->close or die $!;
# create symlink
eval { symlink $dir . '/A.txt', $dir . '/B.txt' };
ok_manifest({ dir => $dir });
}
}
|
