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';
|
