[svn:parrot] r44090 - trunk/runtime/parrot/library/Test
mikehh at svn.parrot.org
mikehh at svn.parrot.org
Wed Feb 17 14:29:57 UTC 2010
Author: mikehh
Date: Wed Feb 17 14:29:56 2010
New Revision: 44090
URL: https://trac.parrot.org/parrot/changeset/44090
Log:
fix codetest failures - trailing whitespace
Modified:
trunk/runtime/parrot/library/Test/More.pir
Modified: trunk/runtime/parrot/library/Test/More.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/More.pir Wed Feb 17 14:12:50 2010 (r44089)
+++ trunk/runtime/parrot/library/Test/More.pir Wed Feb 17 14:29:56 2010 (r44090)
@@ -36,7 +36,7 @@
is( some_pmc, another_pmc, 'pmc comparison uses "eq" op' )
is_null( some_pmc, 'pmc was null' )
-
+
diag( 'this may take a while' )
is_deeply( some_deep_pmc, another_deep_pmc, 'deep structure comparison' )
@@ -160,7 +160,7 @@
.sub one_or_both_null
.param pmc left
.param pmc right
-
+
.local int one
.local int both
@@ -170,7 +170,7 @@
and both, $I0, $I1
.return (one, both)
.end
-
+
.sub is :multi(PMC, Integer)
.param pmc left
.param pmc right
@@ -183,13 +183,13 @@
.local int pass
($I0, pass) = one_or_both_null(left, right)
if $I0 goto report
-
+
.local int l, r
l = left
r = right
-
+
pass = iseq l, r
-
+
report:
test.'ok'( pass, description )
if pass goto done
@@ -201,12 +201,12 @@
l_string = 'null'
if null left goto r_str
l_string = left
-
+
r_str:
r_string = 'null'
if null right goto diag
r_string = right
-
+
diag:
diagnostic = _make_diagnostic( l_string, r_string )
test.'diag'( diagnostic )
@@ -228,14 +228,14 @@
get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
-
+
($I0, pass) = one_or_both_null(left, right)
if $I0 goto report
-
+
.local num l, r
l = left
r = right
-
+
if have_prec goto check_precision
pass = iseq l, r
@@ -258,12 +258,12 @@
l_string = 'null'
if null left goto r_str
l_string = left
-
+
r_str:
r_string = 'null'
if null right goto diag
r_string = right
-
+
diag:
diagnostic = _make_diagnostic( l_string, r_string )
test.'diag'( diagnostic )
@@ -299,7 +299,7 @@
l_string = 'null'
if null left goto r_str
l_string = left
-
+
r_str:
r_string = 'null'
if null right goto diag
@@ -321,7 +321,7 @@
get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
-
+
($I0, pass) = one_or_both_null(left, right)
if $I0 goto result
@@ -392,7 +392,7 @@
get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
-
+
($I0, pass) = one_or_both_null(left, right)
if $I0 goto report
@@ -429,7 +429,7 @@
get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
-
+
($I0, pass) = one_or_both_null(left, right)
if $I0 goto report
@@ -466,7 +466,7 @@
get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
-
+
($I0, pass) = one_or_both_null(left, right)
if $I0 goto report
@@ -503,10 +503,10 @@
get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
-
+
($I0, pass) = one_or_both_null(left, right)
if $I0 goto report
-
+
# this comparison may not work in general, but it's worth trying
pass = isne left, right
@@ -944,7 +944,7 @@
test.'ok'( passed, description )
if passed goto done
-
+
.local string v_string
v_string = 'null'
if null victim goto diag
More information about the parrot-commits
mailing list