extra/assocs/extras/extras-tests.factor

   1
   2 USING: assocs.extras tools.test ;
   3
   4 IN: assocs.extras
   5
   6 { f } [ f { } deep-at ] unit-test
   7 { f } [ f { "foo" } deep-at ] unit-test
   8 { f } [ H{ } { 1 2 3 } deep-at ] unit-test
   9 { f } [ H{ { "a" H{ { "b" 1 } } } } { "a" "c" } deep-at ] unit-test
  10 { 1 } [ H{ { "a" H{ { "b" 1 } } } } { "a" "b" } deep-at ] unit-test
  11 { 4 } [ H{ { 1 H{ { 2 H{ { 3 4 } } } } } } { 1 2 3 } deep-at ] unit-test
  12
  13 {  { { 1 3 } { 2 4 } } } [ { 1 2 } { 3 4 }  { } zip-as ] unit-test
  14 { V{ { 1 3 } { 2 4 } } } [ { 1 2 } { 3 4 } V{ } zip-as ] unit-test
  15 { H{ { 1 3 } { 2 4 } } } [ { 1 2 } { 3 4 } H{ } zip-as ] unit-test
  16
  17 { H{ { 2 1 } { 4 3 } } } [ H{ { 1 2 } { 3 4 } } assoc-invert ] unit-test
  18
  19 [ H{ } ] [ { } assoc-merge ] unit-test
  20 [ H{ { "a" V{ 2 5 } } { "b" V{ 3 } } { "c" V{ 10 } } } ]
  21 [
  22     { H{ { "a" 2 } { "b" 3 } } H{ { "a" 5 } { "c" 10 } } }
  23     assoc-merge
  24 ] unit-test