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

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Sun Aug  9 02:41:32 2009
New Revision: 40462
URL: https://trac.parrot.org/parrot/changeset/40462

Log:
[debugger] Add tests for the run command

Modified:
   trunk/t/tools/parrot_debugger.t

Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t	Sun Aug  9 02:21:18 2009	(r40461)
+++ trunk/t/tools/parrot_debugger.t	Sun Aug  9 02:41:32 2009	(r40462)
@@ -270,7 +270,24 @@
 .end
 PIR
 
-BEGIN { $tests += 41 }
+pdb_output_like( <<PIR, "pir", "r", qr/great job!/, 'run code');
+.sub main :main
+    print "great job!"
+.end
+PIR
+
+TODO: {
+
+local $TODO = 'arguments do not seem to populate $P0';
+pdb_output_like( <<PIR, "pir", "r gomer", qr/gomer/, 'run code with args');
+.sub main :main
+    print \$P0
+.end
+PIR
+
+}
+
+BEGIN { $tests += 43 }
 
 BEGIN { plan tests => $tests; }