basis/ui/cocoa/views/views-tests.factor

   1 IN: ui.cocoa.views.tests
   2 USING: ui.cocoa.views tools.test kernel math.geometry.rect
   3 namespaces ;
   4
   5 [ t ] [
   6     T{ rect
   7         { loc { 0 0 } }
   8         { dim { 1000 1000 } }
   9     } "world" set
  10
  11     T{ rect
  12         { loc { 1.5 2.25 } }
  13         { dim { 13.0 14.0 } }
  14     } dup "world" get rect>NSRect "world" get NSRect>rect =
  15 ] unit-test