commit 0b6b935
Devine Lu Linvega
·
2026-06-25 01:49:50 +0000 UTC
parent b6513f8
Improved file test
1 files changed,
+7,
-1
+7,
-1
1@@ -151,11 +151,17 @@
2 @file/test-success ( -- pass )
3 ;&name .File/name DEO2
4 #01 .File/delete DEO
5+ #00 .File/success-lb DEI EQU ?{ #00 JMP2r }
6+ ( | Make file )
7 #0003 .File/length DEO2
8 ;&string .File/write DEO2
9 .File/success DEI2 #0003 EQU2 ?{ #00 JMP2r }
10- #0001 .File/length DEO2
11+ ( | Zero load )
12+ #0000 .File/length DEO2
13+ ;&sz .File/read DEO2
14+ #00 .File/success-lb DEI EQU ?{ #00 JMP2r }
15 ( | Each letter )
16+ #0001 .File/length DEO2
17 ;&sa .File/read DEO2
18 .File/success-lb DEI ?{ #00 JMP2r }
19 [ LIT2 &sa $1 "a ] EQU ?{ #00 JMP2r }