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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/csv/csv-tests.factor
View File

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

4
basis/ftp/server/server-tests.factor
View File

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

4
basis/io/directories/search/search-tests.factor
View File

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

4
basis/io/files/links/unix/unix-tests.factor
View File

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

8
basis/io/files/unique/unique-tests.factor
View File

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

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

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