projects
/
debian
/
pforth
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a6a68cf
)
Change tests for S" (#133)
author
Phil Burk
<philburk@mobileer.com>
Mon, 12 Dec 2022 01:18:58 +0000
(17:18 -0800)
committer
GitHub
<noreply@github.com>
Mon, 12 Dec 2022 01:18:58 +0000
(17:18 -0800)
Fixes #81
fth/t_file.fth
patch
|
blob
|
history
diff --git
a/fth/t_file.fth
b/fth/t_file.fth
index 297f208e8518400e897226607b1e3803816b1b52..a947d826a1c40f7f8098c989788ef600931096d2 100644
(file)
--- a/
fth/t_file.fth
+++ b/
fth/t_file.fth
@@
-98,7
+98,7
@@
T{ LINE1 FID1 @ WRITE-LINE -> 0 }T
T{ FID1 @ CLOSE-FILE -> 0 }T
\ ----------------------------------------------------------------------------
T{ FID1 @ CLOSE-FILE -> 0 }T
\ ----------------------------------------------------------------------------
-TESTING R/O FILE-POSITION (simple) READ-LINE
+TESTING R/O FILE-POSITION (simple) READ-LINE
200 CONSTANT BSIZE
CREATE BUF BSIZE ALLOT
200 CONSTANT BSIZE
CREATE BUF BSIZE ALLOT
@@
-259,14
+259,12
@@
T{ 0 INCLUDE t_required_helper2.fth
-> 2 }T
\ ----------------------------------------------------------------------------
-> 2 }T
\ ----------------------------------------------------------------------------
-TESTING two buffers available for S" and/or S\" (Forth 2012)
-
-: SSQ12 S" abcd" ; : SSQ13 S" 1234" ;
-T{ S" abcd" S" 1234" SSQ13 S= ROT ROT SSQ12 S= -> TRUE TRUE }T
-\ nyi T{ S\" abcd" S\" 1234" SSQ13 S= ROT ROT SSQ12 S= -> TRUE TRUE }T
-\ nyi T{ S" abcd" S\" 1234" SSQ13 S= ROT ROT SSQ12 S= -> TRUE TRUE }T
-\ nyi T{ S\" abcd" S" 1234" SSQ13 S= ROT ROT SSQ12 S= -> TRUE TRUE }T
+T{ : GC4 S" XY" ; }T{ }T
+T{ GC4 SWAP DROP }T{ 2 }T
+T{ GC4 DROP DUP C@ SWAP CHAR+ C@ }T{ $ 58 $ 59 }T
+: GC5 S" A String"2DROP ; \ There is no space between the " and 2DROP
+T{ GC5 }T{ }T
\ -----------------------------------------------------------------------------
TESTING SAVE-INPUT and RESTORE-INPUT with a file source
\ -----------------------------------------------------------------------------
TESTING SAVE-INPUT and RESTORE-INPUT with a file source
@@
-312,7
+310,7
@@
VARIABLE SI_INC 0 SI_INC !
: S$ S" SAVE-INPUT SI1 RESTORE-INPUT 12345" ;
: S$ S" SAVE-INPUT SI1 RESTORE-INPUT 12345" ;
-CREATE 2RES -1 , -1 , \ Don't use 2VARIABLE from Double number word set
+CREATE 2RES -1 , -1 , \ Don't use 2VARIABLE from Double number word set
: SI2
READ_A_LINE
: SI2
READ_A_LINE