[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