tests/fs.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
'test require :test
;;;
"fs" *test/describe
"TEST" "test.txt" fwrite
("test.txt" fsize 4 ==) *test/assert
("test.txt" fperms 644 >=) *test/assert
("test.txt" ftype "file" ==) *test/assert
("test.txt" hidden? false ==) *test/assert
("test.txt" fstats 'type dget "file" ==) *test/assert
*test/report
clear-stack
"test.txt" rm
|