[svn:parrot] r40336 - trunk/t/tools

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Thu Jul 30 06:57:13 2009
New Revision: 40336
URL: https://trac.parrot.org/parrot/changeset/40336

Log:
Add tests for printing each register type in parrot_debugger

Modified:
   trunk/t/tools/parrot_debugger.t

Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t	Thu Jul 30 06:11:09 2009	(r40335)
+++ trunk/t/tools/parrot_debugger.t	Thu Jul 30 06:57:13 2009	(r40336)
@@ -122,6 +122,12 @@
     set I0, 242
 PASM
 
+pdb_output_like( <<PIR, "pir", "t", qr/set I0, 242/, 'trace (pir)');
+.sub main :main
+    \$I0 = 242
+.end
+PIR
+
 pdb_output_like( <<PASM, "pasm", "t 2", qr/\d+ set I0, 242\s*I0=0\s*\d+ set I1, 1982/, 'trace multiple statements');
     set I0, 242
     set I1, 1982
@@ -134,16 +140,46 @@
 .end
 PIR
 
-pdb_output_like( <<PIR, "pir", "t", qr/set I0, 242/, 'trace (pir)');
+pdb_output_like( <<PASM, "pasm", "t\np I0", qr/^242/m, 'print an integer register');
+    set I0, 242
+PASM
+
+pdb_output_like( <<PIR, "pir", "t\np I0", qr/^242/m, 'print an integer register (pir)');
 .sub main :main
     \$I0 = 242
 .end
 PIR
 
-pdb_output_like( <<PASM, "pasm", "t\np I0", qr/242/, 'print a register');
-    set I0, 242
+pdb_output_like( <<PASM, "pasm", "t\np N0", qr/^3.14159/m, 'print a numeric register');
+    set N0, 3.14159
+PASM
+
+pdb_output_like( <<PIR, "pir", "t\np N0", qr/^3.14159/m, 'print a numeric register (pir)');
+.sub main :main
+    \$N0 = 3.14159
+.end
+PIR
+
+pdb_output_like( <<PASM, "pasm", "t\np P0", qr/^ResizablePMCArray/m, 'print a PMC register');
+    new P0, 'ResizablePMCArray'
+PASM
+
+pdb_output_like( <<PIR, "pir", "t\np P0", qr/^ResizablePMCArray=PMC/m, 'print a PMC register (pir)');
+.sub main :main
+    \$P0 = new 'ResizablePMCArray'
+.end
+PIR
+
+pdb_output_like( <<PASM, "pasm", "t\np S0", qr/^ceiling cat/m, 'print a string register');
+    set S0, "ceiling cat"
 PASM
 
+pdb_output_like( <<PIR, "pir", "t\np S0", qr/^ceiling cat/m, 'print a string register (pir)');
+.sub main :main
+    \$S0 = "ceiling cat"
+.end
+PIR
+
 pdb_output_like( <<PASM, "pasm", "t 2\np I", qr/I0 = 242\s*I1 = 1982/, 'print all integer registers');
     set I0, 242
     set I1, 1982
@@ -156,12 +192,6 @@
 .end
 PIR
 
-pdb_output_like( <<PIR, "pir", "t\np \$I0", qr/242/, 'print a register (pir)');
-.sub main :main
-    \$I0 = 242
-.end
-PIR
-
 TODO: {
     local $TODO = 'TT#889 - deleting breakpoints does not currently work';
 pdb_output_like( <<PASM, "pasm", "b\n d 1", qr/Breakpoint 1 deleted/, 'Delete a breakpoint');
@@ -176,7 +206,7 @@
 
 }
 
-BEGIN { $tests += 25 }
+BEGIN { $tests += 31 }
 
 BEGIN { plan tests => $tests; }