extra/calendar/format/macros/macros-tests.factor

   1 USING: tools.test kernel ;
   2 IN: calendar.format.macros
   3
   4 [ 2 ] [ { [ 2 ] } attempt-all-quots ] unit-test
   5
   6 [ 2 ] [ { [ 1 throw ] [ 2 ] } attempt-all-quots ] unit-test
   7
   8 [ { [ 1 throw ] } attempt-all-quots ] [ 1 = ] must-fail-with
   9
  10 : compiled-test-1 ( -- n )
  11     { [ 1 throw ] [ 2 ] } attempt-all-quots ;
  12
  13 \ compiled-test-1 must-infer
  14
  15 [ 2 ] [ compiled-test-1 ] unit-test