basis/opengl/textures/textures-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test opengl.textures opengl.textures.private
   4 opengl.textures.private images kernel namespaces accessors
   5 sequences ;
   6 IN: opengl.textures.tests
   7
   8 [
   9     {
  10         { { 0 0 } { 10 0 } }
  11         { { 0 20 } { 10 20 } }
  12     }
  13 ] [
  14     {
  15         { { 10 20 } { 30 20 } }
  16         { { 10 30 } { 30 300 } }
  17     }
  18     [ [ image new swap >>dim ] map ] map image-locs
  19 ] unit-test