[Module-build-checkins] Module-Build/t compat.t,1.27,1.28 files.t,1.5,1.6 notes.t,1.11,1.12 tilde.t,1.8,1.9 versions.t,1.5,1.6 xs.t,1.21,1.22

[Randy W. S. <si...@us...>]

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;