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

dukeleto at svn.parrot.org dukeleto at svn.parrot.org
Thu Jul 30 05:53:53 UTC 2009


Author: dukeleto
Date: Thu Jul 30 05:53:52 2009
New Revision: 40334
URL: https://trac.parrot.org/parrot/changeset/40334

Log:
Add tests to parrot_debugger for tracing multiple statements and printing all integer registers

Modified:
   trunk/t/tools/parrot_debugger.t

Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t	Thu Jul 30 05:04:34 2009	(r40333)
+++ trunk/t/tools/parrot_debugger.t	Thu Jul 30 05:53:52 2009	(r40334)
@@ -122,6 +122,18 @@
     set I0, 242
 PASM
 
+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
+PASM
+
+pdb_output_like( <<PIR, "pir", "t 2", qr/\d+ set I0, 242\s*I0=0\s*\d+ set I1, 1982/, 'trace multiple statements (pir)');
+.sub main :main
+    \$I0 = 242
+    \$I1 = 1982
+.end
+PIR
+
 pdb_output_like( <<PIR, "pir", "t", qr/set I0, 242/, 'trace (pir)');
 .sub main :main
     \$I0 = 242
@@ -132,6 +144,18 @@
     set I0, 242
 PASM
 
+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
+PASM
+
+pdb_output_like( <<PIR, "pir","t 2\np I", qr/I0 = 242\s*I1 = 1982/, 'print all integer registers (pir)');
+.sub main :main
+    \$I0 = 242
+    \$I1 = 1982
+.end
+PIR
+
 pdb_output_like( <<PIR, "pir", "t\np \$I0", qr/242/, 'print a register (pir)');
 .sub main :main
     \$I0 = 242
@@ -152,7 +176,7 @@
 
 }
 
-BEGIN { $tests += 21 }
+BEGIN { $tests += 25 }
 
 BEGIN { plan tests => $tests; }
 


More information about the parrot-commits mailing list