application/octet-stream
•
720 B
•
20 lines
#!/usr/bin/env nujel
[def out-contents "This is a short test paragraph\nIt even contains a linebreak!"]
[def path "test-file.tmp"]
[when [file/file? path]
[throw [list :port-error "The temporary filepath already contains a file" path]]]
[file/write out-contents path]
[when [not [file/file? path]]
[throw [list :port-error "The temporary filepath doesn't contain a file after it should have been written too"]]]
[def in-contents [slurp path]]
[when [not= in-contents out-contents]
[throw [list :port-error "The contents we've written and read back don't match, something isn't working"]]]
[rm path]
[when [file/file? path]
[throw [list :port-error "The temporary filepath still exists"]]]
[return :success]
