extra/sets/extras/extras-tests.factor

   1 ! Copyright (C) 2013 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: math sequences sets.extras tools.test ;
   4 IN: sets.extras.tests
   5
   6 { { } } [ { } { } setwise-xor ] unit-test
   7 { { 1 } } [ { 1 } { } setwise-xor ] unit-test
   8 { { 1 } } [ { } { 1 } setwise-xor ] unit-test
   9 { { } } [ { 1 } { 1 } setwise-xor ] unit-test
  10 { { 1 4 5 7 } } [ { 1 2 3 2 4 } { 2 3 5 7 5 } setwise-xor ] unit-test
  11
  12 { { } } [ { } { } symmetric-diff ] unit-test
  13 { { 1 2 3 } } [ { 1 2 3 } { } symmetric-diff ] unit-test
  14 { { 1 2 3 } } [ { } { 1 2 3 } symmetric-diff ] unit-test
  15 { { 1 2 4 5 } } [ { 1 2 3 } { 3 4 5 } symmetric-diff ] unit-test
  16
  17 { f } [ { } { } proper-subset? ] unit-test
  18 { f } [ { 1 2 } { 1 2 } proper-subset? ] unit-test
  19 { f } [ { 1 2 3 } { 1 2 } proper-subset? ] unit-test
  20 { t } [ { 1 2 } { 1 2 3 } proper-subset? ] unit-test
  21
  22 { "abc" } [ "abc" non-repeating ] unit-test
  23 { "abc" } [ "abcddd" non-repeating ] unit-test
  24 { "" } [ "aabbcc" non-repeating ] unit-test
  25
  26 { HS{ 0 10 20 30 40 } } [ 5 <iota> [ 10 * ] mapped-set ] unit-test
  27
  28 { { 1 2 4 } } [ { 1 2 3 4 5 } [ 2/ ] unique-by ] unit-test