basis/graphs/graphs-tests.factor

   1 USING: graphs tools.test namespaces kernel sorting assocs ;
   2
   3 H{ } "g" set
   4 { 1 2 3 } "v" set
   5
   6 [ ] [ "v" dup get "g" get add-vertex ] unit-test
   7
   8 [ { "v" } ] [ 1 "g" get at keys ] unit-test
   9
  10 H{
  11     { 1 H{ { 1 1 } { 2 2 } } }
  12     { 2 H{ { 3 3 } { 4 4 } } }
  13     { 4 H{ { 4 4 } { 5 5 } } }
  14 } "g" set
  15
  16 [ { 2 3 4 5 } ] [
  17     2 [ "g" get at ] closure keys natural-sort
  18 ] unit-test
  19
  20 H{ } "g" set
  21
  22 [ ] [
  23     "mary"
  24     H{ { "billy" "one" } { "joey" "two" } }
  25     "g" get add-vertex*
  26 ] unit-test
  27
  28 [ H{ { "mary" "one" } } ] [
  29     "billy" "g" get at
  30 ] unit-test
  31
  32 [ ] [
  33     "liz"
  34     H{ { "billy" "four" } { "fred" "three" } }
  35     "g" get add-vertex*
  36 ] unit-test
  37
  38 [ H{ { "mary" "one" } { "liz" "four" } } ] [
  39     "billy" "g" get at
  40 ] unit-test
  41
  42 [ ] [
  43     "mary"
  44     H{ { "billy" "one" } { "joey" "two" } }
  45     "g" get remove-vertex*
  46 ] unit-test
  47
  48 [ H{ { "liz" "four" } } ] [
  49     "billy" "g" get at
  50 ] unit-test