[svn:parrot] r40231 - branches/bsr_jsr_ret/t/op

whiteknight at svn.parrot.org whiteknight at svn.parrot.org
Thu Jul 23 21:29:50 UTC 2009


Author: whiteknight
Date: Thu Jul 23 21:29:49 2009
New Revision: 40231
URL: https://trac.parrot.org/parrot/changeset/40231

Log:
[bsr_jsr_ret] convert two string-related test files

Modified:
   branches/bsr_jsr_ret/t/op/sprintf.t
   branches/bsr_jsr_ret/t/op/string.t

Modified: branches/bsr_jsr_ret/t/op/sprintf.t
==============================================================================
--- branches/bsr_jsr_ret/t/op/sprintf.t	Thu Jul 23 19:52:58 2009	(r40230)
+++ branches/bsr_jsr_ret/t/op/sprintf.t	Thu Jul 23 21:29:49 2009	(r40231)
@@ -284,10 +284,12 @@
 
     .local pmc todo_info
                todo_info = new 'Hash'
+    .local pmc jmpstack
+               jmpstack = new 'ResizableIntegerArray'
 
     .local string test_file
 
-    bsr reset_todo_info
+    local_branch jmpstack,  reset_todo_info
     test_file = 'sprintf_tests'
     # TODOs
     todo_info[64] = 'undecided perl5 vs. posix behavior'
@@ -325,10 +327,12 @@
 
     .local pmc skip_info
                skip_info = new 'Hash'
+    .local pmc jmpstack
+               jmpstack = new 'ResizableIntegerArray'
 
     .local string test_file
 
-    bsr reset_skip_info
+    local_branch jmpstack,  reset_skip_info
     test_file = 'sprintf_tests'
     skip_info[5] = 'parrot extension (%B)'
     skip_info[7] = 'perl5-specific extension (%D)'
@@ -343,7 +347,7 @@
     $S0 = 'perl5-specific extension (%v...)'
     $I0 = 71
     $I1 = 99
-    bsr set_skip_loop
+    local_branch jmpstack,  set_skip_loop
 
     skip_info[114] = 'harness needs support for * modifier'
     skip_info[144] = 'perl5 expresssion as test value'
@@ -366,12 +370,12 @@
     $S0 = 'perl5-specific test'
     $I0 = 238
     $I1 = 251
-    bsr set_skip_loop
+    local_branch jmpstack,  set_skip_loop
 
     $S0 = 'perl5-specific extension (%v...)'
     $I0 = 252
     $I1 = 298
-    bsr set_skip_loop
+    local_branch jmpstack,  set_skip_loop
 
     skip_info[307] = 'perl5-specific extension (%v...)'
     skip_info[308] = 'perl5-specific extension (%v...)'

Modified: branches/bsr_jsr_ret/t/op/string.t
==============================================================================
--- branches/bsr_jsr_ret/t/op/string.t	Thu Jul 23 19:52:58 2009	(r40230)
+++ branches/bsr_jsr_ret/t/op/string.t	Thu Jul 23 21:29:49 2009	(r40231)
@@ -1802,101 +1802,102 @@
     ret
 
 MAIN:
+    new P4, 'ResizableIntegerArray'
     set S1, "Hello, %s\n"
     set S0, "Parrot!"
-    bsr NEWARYS
-    bsr PRINTF
+    local_branch P4, NEWARYS
+    local_branch P4, PRINTF
 
     set S1, "Hash[0x%x]\n"
     set I0, 256
-    bsr NEWARYI
-    bsr PRINTF
+    local_branch P4, NEWARYI
+    local_branch P4, PRINTF
 
     set S1, "Hash[0x%lx]\n"
     set I0, 256
-    bsr NEWARYI
-    bsr PRINTF
+    local_branch P4, NEWARYI
+    local_branch P4, PRINTF
 
     set S1, "Hello, %.2s!\n"
     set S0, "Parrot"
