basis/opengl/capabilities/capabilities-tests.factor

   1 ! (c)2009 Joe Groff bsd license
   2 USING: opengl.capabilities tools.test ;
   3 IN: opengl.capabilities.tests
   4
   5 CONSTANT: test-extensions
   6     {
   7         "GL_ARB_vent_core_frogblast"
   8         "GL_EXT_resonance_cascade"
   9         "GL_EXT_slipgate"
  10     }
  11
  12 [ t ]
  13 [ "GL_ARB_vent_core_frogblast" test-extensions (has-extension?) ] unit-test
  14
  15 [ f ]
  16 [ "GL_ARB_wallhack" test-extensions (has-extension?) ] unit-test
  17
  18 [ t ] [
  19     { "GL_EXT_dimensional_portal" "GL_EXT_slipgate" }
  20     test-extensions (has-extension?)
  21 ] unit-test