steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "tools.test: Print tests homoiconically. There is too much spacing still" 

This reverts commit 34a197248c.
db4
Doug Coleman 2014-11-23 23:59:57 -08:00
parent beaa8ef083
commit 726e5068f7
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/tools/test/test.factor
View File

@ -76,7 +76,8 @@ M: did-not-fail summary drop "Did not fail" ;
[ { } quot with-datastack drop did-not-fail-literal t ] [ drop f f ] recover ; [ { } quot with-datastack drop did-not-fail-literal t ] [ drop f f ] recover ;
: experiment-title ( word -- string ) : experiment-title ( word -- string )
"(" ?head drop ")" ?tail drop search ; "(" ?head drop ")" ?tail drop
H{ { CHAR: - CHAR: \s } } substitute >title ;
MACRO: <experiment> ( word -- ) MACRO: <experiment> ( word -- )
[ stack-effect in>> length dup ] [ stack-effect in>> length dup ]
@ -84,14 +85,8 @@ MACRO: <experiment> ( word -- )
'[ _ ndup _ narray _ prefix ] ; '[ _ ndup _ narray _ prefix ] ;
: experiment. ( seq -- ) : experiment. ( seq -- )
[ [ first write ": " write ]
[ [ rest verbose-tests? get [ . ] [ short. ] if flush ] bi ;
rest verbose-tests? get
[ [ pprint* "" text ] each ]
[ [ [ pprint* "" text ] with-short-limits ] each ] if
]
[ "" text first pprint-word flush ] bi
] with-pprint nl ;
:: experiment ( word: ( -- error ? ) line# -- ) :: experiment ( word: ( -- error ? ) line# -- )
word <experiment> :> e word <experiment> :> e