Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add report-and-exit

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-11 14:33:11 +09:00
parent 173170cd17
commit 414aa3da6f
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtests.fs
View file

@ -10,4 +10,4 @@ include test/tester.fs
include test/core.fs
include test/coreplustest.fs
print-report
report-and-exit

10
test/tester.fs
View file

@ -70,14 +70,16 @@ create actual-results 20 cells allot
1 #skip +!
;
: print-report
: report-and-exit
decimal
cr ." --------------------------------"
cr ." Run " #ok @ #error @ + #skip @ + . ." tests" cr
." ok:" #ok @ .
." failed:" #error @ .
." skipped:" #skip @ .
green ." ok:" #ok @ .
red ." failed:" #error @ .
yellow ." skipped:" #skip @ .
reset
cr ." --------------------------------"
cr
#error @ 0= if bye else abort then
;