[Module-build-checkins] Module-Build/t runthrough.t,1.45,1.46
Status: Beta
Brought to you by:
kwilliams
From: Ken W. <kwi...@us...> - 2004-11-20 04:13:27
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32382/t Modified Files: runthrough.t Log Message: Be a little more permissive with VERSION, and eliminate a Test.pm warning Index: runthrough.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/runthrough.t,v retrieving revision 1.45 retrieving revision 1.46 diff -C2 -d -r1.45 -r1.46 *** runthrough.t 1 Jun 2004 13:25:30 -0000 1.45 --- runthrough.t 20 Nov 2004 04:13:10 -0000 1.46 *************** *** 82,86 **** my $fh = IO::File->new(File::Spec->catfile($goto, 'META.yml')); my $contents = do {local $/; <$fh>}; ! ok $contents, "/Module::Build version ". $build->VERSION ."/"; if ($build->check_installed_status('Archive::Tar', 0) --- 82,88 ---- my $fh = IO::File->new(File::Spec->catfile($goto, 'META.yml')); my $contents = do {local $/; <$fh>}; ! ! $contents =~ /Module::Build version ([0-9_.]+)/m; ! ok $1 == $build->VERSION, 1, "Got $1, expected ". $build->VERSION; if ($build->check_installed_status('Archive::Tar', 0) *************** *** 140,144 **** ok $@, ''; ! ok -e $build->build_script, undef; ! ok -e $build->config_dir, undef; ! ok -e $build->dist_dir, undef; --- 142,146 ---- ok $@, ''; ! ok not -e $build->build_script; ! ok not -e $build->config_dir; ! ok not -e $build->dist_dir; |