all repos — min @ 8bf2154657c0209e53cf153865a0874223de1ee9

A small but practical concatenative programming language.

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" fs.dir?) test.assert

  ("dir1" "dir2" mv "dir2" fs.dir?) test.assert

  ("dir1" fs.dir? false ==) test.assert

  ("dir2" "dir1" cp "dir1" fs.dir?) test.assert

  ("..." "dir1/test.txt" fs.write "dir1/test.txt" fs.file?) test.assert

  ("dir1/test.txt" "dir2" mv "dir2/test.txt" fs.file?)  test.assert

  ("dir1/test.txt" fs.file? false ==) test.assert

  ("dir2/test.txt" "dir1" cp "dir1/test.txt" fs.file?)  test.assert

  ('dir1 ls 'fs.filename map ("test.txt") ==) test.assert

  ('dir2 ls 'fs.dirname map ("dir2") ==) test.assert

  ('dir1 rmdir 'dir2 rmdir 'dir1 fs.dir? 'dir2 fs.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 dict.get "\\." 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" fs.write "test.txt" fs.file?) test.assert

  ("test.txt" "test2.txt" cp "test2.txt" fs.file?) test.assert

  ("test.txt" "test1.txt" mv "test1.txt" fs.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" fs.write
   "TEST1" "test1.txt" fs.write
   "TEST2" "test2.txt" fs.write
   "TEST3" "test3.txt" fs.write
   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" dict.get ==) test.assert

  test.report
  stack.clear
  "systest" rmdir