extra/literate/literate-tests.factor

   1 USING: eval kernel math tools.test ;
   2 IN: literate
   3
   4 { 2 3 t } [
   5 <LITERATE
   6 1
   7 > 2
   8 >   3
   9 blah
  10 >     2dup 1 - =
  11 LITERATE>
  12 ] unit-test