1 USING: io.encodings.ascii sequences strings io io.files accessors
2 tools.test kernel io.files.unique namespaces continuations
3 io.files.info io.pathnames io.directories ;
4 IN: io.files.unique.tests
8 [ [ 123 CHAR: a <string> ] dip ascii set-file-contents ]
9 [ file-info size>> ] bi
14 [ current-directory get file-info directory? ] cleanup-unique-directory
19 [ [ "FAILDOG" throw ] cleanup-unique-directory ] [ drop ] recover
20 current-directory get =
25 "asdf" unique-file drop
26 "asdf2" unique-file drop
27 current-temporary-directory get directory-files length 2 =
28 ] cleanup-unique-directory
32 [ ] with-unique-directory >boolean
37 "asdf" unique-file drop
38 "asdf" unique-file drop
39 current-temporary-directory get directory-files length 2 =
40 ] with-unique-directory drop