commit b6513f8

Stricter file test

 1@@ -1,7 +1,7 @@
 2 ( 54K . File Test )
 3 
 4 |10 @Console/vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 5-|a0 @File/vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
 6+|a0 @File/vector $2 &success $1 &success-lb $1 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
 7 |004f @Varvara/version
 8 
 9 |100
10@@ -18,6 +18,7 @@
11 	;dict/stat-of file/test-stat-of <test>
12 	;dict/write-of file/test-write-of <test>
13 	;dict/delete file/test-delete <test>
14+	;dict/success file/test-success <test>
15 	( | Dir )
16 	;dict/dir-spacer file/test-dir-spacer <test>
17 	;dict/dir-partial file/test-dir-partial <test>
18@@ -147,6 +148,29 @@
19 	;&bufb .File/read DEO2
20 	;&bufa ;&bufb !str/cmp
21 
22+@file/test-success ( -- pass )
23+	;&name .File/name DEO2
24+	#01 .File/delete DEO
25+	#0003 .File/length DEO2
26+	;&string .File/write DEO2
27+	.File/success DEI2 #0003 EQU2 ?{ #00 JMP2r }
28+	#0001 .File/length DEO2
29+	( | Each letter )
30+	;&sa .File/read DEO2
31+	.File/success-lb DEI ?{ #00 JMP2r }
32+	[ LIT2 &sa $1 "a ] EQU ?{ #00 JMP2r }
33+	;&sb .File/read DEO2
34+	.File/success-lb DEI ?{ #00 JMP2r }
35+	[ LIT2 &sb $1 "b ] EQU ?{ #00 JMP2r }
36+	;&sc .File/read DEO2
37+	.File/success-lb DEI ?{ #00 JMP2r }
38+	[ LIT2 &sc $1 "c ] EQU ?{ #00 JMP2r }
39+	;&sz .File/read DEO2
40+	.File/success-lb DEI ?{ #01 JMP2r }
41+	#00 JMP2r
42+
43+	&string "abc 00 &sz $1
44+
45 (
46 @|Helpers )
47 
48@@ -186,6 +210,7 @@
49 	&dir-spacer "File/dir(spacer): 20 $1
50 	&dir-nostream "File/dir(nostream): 20 $1
51 	&dir-partial "File/dir(partial): 20 $1
52+	&success "File/success: 20 $1
53 	&fail "fail 0a $1
54 	&pass "pass 0a $1
55