alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Disable color on windows tests until we can detect the tty.

Browse Source
This commit is contained in:
Brad Nelson
2024-01-14 19:49:39 -08:00
parent 0373e9c619
commit 6b4f49e8e4
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
common/testing.fs
View File

@ -95,11 +95,14 @@ DEFINED? posix [IF]
: normal old-normal ; : normal old-normal ;
[THEN] [THEN]
[THEN] [THEN]
( TODO: Figure out how to detect console in windows. )
(
DEFINED? windows [IF] DEFINED? windows [IF]
: red 1 fg ; : green 2 fg ; : red 1 fg ; : green 2 fg ;
: replace-line 13 emit clear-to-eol ; : replace-line 13 emit clear-to-eol ;
: normal old-normal ; : normal old-normal ;
[THEN] [THEN]
)
: hr 40 for [char] - emit next cr ; : hr 40 for [char] - emit next cr ;
: label-test ( xt -- ) replace-line >name type ; : label-test ( xt -- ) replace-line >name type ;
: run-test ( xt -- ) dup label-test only forth confirm{ ['] wrap-test catch }confirm : run-test ( xt -- ) dup label-test only forth confirm{ ['] wrap-test catch }confirm