core/quotations/quotations-tests.factor

   1 USING: math kernel quotations tools.test sequences ;
   2 IN: quotations.tests
   3
   4 [ [ 3 ] ] [ 3 [ ] curry ] unit-test
   5 [ [ \ + ] ] [ \ + [ ] curry ] unit-test
   6 [ [ \ + = ] ] [ \ + [ = ] curry ] unit-test
   7
   8 [ [ 1 + 2 + 3 + ] ] [
   9     { 1 2 3 } [ [ + ] curry ] map concat
  10 ] unit-test
  11
  12 [ [ 1 2 3 4 ] ] [ [ 1 2 ] [ 3 4 ] append ] unit-test
  13 [ [ 1 2 3 ] ] [ [ 1 2 ] 3 suffix ] unit-test
  14 [ [ 3 1 2 ] ] [ [ 1 2 ] 3 prefix ] unit-test
  15
  16 [ [ "hi" ] ] [ "hi" 1quotation ] unit-test
  17
  18 ! [ 1 \ + curry ] must-fail