Skip to content
Browse files

[debugger] Add test for adding watchpoint

git-svn-id: https://svn.parrot.org/parrot/trunk@40476 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 2f5434d commit 66ed7b64f862c5a07bb9234f58876c56279bab3d dukeleto committed
Showing with 10 additions and 2 deletions.
  1. +1 −1 src/debug.c
  2. +9 −1 t/tools/parrot_debugger.t
View
2 src/debug.c
@@ -1729,8 +1729,8 @@ PDB_watchpoint(PARROT_INTERP, ARGIN(const char *command))
/* Add it to the head of the list */
if (pdb->watchpoint)
condition->next = pdb->watchpoint;
-
pdb->watchpoint = condition;
+ fprintf(stderr, "Adding watchpoint\n");
}
/*
View
10 t/tools/parrot_debugger.t
@@ -287,7 +287,15 @@ PIR
}
-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; }

0 comments on commit 66ed7b6

Please sign in to comment.
Something went wrong with that request. Please try again.