30 lines
605 B
Factor
30 lines
605 B
Factor
! Copyright (C) 2014 Jon Harper.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: combinators fry kernel macros math sequences ;
|
|
IN: tools.coverage.testvocab
|
|
|
|
<PRIVATE
|
|
|
|
: testifprivate ( ? -- ) [ ] [ ] if ;
|
|
|
|
PRIVATE>
|
|
|
|
: halftested ( ? -- ) [ ] [ ] if ;
|
|
: testif ( ? -- ) [ ] [ ] if ;
|
|
: testcond ( n -- n ) {
|
|
{ [ dup 0 = ] [ ] }
|
|
{ [ dup 1 = ] [ ] }
|
|
[ ]
|
|
} cond ;
|
|
|
|
MACRO: mconcat ( seq -- quot ) concat ;
|
|
: testmacro ( a b -- )
|
|
{ [ 2dup ] [ <= [ ] [ ] if ] [ > [ ] [ ] if ] } mconcat ;
|
|
|
|
: testfry ( ? -- )
|
|
'[ _ [ ] [ ] if ] call ;
|
|
|
|
: untested ( -- ) ;
|
|
|
|
SYMBOL: not-a-coverage-word
|