-    bsr NEWARYS
-    bsr PRINTF
+    local_branch P4, NEWARYS
+    local_branch P4, PRINTF
 
     set S1, "Hello, %Ss"
     set S0, S2
-    bsr NEWARYS
-    bsr PRINTF
+    local_branch P4, NEWARYS
+    local_branch P4, PRINTF
 
     set S1, "1 == %Pd\n"
     new P0, 'Integer'
     set P0, 1
-    bsr NEWARYP
-    bsr PRINTF
+    local_branch P4, NEWARYP
+    local_branch P4, PRINTF
 
     set S1, "-255 == %vd\n"
     set I0, -255
-    bsr NEWARYI
-    bsr PRINTF
+    local_branch P4, NEWARYI
+    local_branch P4, PRINTF
 
     set S1, "+123 == %+vd\n"
     set I0, 123
-    bsr NEWARYI
-    bsr PRINTF
+    local_branch P4, NEWARYI
+    local_branch P4, PRINTF
 
     set S1, "256 == %vu\n"
     set I0, 256
-    bsr NEWARYI
-    bsr PRINTF
+    local_branch P4, NEWARYI
+    local_branch P4, PRINTF
 
     set S1, "1 == %+vu\n"
     set I0, 1
-    bsr NEWARYI
-    bsr PRINTF
+    local_branch P4, NEWARYI
+    local_branch P4, PRINTF
 
     set S1, "001 == %0.3u\n"
     set I0, 1
-    bsr NEWARYI
-    bsr PRINTF
+    local_branch P4, NEWARYI
+    local_branch P4, PRINTF
 
     set S1, "001 == %+0.3u\n"
     set I0, 1
-    bsr NEWARYI
-    bsr PRINTF
+    local_branch P4, NEWARYI
+    local_branch P4, PRINTF
 
     set S1, "0.500000 == %f\n"
     set N0, 0.5
-    bsr NEWARYN
-    bsr PRINTF
+    local_branch P4, NEWARYN
+    local_branch P4, PRINTF
 
     set S1, "0.500 == %5.3f\n"
     set N0, 0.5
-    bsr NEWARYN
-    bsr PRINTF
+    local_branch P4, NEWARYN
+    local_branch P4, PRINTF
 
     set S1, "0.001 == %g\n"
     set N0, 0.001
-    bsr NEWARYN
-    bsr PRINTF
+    local_branch P4, NEWARYN
+    local_branch P4, PRINTF
 
     set S1, "1e+06 == %g\n"
     set N0, 1.0e6
-    bsr NEWARYN
-    bsr PRINTF
+    local_branch P4, NEWARYN
+    local_branch P4, PRINTF
 
     set S1, "0.5 == %3.3g\n"
     set N0, 0.5
-    bsr NEWARYN
-    bsr PRINTF
+    local_branch P4, NEWARYN
+    local_branch P4, PRINTF
 
     set S1, "%% == %%\n"
     set I0, 0
-    bsr NEWARYI
-    bsr PRINTF
+    local_branch P4, NEWARYI
+    local_branch P4, PRINTF
 
     set S1, "That's all, %s\n"
     set S0, "folks!"
-    bsr NEWARYS
-    bsr PRINTF
+    local_branch P4, NEWARYS
+    local_branch P4, PRINTF
 
     end
 CODE
@@ -1930,19 +1931,20 @@
     ret
 
 MAIN:
+    new P4, 'ResizableIntegerArray'
     new P3, 'String'
 
     new P2, 'String'
     set P2, "15 is %b\n"
     new P1, 'ResizablePMCArray'
     set P1[0], 15
-    bsr PRINTF
+    local_branch P4, PRINTF
 
     new P2, 'String'
     set P2, "128 is %o\n"
     new P1, 'ResizablePMCArray'
     set P1[0], 128
-    bsr PRINTF
+    local_branch P4, PRINTF
 
     end
 CODE


More information about the parrot-commits mailing list