basis/windows/offscreen/offscreen-tests.factor

   1 IN: windows.offscreen.tests\r
   2 USING: windows.offscreen effects tools.test kernel images ;\r
   3 \r
   4 { 1 1 } [ [ [ ] make-bitmap-image ] with-memory-dc ] must-infer-as\r
   5 [ t ] [ [ { 10 10 } swap [ ] make-bitmap-image ] with-memory-dc image? ] unit-test\r