opengl 0.7.0.pre1-x86-mingw32 → 0.7.0.pre2-x86-mingw32

data/test/README

@@ -1,10 +0,0 @@
-ruby-opengl tests
-=================
-
-This directory contains the unit tests for ruby-opengl. You should be able
-to run the test by calling 'rake test' from installation root directory. 
-
-Note that the tests are meant for purposes of internal development, and depending on
-your system configuration may not run at all - the purpose is to test the
-bindings, not the underlying OpenGL implementation. 
-

data/test/tc_common.rb

@@ -1,98 +0,0 @@
-#
-# Copyright (C) 2007 Jan Dvorak <jan.dvorak@kraxnet.cz>
-#
-# This program is distributed under the terms of the MIT license.
-# See the included MIT-LICENSE file for the terms of this license.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-
-if __FILE__ == $0
-	# If we are being called from the command line, e.g., ruby foo.rb, then
-	# fixup the load path so we can find the OpenGL extension libs
-	$: << File.join(File.dirname(__FILE__), '..', 'lib')
-end
-
-require 'test/unit'
-require 'gl'
-require 'glut'
-require 'matrix'
-include Gl
-include Glut
-
-Gl.enable_error_checking
-
-$window_size = 512
-
-def glut_init()
-	display_func = lambda do
-		raise
-	end
-
-	glutInit
-	glutInitDisplayMode(GLUT_DEPTH | GLUT_DOUBLE | GLUT_RGBA | GLUT_STENCIL | GLUT_ACCUM | GLUT_ALPHA)
-	glutInitWindowPosition(1, 1)
-	glutInitWindowSize($window_size, $window_size)
-	glutCreateWindow("test")
-
-	# hack the need to call glutMainLoop on some implementations
-	glutDisplayFunc(display_func)
-	begin
-		glutMainLoop()
-	rescue
-		# continue
-	end
-end
-
-def approx_equal(a,b,epsilon=0.01)
-	(0...a.size).each do |i|
-		if ((a[i] - b[i]).abs > epsilon)
-			return false
-		end
-	end
-	true
-end
-
-def common_setup
-	if $glut_initialized == nil
-		glut_init()
-		$glut_initialized = true
-	end
-
-	glPushAttrib(GL_ALL_ATTRIB_BITS)
-	glPushClientAttrib(GL_CLIENT_ALL_ATTRIB_BITS)
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-
-	glClearColor(0,0,0,0)
-	glClear(GL_COLOR_BUFFER_BIT)
-end
-
-def common_teardown
-	glPopAttrib()
-	glPopClientAttrib()
-	glRenderMode(GL_RENDER)
-	# in case there is an GL error that escaped error checking routines ...
-	error = glGetError()
-	p gluErrorString(error)	if (error!=0)
-	assert_equal(error,0)
-end
-
-def supported?(funcs)
-	Array(funcs).each do |name| # convert to array if it isn't already
-		if !Gl.is_available?(name)
-			puts ""				
-			print "#{name} not supported, test skipped"
-			return false
-		end
-	end
-	return true
-end

data/test/tc_ext_arb.rb

