2007-09-20 18:09:08 -04:00
|
|
|
USING: math kernel quotations tools.test sequences ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: quotations.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2007-11-25 15:27:11 -05:00
|
|
|
[ [ 3 ] ] [ 3 [ ] curry ] unit-test
|
|
|
|
|
[ [ \ + ] ] [ \ + [ ] curry ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
[ [ \ + = ] ] [ \ + [ = ] curry ] unit-test
|
|
|
|
|
|
|
|
|
|
[ [ 1 + 2 + 3 + ] ] [
|
|
|
|
|
{ 1 2 3 } [ [ + ] curry ] map concat
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ [ 1 2 3 4 ] ] [ [ 1 2 ] [ 3 4 ] append ] unit-test
|
2008-03-31 21:24:48 -04:00
|
|
|
[ [ 1 2 3 ] ] [ [ 1 2 ] 3 suffix ] unit-test
|
|
|
|
|
[ [ 3 1 2 ] ] [ [ 1 2 ] 3 prefix ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ [ "hi" ] ] [ "hi" 1quotation ] unit-test
|
2007-11-25 15:27:11 -05:00
|
|
|
|
2008-02-11 15:19:47 -05:00
|
|
|
! [ 1 \ + curry ] must-fail
|
