/extra/sequences/inserters/inserters-tests.factor

http://github.com/abeaumont/factor · Factor · 45 lines · 35 code · 9 blank · 1 comment · 4 complexity · 338b89c5320f76e2c1dd795b1dfd1b4d MD5 · raw file 

    

  1. ! (c)2010 Joe Groff bsd license
    2. 

  2. USING: assocs kernel sequences sequences.inserters tools.test
    3. 

  3. unicode.case ;
    4. 

  4. IN: sequences.inserters.tests
    5. 

  5. 

  6. [ V{ 1 2 "Three" "Four" "Five" } ] [
    7. 

  7.     { "three" "four" "five" }
    8. 

  8.     [ >title ] V{ 1 2 } clone <appender> map-as
    9. 

  9. ] unit-test
    10. 

  10. 

  11. [ t ] [
    12. 

  12.     { "three" "four" "five" }
    13. 

  13.     [ >title ] V{ 1 2 } clone [ <appender> map-as ] keep eq?
    14. 

  14. ] unit-test
    15. 

  15. 

  16. [ V{ 1 2 "Three" "Four" "Five" } ] [
    17. 

  17.     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
    18. 

  18.     [ append ] V{ 1 2 } clone <appender> assoc>map
    19. 

  19. ] unit-test
    20. 

  20. 

  21. [ t ] [
    22. 

  22.     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
    23. 

  23.     [ append ] V{ 1 2 } clone [ <appender> assoc>map ] keep eq?
    24. 

  24. ] unit-test
    25. 

  25. 

  26. [ V{ "Three" "Four" "Five" } ] [
    27. 

  27.     { "three" "four" "five" }
    28. 

  28.     [ >title ] V{ 1 2 } clone <replacer> map-as
    29. 

  29. ] unit-test
    30. 

  30. 

  31. [ t ] [
    32. 

  32.     { "three" "four" "five" }
    33. 

  33.     [ >title ] V{ 1 2 } clone [ <replacer> map-as ] keep eq?
    34. 

  34. ] unit-test
    35. 

  35. 

  36. [ V{ "Three" "Four" "Five" } ] [
    37. 

  37.     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
    38. 

  38.     [ append ] V{ 1 2 } clone <replacer> assoc>map
    39. 

  39. ] unit-test
    40. 

  40. 

  41. [ t ] [
    42. 

  42.     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
    43. 

  43.     [ append ] V{ 1 2 } clone [ <replacer> assoc>map ] keep eq?
    44. 

  44. ] unit-test
    45.