basis/tools/coverage/testvocab/testvocab-tests.factor

   1 ! Copyright (C) 2014 Jon Harper.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: tools.test tools.coverage.testvocab tools.coverage.testvocab.private ;
   4 IN: tools.coverage.testvocab.tests
   5
   6 { } [ t testifprivate ] unit-test
   7 { } [ f testifprivate ] unit-test
   8 { } [ t testif ] unit-test
   9 { } [ f testif ] unit-test
  10 { } [ f halftested ] unit-test
  11 { 0 } [ 0 testcond ] unit-test
  12 { 1 } [ 1 testcond ] unit-test
  13 { 2 } [ 2 testcond ] unit-test
  14 { 1 2 3 } [ { [ 1 ] [ 2 3 ] } mconcat ] unit-test
  15 { } [ 1 2 testmacro ] unit-test
  16 { } [ 2 1 testmacro ] unit-test
  17 { } [ t testfry ] unit-test
  18 { } [ f testfry ] unit-test