all repos — min @ snap

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 load
'test import

"fs" describe

  "TEST" "test.txt" fwrite
  
  ("test.txt" fsize 4 ==) assert

  ("test.txt" fperms 644 >=) assert

  ("test.txt" ftype "file" ==) assert

  ("test.txt" hidden? false ==) assert

  ("test.txt" fstats 'type dget "file" ==) assert
  
  report
  clear-stack
  "test.txt" rm