[svn:parrot] r45945 - in trunk: lib/Parrot t/library t/op t/pmc

fperrad at svn.parrot.org fperrad at svn.parrot.org
Fri Apr 23 20:46:46 UTC 2010


Author: fperrad
Date: Fri Apr 23 20:46:46 2010
New Revision: 45945
URL: https://trac.parrot.org/parrot/changeset/45945

Log:
[test] generate valid TAP comment (ie. with # in first column)

Modified:
   trunk/lib/Parrot/Distribution.pm
   trunk/t/library/pcre.t
   trunk/t/op/00ff-unix.t
   trunk/t/op/gc-leaky.t
   trunk/t/pmc/bigint.t
   trunk/t/pmc/namespace.t

Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm	Fri Apr 23 19:25:07 2010	(r45944)
+++ trunk/lib/Parrot/Distribution.pm	Fri Apr 23 20:46:46 2010	(r45945)
@@ -281,7 +281,7 @@
                     }
                 }
 
-                print 'WARNING: ' . __FILE__ . ':' . __LINE__ . ' File not found: ' . $name . "\n";
+                print '# WARNING: ' . __FILE__ . ':' . __LINE__ . ' File not found: ' . $name . "\n";
                 return;
             };
 

Modified: trunk/t/library/pcre.t
==============================================================================
--- trunk/t/library/pcre.t	Fri Apr 23 19:25:07 2010	(r45944)
+++ trunk/t/library/pcre.t	Fri Apr 23 20:46:46 2010	(r45945)
@@ -26,7 +26,7 @@
 
 # if we keep pcre, we need a config test
 my $cmd = ( $^O =~ /MSWin32/ ) ? "pcregrep --version" : "pcre-config --version";
-my $has_pcre = !Parrot::Test::run_command( $cmd, STDERR => File::Spec->devnull, );
+my $has_pcre = !Parrot::Test::run_command( $cmd, STDOUT => File::Spec->devnull ,STDERR => File::Spec->devnull, );
 my $pcre_libpath = '';
 
 # It's possible that libpcre is installed in some non-standard path...

Modified: trunk/t/op/00ff-unix.t
==============================================================================
--- trunk/t/op/00ff-unix.t	Fri Apr 23 19:25:07 2010	(r45944)
+++ trunk/t/op/00ff-unix.t	Fri Apr 23 20:46:46 2010	(r45945)
@@ -26,7 +26,7 @@
 .sub test_fileformat_unix
     lives_ok( <<'CODE', 'fileformat unix' )
 .sub main
-    print "testing\n"
+    print "# testing\n"
 .end
 CODE
 .end

Modified: trunk/t/op/gc-leaky.t
==============================================================================
--- trunk/t/op/gc-leaky.t	Fri Apr 23 19:25:07 2010	(r45944)
+++ trunk/t/op/gc-leaky.t	Fri Apr 23 20:46:46 2010	(r45945)
@@ -48,7 +48,7 @@
         if counter > 1e6 goto done
         goto loop
     done:
-        say ""
+        diag("")
         $I1 = interpinfo.INTERPINFO_GC_COLLECT_RUNS
         $I2 = interpinfo.INTERPINFO_GC_MARK_RUNS
 

Modified: trunk/t/pmc/bigint.t
==============================================================================
--- trunk/t/pmc/bigint.t	Fri Apr 23 19:25:07 2010	(r45944)
+++ trunk/t/pmc/bigint.t	Fri Apr 23 20:46:46 2010	(r45945)
@@ -51,7 +51,7 @@
     $P2 = $P1['gmp']
     $I1 = isnull $P2
     if $I1, NoLibGMP
-    say 'This Parrot uses GMP'
+    say '# This Parrot uses GMP'
 
     # check version is >= 4.1.4
     $P0 = new ['BigInt']
@@ -70,18 +70,18 @@
     lt $I2, 4, OldLibGMP
 
 Config2:
-    print 'Suitable GMP version ['
+    print '# Suitable GMP version ['
     print $S3
     say '] available'
     goto ret
 
 NoLibGMP:
-    say 'No BigInt Lib configured'
+    say '# No BigInt Lib configured'
     skip(34)
     exit 0
 
 OldLibGMP:
-    print 'Buggy GMP version ['
+    print '# Buggy GMP version ['
     print $S3
     say '] with huge digit multiply - please upgrade'
     skip(34)
@@ -567,7 +567,7 @@
     goto esz
 
 esz:
-    print 'Using '
+    print '# Using '
     $I0 = mul $I0, 8
     print $I0
     print '-bit Integers ['

Modified: trunk/t/pmc/namespace.t
==============================================================================
--- trunk/t/pmc/namespace.t	Fri Apr 23 19:25:07 2010	(r45944)
+++ trunk/t/pmc/namespace.t	Fri Apr 23 20:46:46 2010	(r45945)
@@ -282,7 +282,7 @@
     $I0 = isnull $P0
     is($I0, 0, "Find Sub in an ISO-8859-1 NameSpace looked up by a Unicode name")
     $S0 = $P0()
-    say $S0
+    diag($S0)
     is($S0, iso-8859-1:"Fran\x{E7}ois", "ISO-8859 NameSpace with Unicode name")
     goto end_test8
   eh8:


More information about the parrot-commits mailing list