factor/extra/mason/common/common-tests.factor

IN: mason.common.tests
USING: prettyprint mason.common mason.config
namespaces calendar tools.test io.files
io.files.temp io.encodings.utf8 sequences ;

[ "00:01:02" ] [ 62,000,000,000 nanos>time ] unit-test

[ t ] [
    [
        "/home/bobby/builds" builds-dir set
        T{ timestamp
            { year 2008 }
            { month 9 }
            { day 11 }
            { hour 12 }
            { minute 23 }
        } datestamp stamp set
        build-dir
    ] with-scope
    "/home/bobby/builds/2008-09-11-12-23" head?
] unit-test

[ ] [ "empty-test" temp-file utf8 [ ] with-file-writer ] unit-test

[ "empty-test" temp-file eval-file ] must-fail

[ ] [ "eval-file-test" temp-file utf8 [ { 1 2 3 } . ] with-file-writer ] unit-test

[ { 1 2 3 } ] [ "eval-file-test" temp-file eval-file ] unit-test