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

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Wed Jul 29 04:40:07 2009
New Revision: 40323
URL: https://trac.parrot.org/parrot/changeset/40323

Log:
Add tests for listing breakpoints 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 02:27:09 2009	(r40322)
+++ trunk/t/tools/parrot_debugger.t	Wed Jul 29 04:40:07 2009	(r40323)
@@ -108,8 +108,17 @@
 pdb_output_like( <<PASM, "pasm", "b", qr/Breakpoint 1 at pos 0/, 'set breakpoint');
     set I1, 242
 PASM
+pdb_output_like( <<PASM, "pasm", "b\nb\nL", qr/Breakpoint 1 at pos 0\nBreakpoint 2 at pos 0/, 'list breakpoints');
+    set I1, 242
+PASM
+
+pdb_output_like( <<PIR, "pir", "b\nb\nL", qr/Breakpoint 1 at pos 0\nBreakpoint 2 at pos 0/, 'list breakpoints (pir)');
+.sub main :main
+    \$I1 = 242
+.end
+PIR
 
-BEGIN { $tests += 13 }
+BEGIN { $tests += 15 }
 
 BEGIN { plan tests => $tests; }