extra/lru-cache/lru-cache-tests.factor

   1 USING: assocs kernel lru-cache sorting tools.test ;
   2
   3 {
   4     { { 3 3 } { 4 4 } { 5 5 } }
   5 } [
   6     3 <lru-hash>
   7     1 1 pick set-at
   8     2 2 pick set-at
   9     3 3 pick set-at
  10     4 4 pick set-at
  11     5 5 pick set-at
  12     >alist natural-sort
  13 ] unit-test
  14
  15 {
  16     { { 1 1 } { 4 4 } { 5 5 } }
  17 } [
  18     3 <lru-hash>
  19     1 1 pick set-at
  20     2 2 pick set-at
  21     3 3 pick set-at
  22     1 over at drop
  23     4 4 pick set-at
  24     5 5 pick set-at
  25     >alist natural-sort
  26 ] unit-test
  27
  28 {
  29     { { 2 2 } { 4 4 } { 5 5 } }
  30 } [
  31     3 <lru-hash>
  32     1 1 pick set-at
  33     2 2 pick set-at
  34     3 3 pick set-at
  35     1 over delete-at
  36     1 over at drop
  37     2 over at drop
  38     4 4 pick set-at
  39     5 5 pick set-at
  40     >alist natural-sort
  41 ] unit-test
  42
  43 {
  44     { { 3 3 } { 4 4 } { 5 5 } }
  45 } [
  46     3 <fifo-hash>
  47     1 1 pick set-at
  48     2 2 pick set-at
  49     3 3 pick set-at
  50     4 4 pick set-at
  51     5 5 pick set-at
  52     >alist natural-sort
  53 ] unit-test
  54
  55 {
  56     { { 1 1 } { 4 4 } { 5 5 } }
  57 } [
  58     3 <fifo-hash>
  59     1 1 pick set-at
  60     2 2 pick set-at
  61     3 3 pick set-at
  62     1 1 pick set-at
  63     4 4 pick set-at
  64     5 5 pick set-at
  65     >alist natural-sort
  66 ] unit-test
  67
  68 {
  69     { { 1 1 } { 2 2 } { 5 5 } }
  70 } [
  71     3 <lifo-hash>
  72     1 1 pick set-at
  73     2 2 pick set-at
  74     3 3 pick set-at
  75     4 4 pick set-at
  76     5 5 pick set-at
  77     >alist natural-sort
  78 ] unit-test
  79
  80 {
  81     { { 2 2 } { 3 3 } { 5 5 } }
  82 } [
  83     3 <lifo-hash>
  84     1 1 pick set-at
  85     2 2 pick set-at
  86     3 3 pick set-at
  87     1 over delete-at
  88     4 4 pick set-at
  89     5 5 pick set-at
  90     >alist natural-sort
  91 ] unit-test