core/graphs/graphs-tests.factor

   1 USING: assocs graphs hash-sets kernel math namespaces sequences sorting
   2 tools.test vectors ;
   3 QUALIFIED: sets
   4
   5 H{ } "g" set
   6 { 1 2 3 } "v" set
   7
   8 { } [ "v" dup get "g" get add-vertex ] unit-test
   9
  10 { { "v" } } [ 1 "g" get at sets:members ] unit-test
  11
  12 H{
  13     { 1 HS{ 1 2 } }
  14     { 2 HS{ 3 4 } }
  15     { 4 HS{ 4 5 } }
  16 } "g" set
  17
  18 { { 2 3 4 5 } } [
  19     2 [ "g" get at sets:members ] closure sets:members natural-sort
  20 ] unit-test
  21
  22 { t } [ 2 [ "g" get at sets:members ] HS{ } closure-as hash-set? ] unit-test
  23 { t } [ 2 [ "g" get at sets:members ] closure hash-set? ] unit-test
  24 { t } [ 2 [ "g" get at sets:members ] V{ } closure-as vector? ] unit-test
  25
  26 { V{ 5 4 3 2 1 0 } } [
  27     5 [ [ f ] [ <iota> <reversed> ] if-zero ] V{ } closure-as
  28 ] unit-test