Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #26 from nineties/fileio-test

Browse source 
Add test/fileio.fs [WIP]
This commit is contained in:
Koichi NAKAMURA 2021-12-09 08:21:33 +09:00 committed by GitHub
commit 305c00b956
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
runtests.fs
View file

@ -11,6 +11,7 @@ include lib/tester.fs
include test/core.fs include test/core.fs
include test/utilities.fs include test/utilities.fs
include test/coreexttest.fs include test/coreexttest.fs
include test/fileio.fs
include test/export.fs include test/export.fs
include lib/string.fs include lib/string.fs

1
test/fileio-test0.txt Normal file
View file

@ -0,0 +1 @@
ABCDEFGHIJKLMNOPQRSTUVWXYZ

15
test/fileio.fs Normal file
View file

@ -0,0 +1,15 @@
\ planckforth -
\ Copyright (C) 2021 nineties
testing file I/O
T{
s" test/fileio-test0.txt" R/O open-file throw
constant FILE0 ->
}T
T{ 32 allocate throw constant BUF -> }T
T{ BUF 32 FILE0 read-file throw -> 27 }T
T{ s" ABCDEFGHIJKLMNOPQRSTUVWXYZ
" BUF 27 strneq -> true }T
T{ FILE0 close-file throw -> }T
T{ BUF free -> }T