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

   1 USING: kernel multi-methods tools.test math arrays sequences
   2 math.order ;
   3 IN: multi-methods.tests
   4
   5 [ { 1 2 3 4 5 6 } ] [
   6     { 6 4 5 1 3 2 } [ <=> ] topological-sort
   7 ] unit-test
   8
   9 [ +lt+ ] [
  10     { fixnum array } { number sequence } classes<
  11 ] unit-test
  12
  13 [ +eq+ ] [
  14     { number sequence } { number sequence } classes<
  15 ] unit-test
  16
  17 [ +gt+ ] [
  18     { object object } { number sequence } classes<
  19 ] unit-test