factor/extra/multi-methods/tests/topological-sort.factor

20 lines
404 B
Factor

USING: kernel multi-methods tools.test math arrays sequences
math.order ;
IN: multi-methods.tests
[ { 1 2 3 4 5 6 } ] [
{ 6 4 5 1 3 2 } [ <=> ] topological-sort
] unit-test
[ +lt+ ] [
{ fixnum array } { number sequence } classes<
] unit-test
[ +eq+ ] [
{ number sequence } { number sequence } classes<
] unit-test
[ +gt+ ] [
{ object object } { number sequence } classes<
] unit-test