all repos — min @ a94a3fc7395f4001e0ac5899a4955191859c40ff

A small but practical concatenative programming language.

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