fix some tests broken by my io.files.unique change.

locals-and-roots
John Benediktsson 2016-03-19 09:50:01 -07:00
parent 95a6f6d568
commit bde8f522f1
6 changed files with 21 additions and 19 deletions

View File

@ -1,6 +1,6 @@
USING: io.streams.string csv tools.test kernel strings
io.pathnames io.files.unique io.encodings.utf8 io.files
io.directories ;
io.pathnames io.files.temp io.files.unique io.encodings.utf8
io.files io.directories ;
IN: csv.tests
! I like to name my unit tests

View File

@ -1,6 +1,6 @@
USING: calendar ftp.server io.encodings.ascii io.files
io.files.unique namespaces threads tools.test kernel
io.servers ftp.client accessors urls
io.files.temp io.files.unique namespaces threads tools.test
kernel io.servers ftp.client accessors urls
io.pathnames io.directories sequences fry io.backend
continuations ;
FROM: ftp.client => ftp-get ;

View File

@ -1,7 +1,7 @@
USING: combinators.smart io.directories
io.directories.hierarchy io.directories.search io.files
io.files.unique io.pathnames kernel namespaces sequences
sorting strings tools.test ;
io.files.temp io.files.unique io.pathnames kernel namespaces
sequences sorting strings tools.test ;
IN: io.directories.search.tests
{ t } [

View File

@ -1,6 +1,6 @@
USING: io.directories io.files.links tools.test sequences
io.files.unique tools.files fry math kernel math.parser
io.pathnames namespaces ;
io.files.temp io.files.unique tools.files fry math kernel
math.parser io.pathnames namespaces ;
IN: io.files.links.unix.tests
: make-test-links ( n path -- )

View File

@ -1,7 +1,7 @@
USING: accessors io.directories io.directories.hierarchy
io.encodings.ascii io.files io.files.info io.files.temp
io.files.unique io.pathnames kernel namespaces sequences strings
tools.test ;
USING: accessors continuations io.directories
io.directories.hierarchy io.encodings.ascii io.files
io.files.info io.files.temp io.files.unique io.pathnames kernel
namespaces sequences strings tools.test ;
IN: io.files.unique.tests
{ 123 } [

View File

@ -2,10 +2,10 @@ USING: accessors arrays assocs combinators.short-circuit
continuations formatting graphviz graphviz.attributes
graphviz.dot graphviz.notation graphviz.render
graphviz.render.private images.loader.private io.directories
io.directories.hierarchy io.files io.files.unique io.launcher
io.pathnames kernel locals make math math.combinatorics
math.parser memoize namespaces sequences sequences.extras sets
splitting system tools.test ;
io.directories.hierarchy io.files io.files.temp io.files.unique
io.launcher io.pathnames kernel locals make math
math.combinatorics math.parser memoize namespaces sequences
sequences.extras sets splitting system tools.test ;
IN: graphviz.tests
! XXX hack
@ -48,9 +48,11 @@ SYMBOLS: supported-layouts supported-formats ;
supported-formats get-global next! :> -T
supported-layouts get-global next! :> -K
[
graph "smoke-test" -T -K graphviz
"smoke-test" graphviz-output-appears-to-exist?
] cleanup-unique-working-directory ;
[
graph "smoke-test" -T -K graphviz
"smoke-test" graphviz-output-appears-to-exist?
] cleanup-unique-directory
] with-temp-directory ;
: preview-smoke-test ( graph -- pass? )
f "pass?" [