basis/logging/logging-tests.factor

   1 IN: logging.tests
   2 USING: tools.test logging math ;
   3
   4 : input-logging-test ( a b -- c ) + ;
   5
   6 \ input-logging-test NOTICE add-input-logging
   7
   8 : output-logging-test ( a b -- c ) + ;
   9
  10 \ output-logging-test DEBUG add-output-logging
  11
  12 : error-logging-test ( a b -- c ) / ;
  13
  14 \ error-logging-test ERROR add-error-logging
  15
  16 "logging-test" [
  17     [ 4 ] [ 1 3 input-logging-test ] unit-test
  18
  19     [ 4 ] [ 1 3 output-logging-test ] unit-test
  20
  21     [ 4/3 ] [ 4 3 error-logging-test ] unit-test
  22
  23     [ f ] [ 1 0 error-logging-test ] unit-test
  24 ] with-logging