[Module-build-checkins] Module-Build/t basic.t,1.39,1.40
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-06-28 02:57:33
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10217/t Modified Files: basic.t Log Message: Fix potential precedence errors introduced in previous change (not vs !). Index: basic.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v retrieving revision 1.39 retrieving revision 1.40 diff -u -d -r1.39 -r1.40 --- basic.t 28 Jun 2005 00:38:47 -0000 1.39 +++ basic.t 28 Jun 2005 02:57:24 -0000 1.40 @@ -13,7 +13,6 @@ use Cwd (); my $cwd = Cwd::cwd; -my $t_lib = File::Spec->catdir( $cwd, 't', 'lib' ); use DistGen; my $dist = DistGen->new; @@ -39,7 +38,7 @@ $m = Module::Build->new( dist_name => $dist->name, dist_version => 7 ); ok $m; - ok not $m->module_name; # Make sure it's defined + ok ! $m->module_name; # Make sure it's defined is $m->dist_name, $dist->name; } @@ -59,8 +58,8 @@ module_name => $dist->name, requires => {$dist->name => 0}, ); - ok not $flagged; - ok not $m->prereq_failures; + ok ! $flagged; + ok ! $m->prereq_failures; $m->dispatch('realclean'); $dist->clean; @@ -147,7 +146,7 @@ $dist->regen; eval {Module::Build->run_perl_script('Build.PL', [], ['skip_rcfile=1', '--config', "foocakes=barcakes", '--foo', '--bar', '--bar', '-bat=hello', 'gee=whiz', '--any', 'hey', '--destdir', 'yo', '--verbose', '1'])}; - ok not $@; + ok ! $@; my $m = Module::Build->resume; is $m->config->{cc}, $Config{cc}; @@ -163,7 +162,7 @@ is $m->destdir, 'yo'; is $m->runtime_params('destdir'), 'yo'; is $m->runtime_params('verbose'), '1'; - ok not $m->runtime_params('license'); + ok ! $m->runtime_params('license'); ok my %runtime = $m->runtime_params; is scalar keys %runtime, 4; is $runtime{destdir}, 'yo'; |