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

vocabs.metadata: remove filter-don't-test (inline it instead).

modern-harvey2
John Benediktsson 2017-07-05 09:41:05 -07:00
parent ce6653bb65
commit 94e285e6de
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -188,9 +188,11 @@ M: test-failure error. ( error -- )
: :test-failures ( -- ) test-failures get errors. ; : :test-failures ( -- ) test-failures get errors. ;
: test ( prefix -- ) loaded-child-vocab-names test-vocabs ; : test ( prefix -- )
loaded-child-vocab-names test-vocabs ;
: test-all ( -- ) loaded-vocab-names filter-don't-test test-vocabs ; : test-all ( -- )
loaded-vocab-names [ don't-test? ] reject test-vocabs ;
: test-main ( -- ) : test-main ( -- )
command-line get [ [ load ] [ test ] bi ] each command-line get [ [ load ] [ test ] bi ] each

3
basis/vocabs/metadata/metadata.factor
View File

@ -85,9 +85,6 @@ ERROR: bad-platform name ;
: don't-test? ( vocab -- ? ) : don't-test? ( vocab -- ? )
vocab-tags "not tested" swap member? ; vocab-tags "not tested" swap member? ;
: filter-don't-test ( vocabs -- vocabs' )
[ don't-test? ] reject ;
TUPLE: unsupported-platform vocab requires ; TUPLE: unsupported-platform vocab requires ;
: throw-unsupported-platform ( vocab requires -- ) : throw-unsupported-platform ( vocab requires -- )