[Module-build-checkins] Module-Build/t compat.t,1.17.2.5,1.17.2.6
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-04-15 02:34:15
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14722 Modified Files: Tag: release-0_26_branch compat.t Log Message: Eliminate some undef-var warnings that happen under old Test.pm's Index: compat.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v retrieving revision 1.17.2.5 retrieving revision 1.17.2.6 diff -u -d -r1.17.2.5 -r1.17.2.6 --- compat.t 24 Jan 2005 03:37:10 -0000 1.17.2.5 +++ compat.t 15 Apr 2005 02:34:06 -0000 1.17.2.6 @@ -37,7 +37,7 @@ foreach my $type (@makefile_types) { Module::Build::Compat->create_makefile_pl($type, $build); - test_makefile_creation($build); + test_makefile_creation($build); # 2 tests ok $build->do_system(@make); @@ -47,15 +47,15 @@ $success = $build->do_system(@make, 'test'); } ); ok $success; - ok uc $output, qr{DONE\.|SUCCESS}; + ok uc $output, qr{DONE\.|SUCCESS}, "Make sure 'make test' ran"; ok $build->do_system(@make, 'realclean'); # Try again with some Makefile.PL arguments - test_makefile_creation($build, [], 'INSTALLDIRS=vendor', 1); + test_makefile_creation($build, [], 'INSTALLDIRS=vendor', 1); # 3 tests 1 while unlink 'Makefile.PL'; - ok -e 'Makefile.PL', undef; + ok !-e 'Makefile.PL', 1; } { @@ -64,7 +64,7 @@ my $warning = ''; local $SIG{__WARN__} = sub { $warning = shift; }; my $maketext = eval { Module::Build::Compat->fake_makefile(makefile => 'Makefile') }; - ok $@, ''; + ok $@, '', "Make sure we can create a makefile"; ok $maketext, qr/^realclean/m; ok $warning, qr/build_class/; } @@ -137,13 +137,13 @@ $build->delete_filetree($libdir); - ok -e $libdir, undef, "Sample installation directory should be cleaned up"; + ok !-e $libdir, 1, "Sample installation directory should be cleaned up"; $build->do_system(@make, 'realclean'); - ok -e 'Makefile', undef, "Makefile shouldn't exist"; + ok !-e 'Makefile', 1, "Makefile shouldn't exist"; 1 while unlink 'Makefile.PL'; - ok -e 'Makefile.PL', undef; + ok !-e 'Makefile.PL', 1; } { # Make sure tilde-expansion works @@ -173,6 +173,6 @@ if ($cleanup) { $build->do_system(@make, 'realclean'); - ok -e 'Makefile', undef, "Makefile shouldn't exist"; + ok !-e 'Makefile', 1, "Makefile shouldn't exist"; } } |