[svn:parrot] r39938 - branches/ops_pct/compilers/opsc/t

cotto at svn.parrot.org cotto at svn.parrot.org
Tue Jul 7 22:48:27 UTC 2009


Author: cotto
Date: Tue Jul  7 22:48:26 2009
New Revision: 39938
URL: https://trac.parrot.org/parrot/changeset/39938

Log:
[opsc] use is(1, 1, "xxx") as a workaround for ok(1, "xxx") apparently using a different counter than is()

Modified:
   branches/ops_pct/compilers/opsc/t/01-parse.t
   branches/ops_pct/compilers/opsc/t/03-past.t

Modified: branches/ops_pct/compilers/opsc/t/01-parse.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/01-parse.t	Tue Jul  7 22:31:06 2009	(r39937)
+++ branches/ops_pct/compilers/opsc/t/01-parse.t	Tue Jul  7 22:48:26 2009	(r39938)
@@ -27,7 +27,7 @@
 END
     
     "_parse_buffer"(buf)
-    ok(1, "Simple noop parsed")
+    is(1, 1, "Simple noop parsed")
 
     buf = <<"END"
 VERSION = PARROT_VERSION;
@@ -37,7 +37,7 @@
 END
     
     "_parse_buffer"(buf)
-    ok(1, "noop body parsed")
+    is(1, 1, "noop body parsed")
 
     buf = <<"END"
 VERSION = PARROT_VERSION;
@@ -49,7 +49,7 @@
 END
     
     "_parse_buffer"(buf)
-    ok(1, "noop nested body parsed")
+    is(1, 1, "noop nested body parsed")
 
 
 .end
@@ -93,7 +93,7 @@
 END
     
     res = "_parse_buffer"(buf)
-    ok(1, "Multiple ops parsed")
+    is(1, 1, "Multiple ops parsed")
 
     $I0 = res['ops';'op']
     is($I0, 3, "...and we have 3 ops")
@@ -140,7 +140,7 @@
 END
     
     res = "_parse_buffer"(buf)
-    ok(1, "Header parsed")
+    is(1, 1, "Header parsed")
 
     $I0 = res['ops';'op']
     is($I0, 1, "...and we have our op")
@@ -161,7 +161,7 @@
 END
     
     "_parse_buffer"(buf)
-    ok(1, "Op with single param parsed")
+    is(1, 1, "Op with single param parsed")
 
     buf = <<"END"
 VERSION = PARROT_VERSION;
@@ -172,7 +172,7 @@
 END
     
     "_parse_buffer"(buf)
-    ok(1, "Op with multiple param parsed")
+    is(1, 1, "Op with multiple param parsed")
 
 .end
 
@@ -189,7 +189,7 @@
 END
     
     res = "_parse_buffer"(buf)
-    ok(1, "Op with flags parsed")
+    is(1, 1, "Op with flags parsed")
 
     .local pmc op
     op = res['ops';'op';0;'op_flag']

Modified: branches/ops_pct/compilers/opsc/t/03-past.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/03-past.t	Tue Jul  7 22:31:06 2009	(r39937)
+++ branches/ops_pct/compilers/opsc/t/03-past.t	Tue Jul  7 22:48:26 2009	(r39938)
@@ -25,7 +25,7 @@
 
     compiler = compreg 'Ops'
     past = compiler.'compile'(buf, 'target'=>'past')
-    ok(1, "PAST::Node created")
+    is(1, 1, "PAST::Node created")
 
     $P0 = past['header']
     $S0 = $P0.'inline'()
@@ -45,10 +45,10 @@
     # Check op flags
     $P1 = op['flags']
     $I0 = $P1['flow']
-    ok($I0, ':flow flag parsed')
+    is(1, $I0, ':flow flag parsed')
     
     $I0 = $P1['deprecated']
-    ok($I0, ':deprecated flag parsed')
+    is(1, $I0, ':deprecated flag parsed')
 
     $I0 = $P1
     is($I0, 2, "And there is only 2 flags")


More information about the parrot-commits mailing list