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

compiler.tests.stack-trace: use with-test-file.

locals-and-roots
John Benediktsson 2016-04-04 12:55:02 -07:00
parent da4812ba21
commit 4bfcc86cc4
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
USING: accessors combinators continuations grouping io.backend USING: accessors combinators continuations grouping io.backend
io.encodings.utf8 io.files io.files.temp io.files.unique kernel io.encodings.utf8 io.files kernel math namespaces parser
math namespaces parser sequences tools.test ; sequences tools.test ;
IN: compiler.tests.stack-trace IN: compiler.tests.stack-trace
: symbolic-stack-trace ( -- newseq ) : symbolic-stack-trace ( -- newseq )
@ -40,9 +40,7 @@ IN: compiler.tests.stack-trace
! #1265: Used to crash factor if compiled in debug mode. ! #1265: Used to crash factor if compiled in debug mode.
[ [
[ [
"compiler-run-file" "-test" [ "USING: continuations io.backend ; [ normalize-path ] ignore-errors f"
"USING: continuations io.backend ; [ normalize-path ] ignore-errors f" swap [ utf8 set-file-contents ] keep run-file
swap [ utf8 set-file-contents ] keep run-file ] with-test-file
] cleanup-unique-file
] with-temp-directory
] [ wrong-values? ] must-fail-with ] [ wrong-values? ] must-fail-with