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