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

graphviz: use cleanup-unique-working-directory now.

locals-and-roots
John Benediktsson 2016-03-16 12:11:14 -07:00
parent 35ca557ce7
commit 4b8e983f7d
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/graphviz/graphviz-tests.factor
View File

@ -36,13 +36,6 @@ SYMBOLS: supported-layouts supported-formats ;
"-T" force-error-message standard-formats intersect "-T" force-error-message standard-formats intersect
supported-formats set-global ; supported-formats set-global ;
! Can't use cleanup-unique-working-directory without fixing
! issue #890, so skip the cleanup on Windows.
:: cleanup-unique-working-directory* ( quot -- )
unique-directory :> path
path [ path quot with-temporary-directory ] with-directory
os windows? [ path delete-tree ] unless ; inline
! Can't predict file extension since we use Graphviz's actual ! Can't predict file extension since we use Graphviz's actual
! -O flag, so just look to see that there seems to be some sort ! -O flag, so just look to see that there seems to be some sort
! of output. ! of output.
@ -58,7 +51,7 @@ SYMBOLS: supported-layouts supported-formats ;
[ [
graph "smoke-test" -T -K graphviz graph "smoke-test" -T -K graphviz
"smoke-test" graphviz-output-appears-to-exist? "smoke-test" graphviz-output-appears-to-exist?
] cleanup-unique-working-directory* ; ] cleanup-unique-working-directory ;
: preview-smoke-test ( graph -- pass? ) : preview-smoke-test ( graph -- pass? )
f "pass?" [ f "pass?" [