1 USING: fry io.directories io.files.links io.pathnames kernel
2 math math.parser namespaces sequences tools.test ;
3 IN: io.files.links.unix.tests
5 : make-test-links ( n path -- )
6 [ '[ [ 1 + ] keep [ number>string _ prepend ] bi@ make-link ] each-integer ]
7 [ [ number>string ] dip prepend touch-file ] 2bi ; inline
11 5 "lol" make-test-links
13 "lol5" absolute-path =
19 100 "laf" make-test-links "laf1" follow-links
21 ] [ too-many-symlinks? ] must-fail-with
26 100 "laf" make-test-links
28 "laf100" absolute-path =