diff options
author | dgp <dgp@users.sourceforge.net> | 2013-08-15 19:59:32 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-08-15 19:59:32 (GMT) |
commit | 9feda62fe0318715623c455abe7289bbb7dec34e (patch) | |
tree | 53980304ebd4b378c6e5926bd746ac753440f77d /tests/trace.test | |
parent | 77e6fd7e3c4a62f918f3a52cfb48d176c0d9d9a7 (diff) | |
parent | 86d682b82273fd98a4259df86f4303bc65a896b6 (diff) | |
download | tcl-9feda62fe0318715623c455abe7289bbb7dec34e.zip tcl-9feda62fe0318715623c455abe7289bbb7dec34e.tar.gz tcl-9feda62fe0318715623c455abe7289bbb7dec34e.tar.bz2 |
Make sure the errors raised by execution traces become errors raised by the
traced command, as documented. Deletion of the traced command was supressing
that.
Diffstat (limited to 'tests/trace.test')
-rw-r--r-- | tests/trace.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/trace.test b/tests/trace.test index a3a5604..d830f3c 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -2661,6 +2661,13 @@ test trace-39.1 {bug #3485022: tracing Bc'ed commands} -setup { rename dotrace {} rename foo {} } -result {3 | 0 1 1} + +test trace-40.1 {execution trace errors become command errors} { + proc foo args {} + trace add execution foo enter {rename foo {}; error bar;#} + catch foo m + return -level 0 $m[unset m] +} bar # Delete procedures when done, so we don't clash with other tests # (e.g. foobar will clash with 'unknown' tests). |