basis/windows/types/types-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: classes.struct tools.test windows.types ;
   4 IN: windows.types.tests
   5
   6 [ S{ RECT { right 100 } { bottom 100 } } ]
   7 [ { 0 0 } { 100 100 } <RECT> ] unit-test
   8
   9 [ S{ RECT { left 100 } { top 100 } { right 200 } { bottom 200 } } ]
  10 [ { 100 100 } { 100 100 } <RECT> ] unit-test