[svn:parrot] r40476 - in trunk: src t/tools

dukeleto at svn.parrot.org dukeleto at svn.parrot.org
Mon Aug 10 03:09:38 UTC 2009


Author: dukeleto
Date: Mon Aug 10 03:09:37 2009
New Revision: 40476
URL: https://trac.parrot.org/parrot/changeset/40476

Log:
[debugger] Add test for adding watchpoint

Modified:
   trunk/src/debug.c
   trunk/t/tools/parrot_debugger.t

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Mon Aug 10 03:02:23 2009	(r40475)
+++ trunk/src/debug.c	Mon Aug 10 03:09:37 2009	(r40476)
@@ -1729,8 +1729,8 @@
     /* Add it to the head of the list */
     if (pdb->watchpoint)
         condition->next = pdb->watchpoint;
-
     pdb->watchpoint = condition;
+    fprintf(stderr, "Adding watchpoint\n");
 }
 
 /*

Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t	Mon Aug 10 03:02:23 2009	(r40475)
+++ trunk/t/tools/parrot_debugger.t	Mon Aug 10 03:09:37 2009	(r40476)
@@ -287,7 +287,15 @@
 
 }
 
-BEGIN { $tests += 43 }
+pdb_output_like( <<PIR, "pir", "t\nw I0 == 2\nt", qr/Adding watchpoint/, 'watchpoint');
+.sub main :main
+    \$I0 = 1
+    \$I0 = 2
+    \$I0 = 3
+.end
+PIR
+
+BEGIN { $tests += 44 }
 
 BEGIN { plan tests => $tests; }
 


More information about the parrot-commits mailing list