2 USING: continuations debugger io.streams.string kernel namespaces
3 sequences tools.test tools.test.private ;
8 ] fake-unit-test length
11 : create-test-failure ( -- error )
13 f "path" 25 error-continuation get test-failure boa
16 ! Just verifies that the presented output contains a callstack.
18 create-test-failure [ error. ] with-string-writer
19 "OBJ-CURRENT-THREAD" swap subseq?