16 lines
367 B
Factor
16 lines
367 B
Factor
|
USING: tools.test kernel ;
|
||
|
|
IN: calendar.format.macros
|
||
|
|
|
||
|
|
[ 2 ] [ { [ 2 ] } attempt-all-quots ] unit-test
|
||
|
|
|
||
|
|
[ 2 ] [ { [ 1 throw ] [ 2 ] } attempt-all-quots ] unit-test
|
||
|
|
|
||
|
|
[ { [ 1 throw ] } attempt-all-quots ] [ 1 = ] must-fail-with
|
||
|
|
|
||
|
|
: compiled-test-1 ( -- n )
|
||
|
|
{ [ 1 throw ] [ 2 ] } attempt-all-quots ;
|
||
|
|
|
||
|
|
\ compiled-test-1 must-infer
|
||
|
|
|
||
|
|
[ 2 ] [ compiled-test-1 ] unit-test
|