tests/sys.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 |
'min-test require :test
;;;
"sys" test.describe
("dir1" mkdir "dir1" dir?) test.assert
("dir1" "dir2" mv "dir2" dir?) test.assert
("dir1" dir? false ==) test.assert
("dir2" "dir1" cp "dir1" dir?) test.assert
("..." "dir1/test.txt" fwrite "dir1/test.txt" file?) test.assert
("dir1/test.txt" "dir2" mv "dir2/test.txt" file?) test.assert
("dir1/test.txt" file? false ==) test.assert
("dir2/test.txt" "dir1" cp "dir1/test.txt" file?) test.assert
('dir1 ls 'filename map ("test.txt") ==) test.assert
('dir2 ls 'dirname map ("dir2") ==) test.assert
('dir1 rmdir 'dir2 rmdir 'dir1 dir? 'dir2 dir? or false ==) test.assert
("systest" mkdir pwd ls (pwd "systest") => "/" join in?) test.assert
("systest" cd pwd "systest" match?) test.assert
parent-dir cd
("./min -v" run 'output dget "\\." match?) test.assert
("PATH" env?) test.assert
($PATH length 0 >) test.assert
("TEST" "AAA" put-env $AAA "TEST" ==) test.assert
(os length 0 >) test.assert
(cpu length 0 >) test.assert
("TEST" "test.txt" fwrite "test.txt" file?) test.assert
("test.txt" "test2.txt" cp "test2.txt" file?) test.assert
("test.txt" "test1.txt" mv "test1.txt" file?) test.assert
("test2.txt" rm "test1.txt" rm pwd ls (pwd "test1.txt") => "/" join in? :t1 pwd ls "test2" in? t1 and false ==) test.assert
("systest" cd
"TEST" "test.txt" fwrite
"TEST1" "test1.txt" fwrite
"TEST2" "test2.txt" fwrite
"TEST3" "test3.txt" fwrite
pwd ls "test.zip" zip pwd ls (pwd "test.zip") => "/" join in?) test.assert
("test.zip" "extracted" unzip "extracted" ls "extracted/test1.txt" in?) test.assert
parent-dir cd
("systest" rmdir pwd ls (pwd "systest") => "/" join in? false ==) test.assert
([ls] "ls" run "output" dget ==) test.assert
test.report
clear-stack
"systest" rmdir
|