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

graphviz: simpler preview-smoke-test.

locals-and-roots
John Benediktsson 2016-03-19 13:03:37 -07:00
parent 50759f4bc6
commit 0b5ee9dce8
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -55,10 +55,7 @@ SYMBOLS: supported-layouts supported-formats ;
] with-temp-directory ; ] with-temp-directory ;
: preview-smoke-test ( graph -- pass? ) : preview-smoke-test ( graph -- pass? )
f "pass?" [ [ exists? ] with-preview ;
[ exists? "pass?" set ] with-preview
"pass?" get
] with-variable ;
: K_n ( n -- graph ) : K_n ( n -- graph )
<graph> <graph>

6
extra/graphviz/render/render.factor
View File

@ -115,16 +115,16 @@ PRIVATE>
[ unsupported-preview-format ] [ unsupported-preview-format ]
} case ; } case ;
:: with-preview ( graph quot: ( path -- ) -- ) :: with-preview ( graph quot -- )
[ [
"preview" ".dot" [| code-file | "preview" ".dot" [| code-file |
"preview" preview-extension [| image-file | "preview" preview-extension [| image-file |
graph code-file ?encoding write-dot graph code-file ?encoding write-dot
code-file image-file try-preview-command code-file image-file try-preview-command
image-file quot call( path -- ) image-file quot call
] cleanup-unique-file ] cleanup-unique-file
] cleanup-unique-file ] cleanup-unique-file
] with-temp-directory ; ] with-temp-directory ; inline
PRIVATE> PRIVATE>