6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-12-22 21:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Set up test-blk.fth and get it to pass

Browse Source
This commit is contained in:
Philip Zembrod 2024-10-10 22:43:26 +02:00
parent bb041ce5dd
commit df6b07f5e1
4 changed files with 25 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
8080/CPM/Makefile
View File

@ -21,7 +21,7 @@ clean:
veryclean: clean
rm -rf $(cpmfilesdir)
test: test-min.result test-std.result
test: test-min.result test-std.result test-blk.result
alltests: logtest.result inctest.result test-min.result test-v4th.result
@ -157,6 +157,20 @@ test-std.log: \
"exit"
dos2unix -n $(runcpmdir)/logfile.txt $@
test-blk.log: \
$(patsubst %, $(cpmfilesdir)/%, v4th.com fileint.fb \
include.fb log2file.fb core.fr) \
$(patsubst tests/%, $(cpmfilesdir)/%, $(wildcard tests/*.fth) \
tests/empty.fb) | emu
./emulator/run-in-runcpm.sh \
"v4th fileint.fb" \
"1 load onlyforth" \
"include include.fb" \
"include test-blk.fth" \
"bye" \
"exit"
dos2unix -n $(runcpmdir)/logfile.txt $@
emu: $(runcpmdir)/RunCPM
test-min.golden: $(patsubst %, tests/golden/%.golden, prelim core)

12
8080/CPM/tests/golden/block.golden
View File

@ -1,5 +1,5 @@
FLUSH exists
BLOCK.FTH **=== NOT TESTED === ******* Scr 21 Dr 5 EMPTY.FB
BLOCK.FTH **=== NOT TESTED === ******* EMPTY.FB Scr 21
0 Should show a (mostly) blank screen
1
2
@ -16,7 +16,7 @@ BLOCK.FTH **=== NOT TESTED === ******* Scr 21 Dr 5 EMPTY.FB
13
14
15
Scr 20 Dr 5 EMPTY.FB
EMPTY.FB Scr 20
0 List of the First test block
1
2
@ -33,7 +33,7 @@ BLOCK.FTH **=== NOT TESTED === ******* Scr 21 Dr 5 EMPTY.FB
13
14
15
Scr 29 Dr 5 EMPTY.FB
EMPTY.FB Scr 29
0 List of the Last test block
1
2
@ -50,7 +50,7 @@ BLOCK.FTH **=== NOT TESTED === ******* Scr 21 Dr 5 EMPTY.FB
13
14
15
Scr 25 Dr 5 EMPTY.FB
EMPTY.FB Scr 25
0
1
2
@ -67,7 +67,7 @@ BLOCK.FTH **=== NOT TESTED === ******* Scr 21 Dr 5 EMPTY.FB
13
14
15 End of Screen
Scr 21 Dr 5 EMPTY.FB
EMPTY.FB Scr 21
0 Should show another (mostly) blank screen
1
2

1
8080/CPM/tests/golden/report-blk.golden
View File

@ -19,3 +19,4 @@ String -
Total 0
---------------------------

6
8080/CPM/tests/test-blk.fth
View File

@ -1,6 +1,7 @@
include log2file.fth
logopen output.log
include log2file.fb
' noop Is .status
logopen
include ans-shim.fth
: \vf [compile] \ ; immediate
@ -17,7 +18,6 @@ include errorrep.fth
include coreext.fth
include doubltst.fth
: flush logclose flush logreopen ;
include block.fth
REPORT-ERRORS