core/sets/sets-tests.factor

   1 ! Copyright (C) 2010 Daniel Ehrenberg
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: sets tools.test kernel prettyprint hash-sets sorting ;
   4 IN: sets.tests
   5
   6 [ { } ] [ { } { } intersect  ] unit-test
   7 [ { 2 3 } ] [ { 1 2 3 } { 2 3 4 } intersect ] unit-test
   8
   9 [ { } ] [ { } { } diff ] unit-test
  10 [ { 1 } ] [ { 1 2 3 } { 2 3 4 } diff ] unit-test
  11
  12 [ { } ] [ { } { } union ] unit-test
  13 [ { 1 2 3 4 } ] [ { 1 2 3 } { 2 3 4 } union ] unit-test
  14
  15 [ t ] [ { 1 2 } { 1 3 } intersects? ] unit-test
  16
  17 [ f ] [ { 4 2 } { 1 3 } intersects? ] unit-test
  18
  19 [ f ] [ { } { 1 } intersects? ] unit-test
  20
  21 [ f ] [ { 1 } { } intersects? ] unit-test
  22
  23 [ t ] [ 4 { 2 4 5 } in? ] unit-test
  24 [ f ] [ 1 { 2 4 5 } in? ] unit-test
  25
  26 [ V{ 1 2 3 } ] [ 3 V{ 1 2 } clone [ adjoin ] keep ] unit-test
  27 [ V{ 1 2 } ] [ 2 V{ 1 2 } clone [ adjoin ] keep ] unit-test
  28 [ V{ 1 2 } ] [ 3 V{ 1 2 } clone [ delete ] keep ] unit-test
  29 [ V{ 2 } ] [ 1 V{ 1 2 } clone [ delete ] keep ] unit-test
  30
  31 [ t ] [ { 1 2 3 } { 2 1 3 } set= ] unit-test
  32 [ f ] [ { 2 3 } { 1 2 3 } set= ] unit-test
  33 [ f ] [ { 1 2 3 } { 2 3 } set= ] unit-test
  34
  35 [ { 1 } ] [ { 1 } members ] unit-test
  36
  37 [ { 1 2 3 } ] [ { 1 1 1 2 2 3 3 3 3 3 } dup set-like natural-sort ] unit-test
  38 [ { 1 2 3 } ] [ HS{ 1 2 3 } { } set-like natural-sort ] unit-test
  39
  40 [ HS{ 1 2 3 } ] [ { 1 2 3 } fast-set ] unit-test
  41
  42 [ { 1 2 3 } ] [ { { 1 } { 2 } { 1 3 } } combine ] unit-test
  43
  44 [ f ] [ { 0 1 1 2 3 5 } all-unique? ] unit-test
  45 [ t ] [ { 0 1 2 3 4 5 } all-unique? ] unit-test
  46
  47 [ { 1 2 3 } ] [ { 1 2 2 3 3 } { } set-like ] unit-test
  48 [ { 3 2 1 } ] [ { 3 3 2 2 1 } { } set-like ] unit-test
  49
  50 [ { 2 1 2 1 } ] [ { 1 2 3 2 1 2 1 } duplicates ] unit-test
  51 [ f ] [ HS{ 1 2 3 1 2 1 } duplicates ] unit-test
  52
  53 [ H{ { 3 HS{ 1 2 } } } ] [ H{ } clone 1 3 pick adjoin-at 2 3 pick adjoin-at ] unit-test