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

dukeleto at svn.parrot.org dukeleto at svn.parrot.org
Wed Jul 29 07:05:30 UTC 2009


Author: dukeleto
Date: Wed Jul 29 07:05:28 2009
New Revision: 40324
URL: https://trac.parrot.org/parrot/changeset/40324

Log:
Add tests for tracing and printing registers in parrot_debugger

Modified:
   trunk/t/tools/parrot_debugger.t

Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t	Wed Jul 29 04:40:07 2009	(r40323)
+++ trunk/t/tools/parrot_debugger.t	Wed Jul 29 07:05:28 2009	(r40324)
@@ -118,7 +118,27 @@
 .end
 PIR
 
-BEGIN { $tests += 15 }
+pdb_output_like( <<PASM, "pasm", "t", qr/set I0, 242/, 'trace');
+    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\np I0", qr/242/, 'print a register');
+    set I0, 242
+PASM
+
+pdb_output_like( <<PIR, "pir", "t\np \$I0", qr/242/, 'print a register (pir)');
+.sub main :main
+    \$I0 = 242
+.end
+PIR
+
+BEGIN { $tests += 19 }
 
 BEGIN { plan tests => $tests; }
 


More information about the parrot-commits mailing list