29 lines
713 B
Factor
29 lines
713 B
Factor
USING: kernel math quotations.private sequences tools.test ;
|
|
IN: quotations
|
|
|
|
{ [ 3 ] } [ 3 [ ] curry ] unit-test
|
|
{ [ \ + ] } [ \ + [ ] curry ] unit-test
|
|
{ [ \ + = ] } [ \ + [ = ] 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
|
|
{ [ 1 2 3 ] } [ [ 1 2 ] 3 suffix ] unit-test
|
|
{ [ 3 1 2 ] } [ [ 1 2 ] 3 prefix ] unit-test
|
|
|
|
{ [ "hi" ] } [ "hi" 1quotation ] unit-test
|
|
|
|
[ 1 \ + curry ] must-fail
|
|
|
|
: trouble ( -- arr quot ) { 123 } dup array>quotation ;
|
|
|
|
{ 999 } [
|
|
! Call the quotation which compiles it.
|
|
trouble call drop
|
|
! Change the array used for it.
|
|
999 0 rot set-nth
|
|
trouble nip call
|
|
] unit-test
|