USING: continuations io io.directories io.files.temp logging
logging.analysis logging.server math tools.test ;
IN: logging.tests

: 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" temp-file delete-tree ] ignore-errors

    "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