Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
30 lines (18 sloc) 723 Bytes
IN: logging.tests
USING: tools.test logging logging.analysis logging.server io
io.files.temp 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
temp-directory [
"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
[ ] [ "logging-test" { "input-logging-test" } analyze-log-file ] unit-test
] with-log-root
Something went wrong with that request. Please try again.