basis/core-graphics/core-graphics-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test core-graphics kernel images ;
   4 IN: core-graphics.tests
   5
   6 { t } [ { 100 200 } [ drop ] make-bitmap-image image? ] unit-test
   7
   8 { } [ dummy-context drop ] unit-test