factor/basis/sorting/insertion/insertion-tests.factor

5 lines
181 B
Factor
Raw Normal View History

2008-06-13 16:35:40 -04:00
IN: sorting.insertion
USING: sorting.insertion sequences kernel tools.test ;
[ { { 1 1 } { 1 2 } { 2 0 } } ] [ { { 2 0 } { 1 1 } { 1 2 } } dup [ first ] insertion-sort ] unit-test