debugger: adding a test case that breaks the fix for #1187.

db4
John Benediktsson 2014-12-04 11:45:57 -08:00
parent b102f138b3
commit 6bf1f1dd99
1 changed files with 9 additions and 1 deletions

View File

@ -1,4 +1,5 @@
USING: alien.syntax debugger kernel continuations tools.test ;
USING: accessors alien.syntax arrays continuations debugger
kernel namespaces tools.test ;
IN: debugger.tests
[ ] [ [ drop ] [ error. ] recover ] unit-test
@ -38,3 +39,10 @@ T{ test-failure
{ continuation f }
} error.
] unit-test
[
{ "kernel-error" 3 0 "hi" }
{ 1 2 3 { "kernel-error" 3 0 "hi" } }
] [
[ 1 2 3 "hi" f <array> ] [ ] recover error-continuation get data>>
] unit-test