[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