extra/mason/platform/platform-tests.factor

   1 USING: mason.config mason.platform namespaces tools.test
   2 strings system ;
   3 IN: mason.platform.tests
   4
   5 { t } [ platform string? ] unit-test
   6
   7 [
   8     linux target-os set
   9     x86.32 target-cpu set
  10     f target-variant set
  11
  12     [ "linux-x86-32" ] [ platform ] unit-test
  13 ] with-scope
  14
  15 [
  16     windows target-os set
  17     x86.32 target-cpu set
  18     "xp" target-variant set
  19
  20     [ "windows-x86-32-xp" ] [ platform ] unit-test
  21 ] with-scope