basis/lists/lists-tests.factor

   1 ! Copyright (C) 2008 James Cash
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test lists math kernel ;
   4 IN: lists.tests
   5
   6 { { 3 4 5 6 7 } } [
   7     { 1 2 3 4 5 } sequence>list [ 2 + ] lmap list>array
   8 ] unit-test
   9
  10 { { 3 4 5 6 } } [
  11     T{ cons f 1
  12         T{ cons f 2
  13             T{ cons f 3
  14                 T{ cons f 4
  15                 +nil+ } } } } [ 2 + ] lmap>array
  16 ] unit-test
  17
  18 { 10 } [
  19     T{ cons f 1
  20         T{ cons f 2
  21             T{ cons f 3
  22                 T{ cons f 4
  23                 +nil+ } } } } 0 [ + ] foldl
  24 ] unit-test
  25
  26 { T{ cons f 2 T{ cons f 3 T{ cons f 4 T{ cons f 5 +nil+ } } } } } [
  27     { 1 2 3 4 } sequence>list [ 1 + ] lmap
  28 ] unit-test
  29
  30 { 15 } [
  31  { 1 2 3 4 5 } sequence>list 0 [ + ] foldr
  32 ] unit-test
  33
  34 { { 5 4 3 2 1 } } [
  35     { 1 2 3 4 5 } sequence>list lreverse list>array
  36 ] unit-test
  37
  38 { 5 } [
  39     { 1 2 3 4 5 } sequence>list llength
  40 ] unit-test
  41
  42 { { 1 2 3 4 5 6 } } [
  43     { 1 2 3 } sequence>list { 4 5 6 } sequence>list lappend list>array
  44 ] unit-test
  45
  46 [ { 1 } { 2 } ] [ { 1 2 } sequence>list 1 lcut [ list>array ] bi@ ] unit-test