extra/mason/common/common-tests.factor

   1 USING: prettyprint mason.common mason.config namespaces calendar
   2 tools.test io.files io.files.temp io.encodings.utf8 sequences ;
   3
   4 { "00:01:02" } [ 62,000,000,000 nanos>time ] unit-test
   5
   6 { t } [
   7     [
   8         "/home/bobby/builds" builds-dir set
   9         T{ timestamp
  10             { year 2008 }
  11             { month 9 }
  12             { day 11 }
  13             { hour 12 }
  14             { minute 23 }
  15         } datestamp stamp set
  16         build-dir
  17     ] with-scope
  18     "/home/bobby/builds/2008-09-11-12-23" head?
  19 ] unit-test
  20
  21 { } [ "empty-test" temp-file utf8 [ ] with-file-writer ] unit-test
  22
  23 [ "empty-test" temp-file eval-file ] must-fail
  24
  25 { } [ "eval-file-test" temp-file utf8 [ { 1 2 3 } . ] with-file-writer ] unit-test
  26
  27 { { 1 2 3 } } [ "eval-file-test" temp-file eval-file ] unit-test