extra/multisets/multisets-tests.factor

   1 ! Copyright (C) 2022 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel multisets prettyprint tools.test ;
   4 IN: multisets.tests
   5
   6 { multiset{ } } [
   7     <multiset>
   8         100 over multiset-emplace
   9         100 over multiset-emplace
  10         100 over multiset-erase
  11 ] unit-test
  12
  13 { t } [
  14     <multiset>
  15         100 over multiset-emplace
  16         100 over multiset-emplace
  17     multiset{ 100 100 } =
  18 ] unit-test
  19
  20 { t } [ multiset{ } multiset-empty? ] unit-test
  21 { f } [ multiset{ 100 100 } multiset-empty? ] unit-test
  22
  23 { t } [ multiset{ 100 100 } 100 multiset-in? ] unit-test
  24 { f } [ multiset{ 100 100 } 200 multiset-in? ] unit-test
  25
  26 { 2 } [ multiset{ 100 100 } 100 multiset-count ] unit-test
  27 { 0 } [ multiset{ 100 100 } 200 multiset-count ] unit-test
  28
  29 { { 100 100 } } [ multiset{ 100 100 } multiset-members ] unit-test
  30
  31
  32 { } [ multiset{ 100 100 } [ . ] multiset-each ] unit-test