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

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Tue Jul 28 07:01:31 2009
New Revision: 40297
URL: https://trac.parrot.org/parrot/changeset/40297

Log:
Add some tests for the basic parrot_debugger commands

Modified:
   trunk/t/tools/parrot_debugger.t

Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t	Tue Jul 28 03:24:55 2009	(r40296)
+++ trunk/t/tools/parrot_debugger.t	Tue Jul 28 07:01:31 2009	(r40297)
@@ -56,14 +56,57 @@
     print "\\n"
 .end
 PIR
-pdb_output_like( <<PIR, "pir", "r", qr/3\.14159/, 'running the program');
+pdb_output_like( <<PIR, "pir", "r", qr/3\.14159/, 'running the program (pir)');
 .sub main :main
     \$N3 = 3.14159
     print \$N3
     print "\\n"
 .end
 PIR
-BEGIN { $tests += 2 }
+pdb_output_like( <<PASM, "pasm", "run", qr/42/, 'running the program (long,pasm)');
+    set I1,42
+    print I1
+    print "\\n"
+PASM
+pdb_output_like( <<PASM, "pasm", "r", qr/42/, 'running the program (pasm)');
+    set I1,42
+    print I1
+    print "\\n"
+PASM
+pdb_output_like( <<PASM, "pasm", "n", qr/one more time/, 'next instruction (pasm)');
+    print "one more time\\n"
+PASM
+pdb_output_like( <<PASM, "pasm", "next", qr/one more time/, 'next instruction (long,pasm)');
+    print "one more time\\n"
+PASM
+pdb_output_like( <<PIR, "pir", "n", qr/one more time/, 'next instruction (pir)');
+.sub main :main
+    print "one more time\\n"
+.end
+PIR
+pdb_output_like( <<PIR, "pir", "next", qr/one more time/, 'next instruction (long,pir)');
+.sub main :main
+    print "one more time\\n"
+.end
+PIR
+pdb_output_like( <<PIR, "pir", "s", qr/current instr.: 'main'/, 'show stack (pir)');
+.sub main :main
+    \$I1 = 242
+.end
+PIR
+pdb_output_like( <<PIR, "pir", "stack", qr/current instr.: 'main'/, 'show stack (long,pir)');
+.sub main :main
+    \$I1 = 242
+.end
+PIR
+pdb_output_like( <<PASM, "pasm", "s", qr/current instr.: '\(null\)'/, 'show stack (pasm)');
+    set I1, 242
+PASM
+pdb_output_like( <<PASM, "pasm", "info", qr/Total memory allocated =/, 'info (pasm)');
+    set I1, 242
+PASM
+
+BEGIN { $tests += 12 }
 
 BEGIN { plan tests => $tests; }