1 ! Copyright (C) 2014 Jon Harper.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: combinators kernel math sequences ;
4 IN: tools.coverage.testvocab
8 : testifprivate ( ? -- ) [ ] [ ] if ;
12 : halftested ( ? -- ) [ ] [ ] if ;
13 : testif ( ? -- ) [ ] [ ] if ;
14 : testcond ( n -- n ) {
20 MACRO: mconcat ( seq -- quot ) concat ;
21 : testmacro ( a b -- )
22 { [ 2dup ] [ <= [ ] [ ] if ] [ > [ ] [ ] if ] } mconcat ;
25 '[ _ [ ] [ ] if ] call ;
29 SYMBOL: not-a-coverage-word