factor/examples/test-suite/test-suite.factor


1
2
3
4
5
6
7
8
9
10
11
12
13

USING: tools.test io io.streams.null kernel namespaces sequences ;

USE: examples.greeter
USE: examples.strings

IN: examples.test-suite

: test-all-examples ( -- )
    [ "examples" test ] with-null-writer
    test-failures get empty?
    [ "All tests passed" print ] [ :test-failures ] if ;

MAIN: test-all-examples