Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18982/t
Modified Files:
compat.t files.t notes.t tilde.t versions.t xs.t
Log Message:
Update cleanup code.
Index: files.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/files.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- files.t 23 Jun 2005 08:44:47 -0000 1.5
+++ files.t 28 Jun 2005 07:33:32 -0000 1.6
@@ -53,5 +53,6 @@
ok -e $file2;
}
+# cleanup
chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
$dist->remove;
Index: versions.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/versions.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- versions.t 28 Jun 2005 04:02:44 -0000 1.5
+++ versions.t 28 Jun 2005 07:33:32 -0000 1.6
@@ -19,3 +19,7 @@
is( Module::Build->version_from_file( $file ), '0.01', 'version_from_file' );
ok( Module::Build->compare_versions( '1.01_01', '>', '1.01' ), 'compare: 1.0_01 > 1.0' );
+
+
+# cleanup
+$dist->remove;
Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- compat.t 28 Jun 2005 03:36:45 -0000 1.27
+++ compat.t 28 Jun 2005 07:33:32 -0000 1.28
@@ -192,3 +192,8 @@
ok ! -e 'Makefile', "Makefile shouldn't exist";
}
}
+
+
+# cleanup
+chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
+$dist->remove;
Index: notes.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/notes.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- notes.t 23 Jun 2005 08:44:47 -0000 1.11
+++ notes.t 28 Jun 2005 07:33:32 -0000 1.12
@@ -61,5 +61,6 @@
is $m->notes('foo'), 'bar';
+# cleanup
chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
$dist->remove;
Index: tilde.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/tilde.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- tilde.t 23 Jun 2005 08:44:48 -0000 1.8
+++ tilde.t 28 Jun 2005 07:33:32 -0000 1.9
@@ -78,5 +78,6 @@
}
+# cleanup
chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
$dist->remove;
Index: xs.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- xs.t 23 Jun 2005 10:50:43 -0000 1.21
+++ xs.t 28 Jun 2005 07:33:32 -0000 1.22
@@ -45,27 +45,27 @@
eval {$m->dispatch('clean')};
-ok not $@;
+ok ! $@;
eval {$m->dispatch('build')};
-ok not $@;
+ok ! $@;
{
# Try again in a subprocess
eval {$m->dispatch('clean')};
- ok not $@;
+ ok ! $@;
$m->create_build_script;
ok -e 'Build';
eval {$m->run_perl_script('Build')};
- ok not $@;
+ ok ! $@;
}
# We can't be verbose in the sub-test, because Test::Harness will
# think that the output is for the top-level test.
eval {$m->dispatch('test')};
-ok not $@;
+ok ! $@;
{
$m->dispatch('ppd', args => {codebase => '/path/to/codebase-xs'});
@@ -99,22 +99,20 @@
unless $m->os_type eq 'Unix';
eval {$m->dispatch('clean')};
- ok not $@;
+ ok ! $@;
local $m->{config}{ld} = "FOO=BAR $m->{config}{ld}";
eval {$m->dispatch('build')};
- ok not $@;
+ ok ! $@;
}
eval {$m->dispatch('realclean')};
-ok not $@;
+ok ! $@;
# Make sure blib/ is gone after 'realclean'
-ok not -e 'blib';
+ok ! -e 'blib';
-#########################
# cleanup
-
chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
$dist->remove;
|
