[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