@@ -1,467 +0,0 @@
-#
-# Copyright (C) 2007 Jan Dvorak <jan.dvorak@kraxnet.cz>
-#
-# This program is distributed under the terms of the MIT license.
-# See the included MIT-LICENSE file for the terms of this license.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-
-require 'test/unit'
-
-class Test_EXT_ARB < Test::Unit::TestCase
-	def setup
-		common_setup()
-	end
-
-	def teardown
-		common_teardown()
-	end
-
-	def test_gl_arb_transpose_matrix
-		return if not supported?("GL_ARB_transpose_matrix")
-		m_a = [[1.0,2.0,3.0,4.0],
-					 [0.0,2.0,0.0,0.0],
-					 [0.0,0.0,2.0,0.0],
-					 [0.0,0.0,0.0,2.0]]
-
-		m_b = [[1.0,2.0,3.0,4.0],
-					 [0.0,3.0,0.0,0.0],
-					 [0.0,0.0,3.0,0.0],
-					 [0.0,0.0,0.0,3.0]]
-
-		glMatrixMode(GL_MODELVIEW)
-		glLoadTransposeMatrixfARB(m_a)
-		assert_equal(glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX_ARB), m_a)
-
-		glLoadTransposeMatrixdARB(m_b)
-		assert_equal(glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX_ARB), m_b)
-
-		glLoadIdentity()
-		glMultTransposeMatrixfARB(m_a)
-		assert_equal(glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX_ARB), m_a)
-
-		glLoadIdentity()
-		glMultTransposeMatrixdARB(m_b)
-		assert_equal(glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX_ARB), m_b)
-
-		# 2
-		m = Matrix.rows([[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]])
-		glMatrixMode(GL_MODELVIEW)
-		glLoadTransposeMatrixfARB(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a.transpose)
-		glLoadIdentity()
-		glLoadTransposeMatrixdARB(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a.transpose)
-		glLoadIdentity()
-		glMultTransposeMatrixfARB(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a.transpose)
-		glLoadIdentity()
-		glMultTransposeMatrixdARB(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a.transpose)
-
-		assert_raise ArgumentError do glLoadTransposeMatrixfARB([1,2,3,4]) end
-		assert_raise ArgumentError do glLoadTransposeMatrixdARB([1,2,3,4]) end
-		assert_raise ArgumentError do glMultTransposeMatrixfARB([1,2,3,4]) end
-		assert_raise ArgumentError do glMultTransposeMatrixdARB([1,2,3,4]) end
-	end
-
-	def test_gl_arb_multisample
-		return if not supported?("GL_ARB_multisample")
-		glSampleCoverageARB(0.5,GL_FALSE)
-		assert_equal(glGetFloatv(GL_SAMPLE_COVERAGE_VALUE_ARB),0.5)
-		assert_equal(glGetBooleanv(GL_SAMPLE_COVERAGE_INVERT_ARB),false)
-		glSampleCoverageARB(1.0,GL_TRUE)
-		assert_equal(glGetFloatv(GL_SAMPLE_COVERAGE_VALUE_ARB),1.0)
-		assert_equal(glGetBooleanv(GL_SAMPLE_COVERAGE_INVERT_ARB),true)
-	end
-
-	def test_gl_arb_color_buffer_float
-		return if not supported?("GL_ARB_color_buffer_float")
-		glClampColorARB(GL_CLAMP_VERTEX_COLOR_ARB,GL_FIXED_ONLY_ARB)
-		assert_equal(glGetIntegerv(GL_CLAMP_VERTEX_COLOR_ARB),GL_FIXED_ONLY_ARB)
-
-		glClampColorARB(GL_CLAMP_VERTEX_COLOR_ARB,GL_TRUE)
-		assert_equal(glGetBooleanv(GL_CLAMP_VERTEX_COLOR_ARB),GL_TRUE)
-	end
-
-	def test_gl_arb_vertex_program
-		return if not supported?("GL_ARB_vertex_program")
-
-		assert_equal(glIsProgramARB(0),false)
-		programs = glGenProgramsARB(1)
-		assert_equal(programs.size,1)
-		
-		program = "!!ARBvp1.0\nTEMP vv;\nEND"
-	
-	  glBindProgramARB(GL_VERTEX_PROGRAM_ARB, programs[0])
-		glProgramStringARB(GL_VERTEX_PROGRAM_ARB, GL_PROGRAM_FORMAT_ASCII_ARB, program)
-		assert_equal(glGetProgramStringARB(GL_VERTEX_PROGRAM_ARB, GL_PROGRAM_STRING_ARB), program)
-		assert_equal(glIsProgramARB(programs[0]),true)	
-
-		assert_equal(glGetProgramivARB(GL_VERTEX_PROGRAM_ARB,GL_PROGRAM_LENGTH_ARB),program.size)
-		assert_equal(glGetProgramivARB(GL_VERTEX_PROGRAM_ARB,GL_PROGRAM_BINDING_ARB),programs[0])
-
-		glEnableVertexAttribArrayARB(1)
-		assert_equal(glGetVertexAttribivARB(1,GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB),GL_TRUE)
-		glDisableVertexAttribArrayARB(1)
-		assert_equal(glGetVertexAttribivARB(1,GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB),GL_FALSE)
-
-		glVertexAttribPointerARB(1,2,GL_FLOAT,GL_FALSE,0,[1,1].pack("f*"))
-		assert_equal(glGetVertexAttribPointervARB(1),[1,1].pack("f*"))
-
-
-		glProgramEnvParameter4dARB(GL_VERTEX_PROGRAM_ARB,1, 1,2,3,4)
-		assert_equal(glGetProgramEnvParameterdvARB(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramEnvParameter4fARB(GL_VERTEX_PROGRAM_ARB,1, 5,6,7,8)
-		assert_equal(glGetProgramEnvParameterfvARB(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-		glProgramEnvParameter4dvARB(GL_VERTEX_PROGRAM_ARB,1, [1,2,3,4])
-		assert_equal(glGetProgramEnvParameterdvARB(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramEnvParameter4fvARB(GL_VERTEX_PROGRAM_ARB,1, [5,6,7,8])
-		assert_equal(glGetProgramEnvParameterfvARB(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-
-		glProgramLocalParameter4dARB(GL_VERTEX_PROGRAM_ARB,1, 1,2,3,4)
-		assert_equal(glGetProgramLocalParameterdvARB(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramLocalParameter4fARB(GL_VERTEX_PROGRAM_ARB,1, 5,6,7,8)
-		assert_equal(glGetProgramLocalParameterfvARB(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-		glProgramLocalParameter4dvARB(GL_VERTEX_PROGRAM_ARB,1, [1,2,3,4])
-		assert_equal(glGetProgramLocalParameterdvARB(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramLocalParameter4fvARB(GL_VERTEX_PROGRAM_ARB,1, [5,6,7,8])
-		assert_equal(glGetProgramLocalParameterfvARB(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-
-		glVertexAttrib1dARB(1,1)
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],1)
-		glVertexAttrib1fARB(1,2)
-		assert_equal(glGetVertexAttribfvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],2)
-		glVertexAttrib1sARB(1,3)
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],3)
-		glVertexAttrib1dvARB(1,[1])
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],1)
-		glVertexAttrib1fvARB(1,[2])
-		assert_equal(glGetVertexAttribfvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],2)
-		glVertexAttrib1svARB(1,[3])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],3)
-
-		glVertexAttrib2dARB(1,1,2)
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[1,2])
-		glVertexAttrib2fARB(1,2,3)
-		assert_equal(glGetVertexAttribfvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[2,3])
-		glVertexAttrib2sARB(1,3,4)
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[3,4])
-		glVertexAttrib2dvARB(1,[1,2])
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[1,2])
-		glVertexAttrib2fvARB(1,[2,3])
-		assert_equal(glGetVertexAttribfvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[2,3])
-		glVertexAttrib2svARB(1,[3,4])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[3,4])
-
-		glVertexAttrib3dARB(1,1,2,3)
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[1,2,3])
-		glVertexAttrib3fARB(1,2,3,4)
-		assert_equal(glGetVertexAttribfvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[2,3,4])
-		glVertexAttrib3sARB(1,3,4,5)
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[3,4,5])
-		glVertexAttrib3dvARB(1,[1,2,3])
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[1,2,3])
-		glVertexAttrib3fvARB(1,[2,3,4])
-		assert_equal(glGetVertexAttribfvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[2,3,4])
-		glVertexAttrib3svARB(1,[3,4,5])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[3,4,5])
-
-		glVertexAttrib4dARB(1,1,2,3,4)
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[1,2,3,4])
-		glVertexAttrib4fARB(1,2,3,4,5)
-		assert_equal(glGetVertexAttribfvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[2,3,4,5])
-		glVertexAttrib4sARB(1,3,4,5,6)
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[3,4,5,6])
-		glVertexAttrib4dvARB(1,[1,2,3,4])
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[1,2,3,4])
-		glVertexAttrib4fvARB(1,[2,3,4,5])
-		assert_equal(glGetVertexAttribfvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[2,3,4,5])
-		glVertexAttrib4svARB(1,[3,4,5,6])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[3,4,5,6])
-
-
-		glVertexAttrib4bvARB(1,[1,2,3,4])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[1,2,3,4])
-		glVertexAttrib4ivARB(1,[2,3,4,5])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[2,3,4,5])
-		glVertexAttrib4ubvARB(1,[3,4,5,6])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[3,4,5,6])
-		glVertexAttrib4uivARB(1,[1,2,3,4])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[1,2,3,4])
-		glVertexAttrib4usvARB(1,[2,3,4,5])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[2,3,4,5])
-
-		glVertexAttrib4NbvARB(1,[0,2**7-1,0,2**7-1])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[0,1,0,1])
-		glVertexAttrib4NivARB(1,[2**31-1,0,2**31-1,0])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[1,0,1,0])
-		glVertexAttrib4NsvARB(1,[0,2**15-1,0,2**15-1])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[0,1,0,1])
-
-		glVertexAttrib4NubARB(1,2**8-1,0,2**8-1,0)
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[1,0,1,0])
-
-		glVertexAttrib4NubvARB(1,[0,2**8-1,0,2**8-1])
-		assert_equal(glGetVertexAttribdvARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[0,1,0,1])
-		glVertexAttrib4NuivARB(1,[2**32-1,0,2**32-1,0])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[1,0,1,0])
-		glVertexAttrib4NusvARB(1,[0,2**16-1,0,2**16-1])
-		assert_equal(glGetVertexAttribivARB(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,4],[0,1,0,1])
-
-		glDeleteProgramsARB(programs)
-	end
-
-	def test_gl_arb_windowpos
-		return if not supported?("GL_ARB_window_pos")
-		# 2
-		glWindowPos2dARB(1.0,2.0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1,2,0,1])
-		glWindowPos2dvARB([2.0,1.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[2,1,0,1])
-		glWindowPos2fARB(1.0,2.0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1,2,0,1])
-		glWindowPos2fvARB([2.0,1.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[2,1,0,1])
-		glWindowPos2iARB(1,2)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1,2,0,1])
-		glWindowPos2ivARB([2,1])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[2,1,0,1])
-		glWindowPos2sARB(1,2)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1,2,0,1])
-		glWindowPos2svARB([2,1])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[2,1,0,1])
-
-		# 3
-		glWindowPos3dARB(1.0,2.0,0.5)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1,2,0.5,1])
-		glWindowPos3dvARB([3.0,2.0,1.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3,2,1,1])
-		glWindowPos3fARB(1.0,2.0,0.5)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1,2,0.5,1])
-		glWindowPos3fvARB([3.0,2.0,1.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3,2,1,1])
-		glWindowPos3iARB(1,2,0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1,2,0,1])
-		glWindowPos3ivARB([3,2,1])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3,2,1,1])
-		glWindowPos3sARB(1,2,0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1,2,0,1])
-		glWindowPos3svARB([3,2,1])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3,2,1,1])
-	end
-
-	def test_gl_arb_pointparameter
-		return if not supported?("GL_ARB_point_parameters")
-		glPointParameterfARB(GL_POINT_SIZE_MIN,1.0)
-		assert_equal(glGetDoublev(GL_POINT_SIZE_MIN),1.0)
-
-		glPointParameterfvARB(GL_POINT_DISTANCE_ATTENUATION,[1,0,1])
-		assert_equal(glGetDoublev(GL_POINT_DISTANCE_ATTENUATION),[1,0,1])
-	end
-
-	def test_gl_arb_occlusion_query
-		return if not supported?("GL_ARB_occlusion_query")
-
-		queries = glGenQueriesARB(2)
-		assert_equal(queries.size,2)
-
-		glBeginQueryARB(GL_SAMPLES_PASSED,queries[1])
-		assert_equal(glIsQueryARB(queries[1]),true)
-
-		glEndQueryARB(GL_SAMPLES_PASSED)
-		r = glGetQueryObjectivARB(queries[1],GL_QUERY_RESULT_AVAILABLE)
-		assert(r==GL_TRUE || r==GL_FALSE)
-		assert(glGetQueryObjectuivARB(queries[1],GL_QUERY_RESULT)>=0)
-
-		glDeleteQueriesARB(queries)
-		assert_equal(glIsQueryARB(queries[1]),false)
-	end
-
-	def test_gl_arb_shader_objects
-		return if not supported?("GL_ARB_shader_objects")
-
-		vertex_shader_source = "void main() { gl_Position = ftransform();}"
-		
-		program = glCreateProgramObjectARB()
-
-		vs = glCreateShaderObjectARB(GL_VERTEX_SHADER)
-
-		glShaderSourceARB(vs,vertex_shader_source)
-		assert_equal(glGetShaderSourceARB(vs),vertex_shader_source)
-
-		assert_equal(glGetObjectParameterivARB(vs,GL_OBJECT_TYPE_ARB),GL_SHADER_OBJECT_ARB)
-		assert_equal(glGetObjectParameterfvARB(vs,GL_OBJECT_TYPE_ARB),GL_SHADER_OBJECT_ARB)
-		assert_equal(glGetObjectParameterfvARB(vs,GL_OBJECT_SUBTYPE_ARB),GL_VERTEX_SHADER)
-		glCompileShaderARB(vs)
-		assert_equal(glGetObjectParameterivARB(vs,GL_OBJECT_COMPILE_STATUS_ARB),GL_TRUE)
-		
-		vslog = glGetInfoLogARB(vs)
-		assert_equal(vslog.class,String)
-		
-		glAttachObjectARB(program,vs)
-		assert_equal(glGetAttachedObjectsARB(program),vs)
-
-		glValidateProgramARB(program)
-		assert_equal(glGetObjectParameterivARB(program,GL_OBJECT_VALIDATE_STATUS_ARB),GL_TRUE)
-
-		glLinkProgramARB(program)
-		assert_equal(glGetObjectParameterivARB(program,GL_OBJECT_LINK_STATUS_ARB),GL_TRUE)
-
-		glUseProgramObjectARB(program)
-		assert_equal(glGetIntegerv(GL_CURRENT_PROGRAM),program)
-
-		assert_equal(glGetHandleARB(GL_PROGRAM_OBJECT_ARB),program)
-
-		glUseProgramObjectARB(0)
-
-		glDetachObjectARB(program,vs)
-
-		glDeleteObjectARB(vs)
-		glDeleteObjectARB(program)
-	end
-
-	def test_gl_arb_shader_objects_2
-		return if not supported?("GL_ARB_shader_objects")
-
-		vertex_shader_source = "attribute vec4 test; uniform float testvec1; uniform vec2 testvec2; uniform vec3 testvec3; uniform vec4 testvec4; uniform int testivec1; uniform ivec2 testivec2; uniform ivec3 testivec3; uniform ivec4 testivec4; void main() { gl_Position = testvec1 * test * testvec2.x * testvec3.x * testivec1 * testivec2.x * testivec3.x * testivec4.x + testvec4;}"
-
-		program = glCreateProgramObjectARB()
-		vs = glCreateShaderObjectARB(GL_VERTEX_SHADER)
-		glShaderSourceARB(vs,vertex_shader_source)
-
-		glCompileShaderARB(vs)
-		assert_equal(glGetObjectParameterivARB(vs,GL_OBJECT_COMPILE_STATUS_ARB),GL_TRUE)
-
-		glAttachObjectARB(program,vs)
-
-		glLinkProgramARB(program)
-		assert_equal(glGetObjectParameterivARB(program,GL_OBJECT_LINK_STATUS_ARB),GL_TRUE)
-
-		glUseProgramObjectARB(program)
-
-		assert((tv1l = glGetUniformLocationARB(program,"testvec1"))>=0)
-		assert((tv2l = glGetUniformLocationARB(program,"testvec2"))>=0)
-		assert((tv3l = glGetUniformLocationARB(program,"testvec3"))>=0)
-		assert((tv4l = glGetUniformLocationARB(program,"testvec4"))>=0)
-		assert((tv1il = glGetUniformLocationARB(program,"testivec1"))>=0)
-		assert((tv2il = glGetUniformLocationARB(program,"testivec2"))>=0)
-		assert((tv3il = glGetUniformLocationARB(program,"testivec3"))>=0)
-		assert((tv4il = glGetUniformLocationARB(program,"testivec4"))>=0)
-
-		##
-
-		assert_equal(glGetActiveUniformARB(program,tv1il),[1,GL_INT,"testivec1"])
-
-		## f
-		glUniform1fARB(tv1l,2.0)
-		assert_equal(glGetUniformfvARB(program,tv1l),2.0)
-		glUniform2fARB(tv2l,2.0,2.0)
-		assert_equal(glGetUniformfvARB(program,tv2l),[2.0,2.0])
-		glUniform3fARB(tv3l,2.0,2.0,2.0)
-		assert_equal(glGetUniformfvARB(program,tv3l),[2.0,2.0,2.0])
-		glUniform4fARB(tv4l,2.0,2.0,2.0,2.0)
-		assert_equal(glGetUniformfvARB(program,tv4l),[2.0,2.0,2.0,2.0])
-		# i 
-		glUniform1iARB(tv1il,3)
-		assert_equal(glGetUniformivARB(program,tv1il),3)
-		glUniform2iARB(tv2il,3,3)
-		assert_equal(glGetUniformivARB(program,tv2il),[3,3])
-		glUniform3iARB(tv3il,3,3,3)
-		assert_equal(glGetUniformivARB(program,tv3il),[3,3,3])
-		glUniform4iARB(tv4il,3,3,3,3)
-		assert_equal(glGetUniformivARB(program,tv4il),[3,3,3,3])
-		# fv
-		glUniform1fvARB(tv1l,[3.0])
-		assert_equal(glGetUniformfvARB(program,tv1l),3.0)
-		glUniform2fvARB(tv2l,[3.0,3.0])
-		assert_equal(glGetUniformfvARB(program,tv2l),[3.0,3.0])
-		glUniform3fvARB(tv3l,[3.0,3.0,3.0])
-		assert_equal(glGetUniformfvARB(program,tv3l),[3.0,3.0,3.0])
-		glUniform4fvARB(tv4l,[3.0,3.0,3.0,3.0])
-		assert_equal(glGetUniformfvARB(program,tv4l),[3.0,3.0,3.0,3.0])
-		# iv
-		glUniform1ivARB(tv1il,[2])
-		assert_equal(glGetUniformivARB(program,tv1il),2)
-		glUniform2ivARB(tv2il,[2,2])
-		assert_equal(glGetUniformivARB(program,tv2il),[2,2])
-		glUniform3ivARB(tv3il,[2,2,2])
-		assert_equal(glGetUniformivARB(program,tv3il),[2,2,2])
-		glUniform4ivARB(tv4il,[2,2,2,2])
-		assert_equal(glGetUniformivARB(program,tv4il),[2,2,2,2])
-
-		glDeleteObjectARB(vs)
-		glDeleteObjectARB(program)
-	end
-
-	def test_gl_arb_shader_objects_3
-		return if not supported?("GL_ARB_shader_objects")
-
-		vertex_shader_source = "uniform mat2 testmat2; uniform mat3 testmat3; uniform mat4 testmat4; void main() { gl_Position = gl_Vertex * testmat4[0].x * testmat3[0].x * testmat2[0].x;}"
-
-		program = glCreateProgramObjectARB()
-		vs = glCreateShaderObjectARB(GL_VERTEX_SHADER)
-		glShaderSourceARB(vs,vertex_shader_source)
-
-		glCompileShaderARB(vs)
-		assert_equal(glGetObjectParameterivARB(vs,GL_OBJECT_COMPILE_STATUS_ARB),GL_TRUE)
-
-		glAttachObjectARB(program,vs)
-
-		glLinkProgramARB(program)
-		assert_equal(glGetObjectParameterivARB(program,GL_OBJECT_LINK_STATUS_ARB),GL_TRUE)
-
-		glUseProgramObjectARB(program)
-		#
-		assert((tm2l = glGetUniformLocationARB(program,"testmat2"))>=0)
-		assert((tm3l = glGetUniformLocationARB(program,"testmat3"))>=0)
-		assert((tm4l = glGetUniformLocationARB(program,"testmat4"))>=0)
-
-		glUniformMatrix2fvARB(tm2l, GL_TRUE, [0,1, 1,0])
-		assert_equal(glGetUniformfvARB(program,tm2l),[0,1,1,0])
-		
-		glUniformMatrix3fvARB(tm3l, GL_TRUE, [0,1,0, 1,0,1, 0,1,0])
-		assert_equal(glGetUniformfvARB(program,tm3l),[0,1,0, 1,0,1, 0,1,0])
-		
-		glUniformMatrix4fvARB(tm4l, GL_TRUE, [0,1,0,1, 1,0,1,0, 0,1,0,1, 1,0,1,0])
-		assert_equal(glGetUniformfvARB(program,tm4l),[0,1,0,1, 1,0,1,0, 0,1,0,1, 1,0,1,0])
-
-		glDeleteObjectARB(vs)
-		glDeleteObjectARB(program)
-	end
-
-	def test_gl_arb_vertex_shader
-		return if not supported?("GL_ARB_vertex_shader")
-
-		vertex_shader_source = "attribute vec4 test; uniform float testvec1; uniform vec2 testvec2; uniform vec3 testvec3; uniform vec4 testvec4; uniform int testivec1; uniform ivec2 testivec2; uniform ivec3 testivec3; uniform ivec4 testivec4; void main() { gl_Position = testvec1 * test * testvec2.x * testvec3.x * testivec1 * testivec2.x * testivec3.x * testivec4.x + testvec4;}"
-
-		program = glCreateProgramObjectARB()
-		vs = glCreateShaderObjectARB(GL_VERTEX_SHADER)
-		glShaderSourceARB(vs,vertex_shader_source)
-
-		glCompileShaderARB(vs)
-		assert_equal(glGetObjectParameterivARB(vs,GL_OBJECT_COMPILE_STATUS_ARB),GL_TRUE)
-
-		glAttachObjectARB(program,vs)
-
-		glBindAttribLocationARB(program,2,"test")
-
-		glLinkProgramARB(program)
-		assert_equal(glGetObjectParameterivARB(program,GL_OBJECT_LINK_STATUS_ARB),GL_TRUE)
-
-		glUseProgramObjectARB(program)
-
-		assert_equal(glGetAttribLocationARB(program,"test"),2)
-		assert_equal(glGetActiveAttribARB(program,0),[1,GL_FLOAT_VEC4,"test"])
-
-		glDeleteObjectARB(vs)
-		glDeleteObjectARB(program)
-	end
-end