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

tools.test: allow testing from the command-line.

db4
John Benediktsson 2013-04-26 17:43:39 -07:00
parent 61912f3c73
commit 3139ec1d61
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,14 +1,13 @@
! Copyright (C) 2003, 2010 Slava Pestov. ! Copyright (C) 2003, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators compiler.units USING: accessors arrays assocs combinators command-line
continuations debugger effects fry generalizations compiler.units continuations debugger effects fry
sequences.generalizations io io.files io.styles kernel lexer generalizations io kernel lexer locals macros namespaces parser
locals macros math.parser namespaces parser vocabs.parser prettyprint quotations sequences sequences.generalizations
prettyprint quotations sequences source-files splitting source-files source-files.errors source-files.errors.debugger
stack-checker summary unicode.case vectors vocabs vocabs.loader splitting stack-checker summary tools.errors unicode.case vocabs
vocabs.files vocabs.metadata words tools.errors vocabs.files vocabs.metadata vocabs.parser words ;
source-files.errors source-files.errors.debugger io.streams.string FROM: vocabs.hierarchy => load ;
make compiler.errors ;
IN: tools.test IN: tools.test
TUPLE: test-failure < source-file-error continuation ; TUPLE: test-failure < source-file-error continuation ;
@ -171,3 +170,7 @@ M: test-failure error. ( error -- )
: test-all ( -- ) vocabs filter-don't-test test-vocabs ; : test-all ( -- ) vocabs filter-don't-test test-vocabs ;
: test-main ( -- )
command-line get [ [ load ] [ test ] bi ] each ;
MAIN: test-main