[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