steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.tests.stack-trace: unit tests against the #1265 bugs

db4
Björn Lindqvist 2015-01-15 05:07:40 +00:00
parent d18c48c75b
commit b6d25ba090
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
basis/compiler/tests/stack-trace.factor
View File

@ -1,6 +1,7 @@
USING: compiler tools.test namespaces sequences
kernel.private kernel math continuations continuations.private
words splitting grouping sorting accessors ;
USING: accessors combinators.short-circuit compiler continuations
continuations.private fry generic generic.hook grouping io.backend
io.encodings.utf8 io.files io.files.temp kernel kernel.private math namespaces
parser sequences sorting splitting tools.test vocabs words ;
IN: compiler.tests.stack-trace
: symbolic-stack-trace ( -- newseq )
@ -30,3 +31,15 @@ IN: compiler.tests.stack-trace
\ + stack-trace-any?
\ > stack-trace-any?
] unit-test
! #1265: Checks that the quotation index never is f (it's -1 instead).
{ f } [
[ normalize-path ] ignore-errors error-continuation get
call>> callstack>array [ f = ] any?
] unit-test
! Crashes factor if compiled in debug mode.
[ ] [
"USING: continuations io.backend ; [ normalize-path ] ignore-errors f"
"weird.factor" temp-file [ utf8 set-file-contents ] keep run-file
] unit-test