basis/linked-assocs/linked-assocs-tests.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors assocs kernel linked-assocs math sequences
   4 tools.test ;
   5 IN: linked-assocs.test
   6
   7 { { 1 2 3 } } [
   8     <linked-hash> 1 "b" pick set-at
   9                   2 "c" pick set-at
  10                   3 "a" pick set-at
  11     values
  12 ] unit-test
  13
  14 { 2 t } [
  15     <linked-hash> 1 "b" pick set-at
  16                   2 "c" pick set-at
  17                   3 "a" pick set-at
  18     "c" ?of
  19 ] unit-test
  20
  21 { { 2 3 4 } { "c" "a" "d" } 3 } [
  22     <linked-hash> 1 "a" pick set-at
  23                   2 "c" pick set-at
  24                   3 "a" pick set-at
  25                   4 "d" pick set-at
  26     [ values ] [ keys ] [ assoc-size ] tri
  27 ] unit-test
  28
  29 { f 1 } [
  30     <linked-hash> 1 "c" pick set-at
  31                   2 "b" pick set-at
  32     "c" over delete-at
  33     "c" over at swap assoc-size
  34 ] unit-test
  35
  36 { { } 0 } [
  37     <linked-hash> 1 "a" pick set-at
  38                   2 "c" pick set-at
  39                   3 "a" pick set-at
  40                   4 "d" pick set-at
  41     dup clear-assoc [ keys ] [ assoc-size ] bi
  42 ] unit-test
  43
  44 { { } { 1 2 3 } } [
  45     <linked-hash> dup clone
  46     1 "c" pick set-at
  47     2 "q" pick set-at
  48     3 "a" pick set-at
  49     [ values ] bi@
  50 ] unit-test
  51
  52 { 9 } [
  53     <linked-hash>
  54     { [ 3 * ] [ 1 - ] }          "first"   pick set-at
  55     { [ [ 1 - ] bi@ ] [ 2 / ] }  "second"  pick set-at
  56     4 6 pick values [ first call ] each
  57     + swap values <reversed> [ second call ] each
  58 ] unit-test
  59
  60 { V{ { "az" 1 } { "by" 2 } { "cx" 3 } } } [
  61     <linked-hash>
  62     1 "az" pick set-at
  63     2 "by" pick set-at
  64     3 "cx" pick set-at
  65     >alist
  66 ] unit-test
  67
  68 { t V{ { 1 20 } { 3 40 } { 5 60 } } } [
  69     { { 1 2 } { 3 4 } { 5 6 } } >linked-hash
  70     [ 10 * ] assoc-map [ linked-assoc? ] [ >alist ] bi
  71 ] unit-test
  72
  73 { V{ { 1 2 } { 3 4 } { 5 6 } } } [
  74     { { 1 2 } { 3 4 } { 5 6 } }
  75     { } <linked-assoc> assoc-like >alist
  76 ] unit-test
  77
  78 { t } [
  79     { { "a" "b" } { "c" "d" } }
  80     [ >linked-hash ] [ >linked-hash ] bi =
  81 ] unit-test