module-build-checkins

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

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22044/t

Modified Files:
	runthrough.t 
Log Message:
More Test => Test::More conversions.

Index: runthrough.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/runthrough.t,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -d -r1.52 -r1.53
--- runthrough.t	28 Jun 2005 05:10:32 -0000	1.52
+++ runthrough.t	28 Jun 2005 05:25:49 -0000	1.53
@@ -69,7 +69,9 @@
 print $output;
 print "^^^^^^^^^^^^^^^^^^^^^ Sample/test.pl output ^^^^^^^^^^^^^^^^^^^^^\n";
 
-if ($have_yaml) {
+SKIP: {
+  skip( 'YAML_support feature is not enabled', 7 ) unless $have_yaml;
+
   eval {$build->dispatch('disttest')};
   ok ! $@;
   
@@ -90,20 +92,18 @@
   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, "Check version used to create META.yml: $1 == " . $build->VERSION;
-  
-  if ($build->check_installed_status('Archive::Tar', 0)
-      or $build->isa('Module::Build::Platform::Unix')) {
+  is $1, $build->VERSION, "Check version used to create META.yml: $1 == " . $build->VERSION;
+
+  SKIP: {
+    skip( "not sure if we can create a tarball on this platform", 1 )
+      unless $build->check_installed_status('Archive::Tar', 0) ||
+	     $build->isa('Module::Build::Platform::Unix');
+
     $build->add_to_cleanup($build->dist_dir . ".tar.gz");
     eval {$build->dispatch('dist')};
     ok ! $@;
-    
-  } else {
-    skip_subtest("not sure if we can create a tarball on this platform");
   }
 
-} else {
-  skip_subtest("YAML_support feature is not enabled") for 1..7;
 }
 
 {