20 lines
404 B
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
|