extra/lint/lint-tests.factor

   1 USING: io lint kernel math tools.test ;
   2 IN: lint.tests
   3
   4 ! Don't write code like this
   5 : lint1 ( -- ) [ "hi" print ] [ ] if ; ! when
   6
   7 [ { { lint1 { [ [ ] if ] } } } ] [ \ lint1 lint-word ] unit-test
   8
   9 : lint2 ( n -- n' ) 1 + ; ! 1+
  10 [ { [ 1 + ] } ] [ \ lint2 lint ] unit-test
  11
  12 : lint3 dup -rot ; ! tuck
  13
  14 [ { { lint3 { [ dup -rot ] } } } ] [ \ lint3 lint-word ] unit-test