extra/mason/platform/platform-tests.factor

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