fix some tests broken by my io.files.unique change.
							parent
							
								
									95a6f6d568
								
							
						
					
					
						commit
						bde8f522f1
					
				| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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 ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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 } [
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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 -- )
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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 } [
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			@ -47,10 +47,12 @@ SYMBOLS: supported-layouts supported-formats ;
 | 
			
		|||
:: smoke-test ( graph -- pass? )
 | 
			
		||||
    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 ;
 | 
			
		||||
        ] cleanup-unique-directory
 | 
			
		||||
    ] with-temp-directory ;
 | 
			
		||||
 | 
			
		||||
: preview-smoke-test ( graph -- pass? )
 | 
			
		||||
    f "pass?" [
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue