! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs combinators.smart kernel locals
+USING: accessors arrays assocs combinators.smart kernel
math random sequences stack-checker tools.test ;
IN: combinators.smart.tests
{ { 1 2 } 3 4 5 6 } [ [ 1 2 3 4 5 6 ] 4 output>array-n ] unit-test
{ t } [ [ 10 random dup even? ] smart-loop odd? ] unit-test
-{ t } [ 10 [ random dup even? ] smart-loop odd? ] unit-test