compiler.tests.stack-trace: Fix unit test.
parent
c86b933388
commit
b4e9334d04
|
@ -1,7 +1,8 @@
|
||||||
USING: accessors combinators.short-circuit compiler continuations
|
USING: accessors combinators combinators.short-circuit compiler
|
||||||
continuations.private fry generic generic.hook grouping io.backend
|
continuations continuations.private fry generic generic.hook
|
||||||
io.encodings.utf8 io.files io.files.temp kernel kernel.private math namespaces
|
grouping io.backend io.encodings.utf8 io.files io.files.temp
|
||||||
parser sequences sorting splitting tools.test vocabs words ;
|
kernel kernel.private math namespaces parser sequences sorting
|
||||||
|
splitting tools.test vocabs words ;
|
||||||
IN: compiler.tests.stack-trace
|
IN: compiler.tests.stack-trace
|
||||||
|
|
||||||
: symbolic-stack-trace ( -- newseq )
|
: symbolic-stack-trace ( -- newseq )
|
||||||
|
@ -38,8 +39,8 @@ IN: compiler.tests.stack-trace
|
||||||
call>> callstack>array [ f = ] any?
|
call>> callstack>array [ f = ] any?
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
! Crashes factor if compiled in debug mode.
|
! #1265: Used to crash factor if compiled in debug mode.
|
||||||
[ ] [
|
[
|
||||||
"USING: continuations io.backend ; [ normalize-path ] ignore-errors f"
|
"USING: continuations io.backend ; [ normalize-path ] ignore-errors f"
|
||||||
"weird.factor" temp-file [ utf8 set-file-contents ] keep run-file
|
"weird.factor" temp-file [ utf8 set-file-contents ] keep run-file
|
||||||
] unit-test
|
] [ wrong-values? ] must-fail-with
|
||||||
|
|
Loading…
Reference in New Issue