30 lines
802 B
Factor
30 lines
802 B
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
|