/extra/sequences/squish/squish-tests.factor

http://github.com/abeaumont/factor · Factor · 8 lines · 6 code · 1 blank · 1 comment · 0 complexity · 0b57fa9e1db1e4ec14207a2a6f13ed14 MD5 · raw file 

    

  1. ! (c)2009 Slava Pestov & Joe Groff, see BSD license
    2. 

  2. USING: kernel sequences sequences.squish tools.test vectors ;
    3. 

  3. IN: sequences.squish.tests
    4. 

  4. 

  5. [ { { 1 2 3 } { 4 } { 5 6 } } ] [
    6. 

  6.     V{ { 1 2 3 } V{ { 4 } { 5 6 } } }  
    7. 

  7.     [ vector? ] { } squish
    8. 

  8. ] unit-test
    9.