#!/usr/bin/perl
BEGIN {
$| = 1;
$^W = 1;
}
BEGIN {
unless
( $^O eq
'MSWin32'
) {
plan(
skip_all
=>
'Not on Win32'
);
exit
(0);
};
unless
(
$ENV
{RELEASE_TESTING} ) {
plan(
skip_all
=>
'No RELEASE_TESTING: Skipping very long test'
);
exit
(0);
}
plan(
tests
=> 13 );
}
my
$dist
= t::lib::Test->new3(18);
isa_ok(
$dist
,
't::lib::Test3'
);
diag(
"Building test dist, may take up to an hour... (sorry)"
);
ok(
$dist
->run,
'->run ok'
);
ok(
-f catfile(
qw{ t tmp18 image c bin dmake.exe }
),
'Found dmake.exe'
,
);
ok(
-f catfile(
qw{ t tmp18 image c bin startup Makefile.in }
),
'Found startup'
,
);
ok(
-f catfile(
qw{ t tmp18 image c bin pexports.exe }
),
'Found pexports'
,
);
ok(
-f catfile(
qw{ t tmp18 image perl bin perl.exe }
),
'Found perl.exe'
,
);
ok(
-f catfile(
qw{ t tmp18 image perl site lib LWP.pm }
),
'Found LWP.pm'
,
);
ok(
-f catfile(
qw{ t tmp18 image perl site lib Config Tiny.pm }
),
'Found Config::Tiny'
,
);
ok(
-f catfile(
qw{ t tmp18 image perl bin perl510.dll }
),
'Found Perl 5.10.0 DLL'
,
);