mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-18 17:27:40 +00:00
Code Issues 1 Releases Wiki Activity

Add file/tell

Browse Source
This commit is contained in:
sogaiu
2023-02-21 20:19:17 +09:00
parent 1144c27c54
commit 3c523d66e9
2 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
test/suite0007.janet
View File

@@ -294,9 +294,12 @@
(assert-error "comptime issue" (eval '(comptime (error "oops"))))
(with [f (file/temp)]
(assert (= 0 (file/tell f)) "start of file")
(file/write f "foo\n")
(assert (= 4 (file/tell f)) "after written string")
(file/flush f)
(file/seek f :set 0)
(assert (= 0 (file/tell f)) "start of file again")
(assert (= (string (file/read f :all)) "foo\n") "temp files work"))
(var counter 0)