tools.coverage: add tests, fixes #433
Jon Harper
John Benediktsson
parent
485932eff1
commit
0cf6541847
|
|
@ -0,0 +1,75 @@
|
|||
! Copyright (C) 2014 Jon Harper.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays kernel sequences sorting tools.coverage
|
||||
tools.coverage.private tools.coverage.testvocab tools.coverage.testvocab.child
|
||||
tools.coverage.testvocab.private tools.test vocabs.loader ;
|
||||
IN: tools.coverage.tests
|
||||
|
||||
{ "foo.private" } [ "foo" private-vocab-name ] unit-test
|
||||
{ "foo.private" } [ "foo.private" private-vocab-name ] unit-test
|
||||
|
||||
{
|
||||
{ halftested mconcat testcond testfry testif testifprivate testmacro untested
|
||||
}
|
||||
} [ "tools.coverage.testvocab" [ ] map-words natural-sort ] unit-test
|
||||
|
||||
{ t } [
|
||||
"tools.coverage.testvocab"
|
||||
[ V{ } clone [ [ push ] curry each-word ] keep >array ]
|
||||
[ [ ] map-words ] bi =
|
||||
] unit-test
|
||||
|
||||
{
|
||||
{ testifprivate }
|
||||
} [ "tools.coverage.testvocab.private" [ ] map-words natural-sort ] unit-test
|
||||
|
||||
{ t } [
|
||||
"tools.coverage.testvocab.private"
|
||||
[ V{ } clone [ [ push ] curry each-word ] keep >array ]
|
||||
[ [ ] map-words ] bi =
|
||||
] unit-test
|
||||
|
||||
{ 3 } [ \ testif count-callables ] unit-test
|
||||
|
||||
! Need to reload to flush macro cache
|
||||
! and have correct coverage statistics
|
||||
{
|
||||
{
|
||||
{ halftested { [ ] } }
|
||||
{ mconcat { } }
|
||||
{ testcond { } }
|
||||
{ testfry { } }
|
||||
{ testif { } }
|
||||
{ testifprivate { } }
|
||||
{ testmacro { } }
|
||||
{ untested { [ ] } }
|
||||
}
|
||||
} [ "tools.coverage.testvocab" [ reload ] [ test-coverage natural-sort ] bi ] unit-test
|
||||
|
||||
{ 0.75 } [ "tools.coverage.testvocab.child" [ reload ] [ %coverage ] bi ] unit-test
|
||||
|
||||
{
|
||||
{
|
||||
{
|
||||
"tools.coverage.testvocab"
|
||||
{
|
||||
{ halftested { [ ] } }
|
||||
{ mconcat { } }
|
||||
{ testcond { } }
|
||||
{ testfry { } }
|
||||
{ testif { } }
|
||||
{ testifprivate { } }
|
||||
{ testmacro { } }
|
||||
{ untested { [ ] } }
|
||||
}
|
||||
}
|
||||
{
|
||||
"tools.coverage.testvocab.child"
|
||||
{ { child-halftested { [ ] } } { foo { } } }
|
||||
}
|
||||
}
|
||||
} [
|
||||
"tools.coverage.testvocab.child" reload
|
||||
"tools.coverage.testvocab" [ reload ] [ test-coverage-recursively ] bi natural-sort
|
||||
[ first2 natural-sort 2array ] map
|
||||
] unit-test
|
||||
|
|
@ -0,0 +1 @@
|
|||
Jon Harper
|
||||
|
|
@ -0,0 +1 @@
|
|||
Jon Harper
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
! Copyright (C) 2014 Jon Harper.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: tools.test tools.coverage.testvocab.child ;
|
||||
IN: tools.coverage.testvocab.child.tests
|
||||
|
||||
{ } [ foo ] unit-test
|
||||
{ } [ t child-halftested ] unit-test
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
! Copyright (C) 2014 Jon Harper.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel ;
|
||||
IN: tools.coverage.testvocab.child
|
||||
|
||||
: foo ( -- ) ;
|
||||
: child-halftested ( ? -- ) [ ] [ ] if ;
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
! Copyright (C) 2014 Jon Harper.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: help.markup help.syntax kernel quotations sequences ;
|
||||
IN: tools.coverage.testvocab
|
||||
|
||||
ARTICLE: "tools.coverage.testvocab" "tools.coverage.testvocab"
|
||||
"The " { $vocab-link "tools.coverage.testdata" } " vocabulary is just a dummy vocabulary to test " { $vocab-link "tools.coverage" } "." ;
|
||||
|
||||
ABOUT: "tools.coverage.testvocab"
|
||||
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
! Copyright (C) 2014 Jon Harper.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: tools.test tools.coverage.testvocab tools.coverage.testvocab.private ;
|
||||
IN: tools.coverage.testvocab.tests
|
||||
|
||||
{ } [ t testifprivate ] unit-test
|
||||
{ } [ f testifprivate ] unit-test
|
||||
{ } [ t testif ] unit-test
|
||||
{ } [ f testif ] unit-test
|
||||
{ } [ f halftested ] unit-test
|
||||
{ 0 } [ 0 testcond ] unit-test
|
||||
{ 1 } [ 1 testcond ] unit-test
|
||||
{ 2 } [ 2 testcond ] unit-test
|
||||
{ 1 2 3 } [ { [ 1 ] [ 2 3 ] } mconcat ] unit-test
|
||||
{ } [ 1 2 testmacro ] unit-test
|
||||
{ } [ 2 1 testmacro ] unit-test
|
||||
{ } [ t testfry ] unit-test
|
||||
{ } [ f testfry ] unit-test
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
! 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
|
||||
Loading…
Reference in New Issue