factor/extra/digraphs/digraphs-tests.factor

12 lines
408 B
Factor

USING: digraphs kernel sequences tools.test ;
IN: digraphs.tests
: test-digraph ( -- digraph )
<digraph>
{ { "one" 1 } { "two" 2 } { "three" 3 } { "four" 4 } { "five" 5 } }
[ first2 pick add-vertex ] each
{ { "one" "three" } { "one" "four" } { "two" "three" } { "two" "one" } { "three" "four" } }
[ first2 pick add-edge ] each ;
[ 5 ] [ test-digraph topological-sort length ] unit-test