extra/literals/literals-tests.factor

   1 USING: kernel literals math tools.test ;
   2 IN: literals.tests
   3
   4 <<
   5 : five 5 ;
   6 : seven-eleven 7 11 ;
   7 : six-six-six 6 6 6 ;
   8 >>
   9
  10 [ { 5 } ] [ { $ five } ] unit-test
  11 [ { 7 11 } ] [ { $ seven-eleven } ] unit-test
  12 [ { 6 6 6 } ] [ { $ six-six-six } ] unit-test
  13
  14 [ { 6 6 6 7 } ] [ { $ six-six-six 7 } ] unit-test
  15
  16 [ { 8 8 8 } ] [ { $[ six-six-six [ 2 + ] tri@ ] } ] unit-test
  17
  18 [ { 0.5 2.0 } ] [ { $[ 1.0 2.0 / ] 2.0 } ] unit-test
  19
  20 [ { 1.0 { 0.5 1.5 } 4.0 } ] [ { 1.0 { $[ 1.0 2.0 / ] 1.5 } $[ 2.0 2.0 * ] } ] unit-test