25 lines
549 B
Factor
25 lines
549 B
Factor
IN: logging.tests
|
|
USING: tools.test logging math ;
|
|
|
|
: input-logging-test ( a b -- c ) + ;
|
|
|
|
\ input-logging-test NOTICE add-input-logging
|
|
|
|
: output-logging-test ( a b -- c ) + ;
|
|
|
|
\ output-logging-test DEBUG add-output-logging
|
|
|
|
: error-logging-test ( a b -- c ) / ;
|
|
|
|
\ error-logging-test ERROR add-error-logging
|
|
|
|
"logging-test" [
|
|
[ 4 ] [ 1 3 input-logging-test ] unit-test
|
|
|
|
[ 4 ] [ 1 3 output-logging-test ] unit-test
|
|
|
|
[ 4/3 ] [ 4 3 error-logging-test ] unit-test
|
|
|
|
[ f ] [ 1 0 error-logging-test ] unit-test
|
|
] with-logging
|