mirror of
https://github.com/forth-ev/VolksForth.git
synced 2025-01-17 20:29:55 +00:00
Rename all .fth/.fr files in CPM/tests to .fs
This commit is contained in:
Philip Zembrod
parent
17e07ff5b5
commit
c147b2cba5
@ -66,7 +66,7 @@ logtest.log: \
|
||||
|
||||
inctest.log: \
|
||||
$(patsubst %, $(cpmfilesdir)/%, kernel.com fileint.fb \
|
||||
include.fb log2file.fb inctest.fth) \
|
||||
include.fb log2file.fb inctest.fs) \
|
||||
| emu
|
||||
./emulator/run-in-runcpm.sh \
|
||||
"kernel fileint.fb" \
|
||||
@ -75,7 +75,7 @@ inctest.log: \
|
||||
"include include.fb" \
|
||||
"include log2file.fb" \
|
||||
"logopen" \
|
||||
"include inctest.fth" \
|
||||
"include inctest.fs" \
|
||||
"logclose" \
|
||||
"bye" \
|
||||
"exit"
|
||||
@ -161,58 +161,58 @@ $(cpmfilesdir)/v4thblk.com: \
|
||||
|
||||
test-kernel.log: \
|
||||
$(patsubst %, $(cpmfilesdir)/%, kernel.com fileint.fb \
|
||||
include.fb log2file.fb core.fr) \
|
||||
$(patsubst tests/%, $(cpmfilesdir)/%, $(wildcard tests/*.fth)) \
|
||||
include.fb log2file.fb core.fs) \
|
||||
$(patsubst tests/%, $(cpmfilesdir)/%, $(wildcard tests/*.fs)) \
|
||||
| emu
|
||||
./emulator/run-in-runcpm.sh \
|
||||
"kernel fileint.fb" \
|
||||
"1 load onlyforth" \
|
||||
"$50 constant /tib" \
|
||||
"include include.fb" \
|
||||
"include test-krn.fth" \
|
||||
"include test-krn.fs" \
|
||||
"bye" \
|
||||
"exit"
|
||||
dos2unix -n $(runcpmdir)/logfile.txt $@
|
||||
|
||||
test-min.log: \
|
||||
$(patsubst %, $(cpmfilesdir)/%, v4th.com sfileint.fs \
|
||||
logfile.fth \
|
||||
ans-shim.fth prelim.fth tester.fth core.fr test-min.fth) \
|
||||
logfile.fs \
|
||||
ans-shim.fs prelim.fs tester.fs core.fs test-min.fs) \
|
||||
| emu
|
||||
./emulator/run-in-runcpm.sh \
|
||||
"v4th sfileint.fs" \
|
||||
"include-isfile" \
|
||||
"onlyforth" \
|
||||
"include test-min.fth" \
|
||||
"include test-min.fs" \
|
||||
"bye" \
|
||||
"exit"
|
||||
dos2unix -n $(runcpmdir)/logfile.txt $@
|
||||
|
||||
test-std.log: \
|
||||
$(patsubst %, $(cpmfilesdir)/%, v4th.com sfileint.fs \
|
||||
logfile.fth core.fr) \
|
||||
$(patsubst tests/%, $(cpmfilesdir)/%, $(wildcard tests/*.fth)) \
|
||||
logfile.fs core.fs) \
|
||||
$(patsubst tests/%, $(cpmfilesdir)/%, $(wildcard tests/*.fs)) \
|
||||
| emu
|
||||
./emulator/run-in-runcpm.sh \
|
||||
"v4th sfileint.fs" \
|
||||
"include-isfile" \
|
||||
"onlyforth" \
|
||||
"include test-std.fth" \
|
||||
"include test-std.fs" \
|
||||
"bye" \
|
||||
"exit"
|
||||
dos2unix -n $(runcpmdir)/logfile.txt $@
|
||||
|
||||
test-blk.log: \
|
||||
$(patsubst %, $(cpmfilesdir)/%, v4thblk.com sfileint.fs \
|
||||
sblkint.fs log2file.fb core.fr) \
|
||||
$(patsubst tests/%, $(cpmfilesdir)/%, $(wildcard tests/*.fth) \
|
||||
sblkint.fs log2file.fb core.fs) \
|
||||
$(patsubst tests/%, $(cpmfilesdir)/%, $(wildcard tests/*.fs) \
|
||||
tests/empty.fb) | emu
|
||||
./emulator/run-in-runcpm.sh \
|
||||
"v4thblk sfileint.fs" \
|
||||
"include-isfile" \
|
||||
"include sblkint.fs" \
|
||||
"onlyforth" \
|
||||
"include test-blk.fth" \
|
||||
"include test-blk.fs" \
|
||||
"bye" \
|
||||
"exit"
|
||||
dos2unix -n $(runcpmdir)/logfile.txt $@
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
|
||||
BLOCK.FTH **=== NOT TESTED === ******* EMPTY.FB Scr 21
|
||||
BLOCK.FS **=== NOT TESTED === ******* EMPTY.FB Scr 21
|
||||
0 Should show a (mostly) blank screen
|
||||
1
|
||||
2
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
|
||||
TESTER.FTH ERROR exists
|
||||
CORE.FR
|
||||
TESTER.FS ERROR exists
|
||||
CORE.FS
|
||||
*********************YOU SHOULD SEE THE STANDARD GRAPHIC CHARACTERS:
|
||||
!"#$%&'()*+,-./0123456789:;<=>?@
|
||||
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
|
||||
|
||||
@ -1,9 +1,9 @@
|
||||
|
||||
UTIL.FTH ?DEFTEST1 exists
|
||||
UTIL.FS ?DEFTEST1 exists
|
||||
Test utilities loaded
|
||||
|
||||
ERRORREP.FTH
|
||||
COREEXT.FTH **************
|
||||
ERRORREP.FS
|
||||
COREEXT.FS **************
|
||||
|
||||
Output from .(
|
||||
You should see -9876: -9876
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
COREPLUS.FTH ********
|
||||
COREPLUS.FS ********
|
||||
You should see 2345: 2345
|
||||
*****
|
||||
End of additional Core tests
|
||||
|
||||
@ -1,3 +1,3 @@
|
||||
|
||||
DOUBLTST.FTH *****************
|
||||
DOUBLTST.FS *****************
|
||||
End of Double-Number word tests
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
ok
|
||||
include inctest.fth
|
||||
INCTEST.FTH included from stream file: "1 2 + 4 * .": 12
|
||||
include inctest.fs
|
||||
INCTEST.FS included from stream file: "1 2 + 4 * .": 12
|
||||
ok
|
||||
logclose
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
|
||||
ANS-SHIM.FTH
|
||||
PRELIM.FTH
|
||||
ANS-SHIM.FS
|
||||
PRELIM.FS
|
||||
|
||||
CR CR SOURCE TYPE ( Preliminary test ) CR
|
||||
SOURCE ( These lines test SOURCE, TYPE, CR and parenthetic comments ) TYPE CR
|
||||
|
||||
26
8080/CPM/tests/test-blk.fs
Normal file
26
8080/CPM/tests/test-blk.fs
Normal file
@ -0,0 +1,26 @@
|
||||
|
||||
include log2file.fb \ so that include with block file gets tested
|
||||
' noop Is .status
|
||||
logopen
|
||||
|
||||
include ans-shim.fs
|
||||
: \vf [compile] \ ; immediate
|
||||
|
||||
include prelim.fs
|
||||
include tester.fs
|
||||
\ 1 verbose !
|
||||
include core.fs
|
||||
include coreplus.fs
|
||||
|
||||
include util.fs
|
||||
include errorrep.fs
|
||||
|
||||
include coreext.fs
|
||||
include doubltst.fs
|
||||
|
||||
include block.fs
|
||||
|
||||
REPORT-ERRORS
|
||||
|
||||
logclose
|
||||
|
||||
@ -1,26 +0,0 @@
|
||||
|
||||
include log2file.fb \ so that include with block file gets tested
|
||||
' noop Is .status
|
||||
logopen
|
||||
|
||||
include ans-shim.fth
|
||||
: \vf [compile] \ ; immediate
|
||||
|
||||
include prelim.fth
|
||||
include tester.fth
|
||||
\ 1 verbose !
|
||||
include core.fr
|
||||
include coreplus.fth
|
||||
|
||||
include util.fth
|
||||
include errorrep.fth
|
||||
|
||||
include coreext.fth
|
||||
include doubltst.fth
|
||||
|
||||
include block.fth
|
||||
|
||||
REPORT-ERRORS
|
||||
|
||||
logclose
|
||||
|
||||
22
8080/CPM/tests/test-krn.fs
Normal file
22
8080/CPM/tests/test-krn.fs
Normal file
@ -0,0 +1,22 @@
|
||||
|
||||
include log2file.fb
|
||||
logopen
|
||||
|
||||
include ans-shim.fs
|
||||
: \vf [compile] \ ; immediate
|
||||
|
||||
include prelim.fs
|
||||
include tester.fs
|
||||
|
||||
\ 1 verbose !
|
||||
include core.fs
|
||||
include coreplus.fs
|
||||
|
||||
include util.fs
|
||||
include errorrep.fs
|
||||
|
||||
include coreext.fs
|
||||
|
||||
REPORT-ERRORS
|
||||
|
||||
logclose
|
||||
@ -1,22 +0,0 @@
|
||||
|
||||
include log2file.fb
|
||||
logopen
|
||||
|
||||
include ans-shim.fth
|
||||
: \vf [compile] \ ; immediate
|
||||
|
||||
include prelim.fth
|
||||
include tester.fth
|
||||
|
||||
\ 1 verbose !
|
||||
include core.fr
|
||||
include coreplus.fth
|
||||
|
||||
include util.fth
|
||||
include errorrep.fth
|
||||
|
||||
include coreext.fth
|
||||
|
||||
REPORT-ERRORS
|
||||
|
||||
logclose
|
||||
14
8080/CPM/tests/test-min.fs
Normal file
14
8080/CPM/tests/test-min.fs
Normal file
@ -0,0 +1,14 @@
|
||||
|
||||
include logfile.fs
|
||||
logopen
|
||||
|
||||
include ans-shim.fs
|
||||
: \vf [compile] \ ; immediate
|
||||
|
||||
include prelim.fs
|
||||
include tester.fs
|
||||
|
||||
\ 1 verbose !
|
||||
include core.fs
|
||||
|
||||
logclose
|
||||
@ -1,14 +0,0 @@
|
||||
|
||||
include logfile.fth
|
||||
logopen
|
||||
|
||||
include ans-shim.fth
|
||||
: \vf [compile] \ ; immediate
|
||||
|
||||
include prelim.fth
|
||||
include tester.fth
|
||||
|
||||
\ 1 verbose !
|
||||
include core.fr
|
||||
|
||||
logclose
|
||||
@ -3,26 +3,26 @@
|
||||
\ blk @ ?dup IF ." Blk " u. ?cr exit THEN
|
||||
\ incfile @ IF tib #tib @ cr type THEN ;
|
||||
|
||||
include logfile.fth
|
||||
include logfile.fs
|
||||
logopen
|
||||
|
||||
include ans-shim.fth
|
||||
include ans-shim.fs
|
||||
: \vf [compile] \ ; immediate
|
||||
|
||||
include prelim.fth
|
||||
include tester.fth
|
||||
include prelim.fs
|
||||
include tester.fs
|
||||
\ 1 verbose !
|
||||
include core.fr
|
||||
include coreplus.fth
|
||||
include core.fs
|
||||
include coreplus.fs
|
||||
|
||||
include util.fth
|
||||
include errorrep.fth
|
||||
include util.fs
|
||||
include errorrep.fs
|
||||
|
||||
include coreext.fth
|
||||
include coreext.fs
|
||||
|
||||
\ ' .blk|tib Is .status
|
||||
|
||||
include doubltst.fth
|
||||
include doubltst.fs
|
||||
|
||||
REPORT-ERRORS
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user