#
# 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_EXT < Test::Unit::TestCase
	def setup
		common_setup()
	end

	def teardown
		if Gl.is_available?("GL_EXT_framebuffer_object")
			glBindFramebufferEXT(GL_READ_FRAMEBUFFER_EXT, 0)
			glBindFramebufferEXT(GL_DRAW_FRAMEBUFFER_EXT, 0)
		end
		common_teardown()
	end

	def test_gl_ext_polygon_offset
		return if not supported?("GL_EXT_polygon_offset")

		glPolygonOffsetEXT(1.0,2.0)
		assert_equal(glGetIntegerv(GL_POLYGON_OFFSET_FACTOR_EXT),1.0)
		assert_equal(glGetIntegerv(GL_POLYGON_OFFSET_BIAS_EXT),2.0)
	end

	def test_gl_ext_framebuffer_object
		return if not supported?("GL_EXT_framebuffer_object")
		t = glGenTextures(3)
		glBindTexture(GL_TEXTURE_2D, t[0])
		glTexImage2D(GL_TEXTURE_2D,0,GL_RGBA8,$window_size,$window_size,0,GL_RGBA,GL_UNSIGNED_BYTE,nil)

		glBindTexture(GL_TEXTURE_1D, t[1])
		glTexImage1D(GL_TEXTURE_1D,0,GL_RGBA8,$window_size,0,GL_RGBA,GL_UNSIGNED_BYTE,nil)

		glBindTexture(GL_TEXTURE_3D, t[2])
		glTexImage3D(GL_TEXTURE_3D,0,GL_RGBA8,$window_size,$window_size,1,0,GL_RGBA,GL_UNSIGNED_BYTE,nil)

		fb = glGenFramebuffersEXT(1)
		assert(fb.size==1)
		glBindFramebufferEXT(GL_FRAMEBUFFER_EXT,fb[0])
		assert_equal(glIsFramebufferEXT(fb[0]),true)

		rb = glGenRenderbuffersEXT(1)
		assert(rb.size==1)
		glBindRenderbufferEXT(GL_RENDERBUFFER_EXT,rb[0])
		assert_equal(glIsRenderbufferEXT(rb[0]),true)

		glRenderbufferStorageEXT(GL_RENDERBUFFER_EXT, GL_DEPTH_COMPONENT, $window_size, $window_size)

		assert_equal(glGetRenderbufferParameterivEXT(GL_RENDERBUFFER_EXT,GL_RENDERBUFFER_WIDTH_EXT),$window_size)
		assert_equal(glGetRenderbufferParameterivEXT(GL_RENDERBUFFER_EXT,GL_RENDERBUFFER_HEIGHT_EXT),$window_size)
		assert_equal(glGetRenderbufferParameterivEXT(GL_RENDERBUFFER_EXT,GL_RENDERBUFFER_INTERNAL_FORMAT_EXT),GL_DEPTH_COMPONENT)


		glFramebufferRenderbufferEXT(GL_FRAMEBUFFER_EXT, GL_DEPTH_ATTACHMENT_EXT, GL_RENDERBUFFER_EXT, rb[0]);
		glFramebufferTexture2DEXT(GL_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT, GL_TEXTURE_2D, t[0], 0)

		status = glCheckFramebufferStatusEXT(GL_FRAMEBUFFER_EXT)
		assert(status == GL_FRAMEBUFFER_COMPLETE_EXT || status == GL_FRAMEBUFFER_UNSUPPORTED_EXT)

		assert_equal(glGetFramebufferAttachmentParameterivEXT(GL_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT, GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT),GL_TEXTURE)

		glGenerateMipmapEXT(GL_TEXTURE_2D)

		glFramebufferTexture1DEXT(GL_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT, GL_TEXTURE_1D, t[1], 0)
		glFramebufferTexture3DEXT(GL_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT, GL_TEXTURE_3D, t[2], 0, 0)
	
		glDeleteRenderbuffersEXT(rb)
		glDeleteFramebuffersEXT(fb)
		glDeleteTextures(t)
	end

	def test_gl_ext_gpu_program_parameters		
		return if not supported?("GL_EXT_gpu_program_parameters")

		glProgramEnvParameters4fvEXT(GL_VERTEX_PROGRAM_ARB,1, [1,2,3,4,5,6,7,8])
		assert_equal(glGetProgramEnvParameterdvARB(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
		assert_equal(glGetProgramEnvParameterdvARB(GL_VERTEX_PROGRAM_ARB,2),[5,6,7,8])
	end

	def test_gl_ext_framebuffer_blit
		return if not supported?("GL_EXT_framebuffer_blit")
		fbo = glGenFramebuffersEXT(2)
		texture = glGenTextures(2)
		data = [1,1,1,1, 0,0,0,0, 1,1,1,1, 0,0,0,0]

		glBindFramebufferEXT(GL_READ_FRAMEBUFFER_EXT, fbo[0])
		glBindFramebufferEXT(GL_DRAW_FRAMEBUFFER_EXT, fbo[1])

		glBindTexture(GL_TEXTURE_2D, texture[0])
		glTexImage2D(GL_TEXTURE_2D,0,GL_RGBA8,2,2,0,GL_RGBA,GL_UNSIGNED_BYTE,data.pack("C*"))
		glGenerateMipmapEXT(GL_TEXTURE_2D);

		glBindTexture(GL_TEXTURE_2D, texture[1])
		glTexImage2D(GL_TEXTURE_2D,0,GL_RGBA8,2,2,0,GL_RGBA,GL_UNSIGNED_BYTE,nil)
		glGenerateMipmapEXT(GL_TEXTURE_2D);

		glFramebufferTexture2DEXT(GL_READ_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT, GL_TEXTURE_2D, texture[0], 0)
		glFramebufferTexture2DEXT(GL_DRAW_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT, GL_TEXTURE_2D, texture[1], 0)

		status = glCheckFramebufferStatusEXT(GL_READ_FRAMEBUFFER_EXT)
		assert_equal(status,GL_FRAMEBUFFER_COMPLETE_EXT)
		status = glCheckFramebufferStatusEXT(GL_DRAW_FRAMEBUFFER_EXT)
		assert_equal(status,GL_FRAMEBUFFER_COMPLETE_EXT)

		glBlitFramebufferEXT(0, 0, 2, 2,
											   0, 0, 2, 2,
											   GL_COLOR_BUFFER_BIT,
											   GL_NEAREST)

		glBindTexture(GL_TEXTURE_2D, texture[1])
		tex = glGetTexImage(GL_TEXTURE_2D,0,GL_RGBA,GL_UNSIGNED_BYTE).unpack("C*")
		assert_equal(tex,data)
		
		glDeleteTextures(texture)
		glDeleteFramebuffersEXT(fbo)
	end

	def test_gl_ext_framebuffer_multisample
		return if not supported?("GL_EXT_framebuffer_multisample")
		rb = glGenRenderbuffersEXT(1)[0]

		glBindRenderbufferEXT(GL_RENDERBUFFER_EXT,rb)
		glRenderbufferStorageMultisampleEXT(GL_RENDERBUFFER_EXT,4,GL_RGBA,2,2)
		samples = glGetRenderbufferParameterivEXT(GL_RENDERBUFFER_EXT,GL_RENDERBUFFER_SAMPLES_EXT)
		assert_equal(samples,4)

		glDeleteRenderbuffersEXT(rb)
	end

	def test_gl_ext_pointparameter
		return if not supported?("GL_EXT_point_parameters")
		glPointParameterfEXT(GL_POINT_SIZE_MIN,1.0)
		assert_equal(glGetDoublev(GL_POINT_SIZE_MIN),1.0)

		glPointParameterfvEXT(GL_POINT_DISTANCE_ATTENUATION,[1,0,1])
		assert_equal(glGetDoublev(GL_POINT_DISTANCE_ATTENUATION),[1,0,1])
	end

	def test_gl_ext_stencil_two_side
		return if not supported?("GL_EXT_stencil_two_side")
		glActiveStencilFaceEXT(GL_FRONT)
		assert_equal(glGetIntegerv(GL_ACTIVE_STENCIL_FACE_EXT),GL_FRONT)
		glActiveStencilFaceEXT(GL_BACK)
		assert_equal(glGetIntegerv(GL_ACTIVE_STENCIL_FACE_EXT),GL_BACK)
	end

	def test_gl_ext_stencil_clear_tag
		return if not supported?("GL_EXT_stencil_clear_tag")
		glStencilClearTagEXT(1,2)
		assert_equal(glGetIntegerv(GL_STENCIL_TAG_BITS_EXT),1)
		assert_equal(glGetIntegerv(GL_STENCIL_CLEAR_TAG_VALUE_EXT),2)
	end

	def test_gl_ext_secondary_color
		return if not supported?("GL_EXT_secondary_color")

		glSecondaryColor3bEXT(2**7-1,0,2**7-1)
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[1.0,0.0,1.0,1.0]))
		glSecondaryColor3bvEXT([0,2**7-1,0])
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0.0,1.0,0.0,1.0]))
		glSecondaryColor3dEXT(1.0,0.0,1.0)
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[1.0,0.0,1.0,1.0]))
		glSecondaryColor3dvEXT([0.0,1.0,0.0])
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0.0,1.0,0.0,1.0]))
		glSecondaryColor3fEXT(1.0,0.0,1.0)
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[1.0,0.0,1.0,1.0]))
		glSecondaryColor3fvEXT([0.0,1.0,0.0])
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0.0,1.0,0.0,1.0]))
		glSecondaryColor3iEXT(2**31-1,0,2**31-1)
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[1.0,0.0,1.0,1.0]))
		glSecondaryColor3ivEXT([0,2**31-1,0])
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0.0,1.0,0.0,1.0]))
		glSecondaryColor3sEXT(2**15-1,0,2**15-1)
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[1.0,0.0,1.0,1.0]))
		glSecondaryColor3svEXT([0,2**15-1,0])
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0.0,1.0,0.0,1.0]))
		glSecondaryColor3ubEXT(2**8-1,0,2**8-1)
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[1.0,0.0,1.0,1.0]))
		glSecondaryColor3ubvEXT([0,2**8-1,0])
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0.0,1.0,0.0,1.0]))
		glSecondaryColor3uiEXT(2**32-1,0,2**32-1)
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[1.0,0.0,1.0,1.0]))
		glSecondaryColor3uivEXT([0,2**32-1,0])
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0.0,1.0,0.0,1.0]))
		glSecondaryColor3usEXT(2**16-1,0,2**16-1)
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[1.0,0.0,1.0,1.0]))
		glSecondaryColor3usvEXT([0,2**16-1,0])
		assert(approx_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0.0,1.0,0.0,1.0]))

		sc = [0,1,0, 1,0,1].pack("f*")

		glSecondaryColorPointerEXT(3,GL_FLOAT,0,sc)
		assert_equal(glGetIntegerv(GL_SECONDARY_COLOR_ARRAY_SIZE),3)
		assert_equal(glGetIntegerv(GL_SECONDARY_COLOR_ARRAY_TYPE),GL_FLOAT)
		assert_equal(glGetIntegerv(GL_SECONDARY_COLOR_ARRAY_STRIDE),0)
		assert_equal(glGetPointerv(GL_SECONDARY_COLOR_ARRAY_POINTER),sc)
		glEnableClientState(GL_SECONDARY_COLOR_ARRAY)

		glBegin(GL_TRIANGLES)
		glArrayElement(0)
		glEnd()

		assert_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0,1,0,1])

		glBegin(GL_TRIANGLES)
		glArrayElement(1)
		glEnd()

		assert_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[1,0,1,1])

		glDisableClientState(GL_SECONDARY_COLOR_ARRAY)
	end

	def test_gl_ext_blend_color
		return if not supported?("GL_EXT_blend_color")
		glBlendColorEXT(1.0,0.0,1.0,0.0)
		assert_equal(glGetFloatv(GL_BLEND_COLOR_EXT),[1,0,1,0])
		glBlendColorEXT(0.0,1.0,0.0,1.0)
		assert_equal(glGetFloatv(GL_BLEND_COLOR_EXT),[0,1,0,1])
	end

	def test_gl_ext_blend_minmax
		return if not supported?("GL_EXT_blend_minmax")
		glBlendEquationEXT(GL_MIN_EXT)
		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_EXT),GL_MIN_EXT)
		glBlendEquationEXT(GL_MAX_EXT)
		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_EXT),GL_MAX_EXT)
	end

	def test_gl_ext_blend_func_separate
		return if not supported?("GL_EXT_blend_func_separate")
		glBlendFuncSeparateEXT(GL_ZERO,GL_ONE,GL_ZERO,GL_ONE)
		assert_equal(glGetIntegerv(GL_BLEND_SRC_RGB_EXT),GL_ZERO)
		assert_equal(glGetIntegerv(GL_BLEND_DST_RGB_EXT),GL_ONE)
		assert_equal(glGetIntegerv(GL_BLEND_SRC_ALPHA_EXT),GL_ZERO)
		assert_equal(glGetIntegerv(GL_BLEND_DST_ALPHA_EXT),GL_ONE)
		glBlendFuncSeparateEXT(GL_ONE,GL_ZERO,GL_ONE,GL_ZERO)
		assert_equal(glGetIntegerv(GL_BLEND_SRC_RGB_EXT),GL_ONE)
		assert_equal(glGetIntegerv(GL_BLEND_DST_RGB_EXT),GL_ZERO)
		assert_equal(glGetIntegerv(GL_BLEND_SRC_ALPHA_EXT),GL_ONE)
		assert_equal(glGetIntegerv(GL_BLEND_DST_ALPHA_EXT),GL_ZERO)
	end

	def test_gl_ext_blend_equation_separate
		return if not supported?("GL_EXT_blend_equation_separate")
		glBlendEquationSeparateEXT(GL_FUNC_ADD,GL_FUNC_SUBTRACT)
		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_RGB_EXT),GL_FUNC_ADD)
		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_ALPHA_EXT),GL_FUNC_SUBTRACT)
		glBlendEquationSeparateEXT(GL_FUNC_SUBTRACT,GL_FUNC_ADD)
		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_RGB_EXT),GL_FUNC_SUBTRACT)
		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_ALPHA_EXT),GL_FUNC_ADD)
	end

	def test_gl_ext_depth_bounds_test
		return if not supported?("GL_EXT_depth_bounds_test")
		glDepthBoundsEXT(0.2,0.8)
		assert(approx_equal(glGetDoublev(GL_DEPTH_BOUNDS_EXT),[0.2,0.8]))
	end

	def test_gl_ext_timer_query
		return if not supported?("GL_EXT_timer_query")
		queries = glGenQueries(2)
		glBeginQuery(GL_TIME_ELAPSED_EXT,queries[0])
		glBegin(GL_QUADS)
			glVertex2i(0,0)
			glVertex2i(0,1)
			glVertex2i(1,1)
			glVertex2i(1,0)
		glEnd
		glEndQuery(GL_TIME_ELAPSED_EXT)
	
		while glGetQueryObjectiv(queries[0], GL_QUERY_RESULT_AVAILABLE)==GL_FALSE
			#
		end
		assert(glGetQueryObjecti64vEXT(queries[0], GL_QUERY_RESULT)>0)
		assert(glGetQueryObjectui64vEXT(queries[0], GL_QUERY_RESULT)>0)

		glDeleteQueries(queries)
	end

	def test_gl_ext_texture_object
		return if not supported?("GL_EXT_texture_object")
		textures = glGenTexturesEXT(2)
		glBindTextureEXT(GL_TEXTURE_1D,textures[0])
		glBindTextureEXT(GL_TEXTURE_2D,textures[1])
		assert_equal(glIsTextureEXT(textures[0]),true)
		assert_equal(glAreTexturesResidentEXT(textures).size,2)

		glPrioritizeTexturesEXT(textures,[0.5,1.0])
		assert_equal(glGetTexParameterfv(GL_TEXTURE_1D,GL_TEXTURE_PRIORITY),0.5)
		assert_equal(glGetTexParameterfv(GL_TEXTURE_2D,GL_TEXTURE_PRIORITY),1.0)

		glDeleteTexturesEXT(textures)
		assert_equal(glIsTextureEXT(textures[0]),false)
	end

	def test_gl_ext_compiled_vertex_array
		return if not supported?("GL_EXT_compiled_vertex_array")
		glLockArraysEXT(1,2)
		assert_equal(glGetIntegerv(GL_ARRAY_ELEMENT_LOCK_FIRST_EXT),1)
		assert_equal(glGetIntegerv(GL_ARRAY_ELEMENT_LOCK_COUNT_EXT),2)
		glUnlockArraysEXT()
	end

	def test_gl_ext_fogcoord
		return if not supported?("GL_EXT_fog_coord")

		glFogCoordfEXT(2.0)
		assert_equal(glGetDoublev(GL_CURRENT_FOG_COORD),2.0)
		glFogCoordfvEXT([3.0])
		assert_equal(glGetDoublev(GL_CURRENT_FOG_COORD),3.0)

		glFogCoorddEXT(2.0)
		assert_equal(glGetDoublev(GL_CURRENT_FOG_COORD),2.0)
		glFogCoorddvEXT([3.0])
		assert_equal(glGetDoublev(GL_CURRENT_FOG_COORD),3.0)

		fc = [1, 0].pack("f*")
		glFogCoordPointerEXT(GL_FLOAT,0,fc)
		assert_equal(glGetIntegerv(GL_FOG_COORD_ARRAY_TYPE),GL_FLOAT)
		assert_equal(glGetIntegerv(GL_FOG_COORD_ARRAY_STRIDE),0)
		assert_equal(glGetPointerv(GL_FOG_COORD_ARRAY_POINTER),fc)

		glEnableClientState(GL_FOG_COORD_ARRAY)

		glBegin(GL_TRIANGLES)
		glArrayElement(0)
		glEnd()

		assert_equal(glGetDoublev(GL_CURRENT_FOG_COORD),1)

		glBegin(GL_TRIANGLES)
		glArrayElement(1)
		glEnd()

		assert_equal(glGetDoublev(GL_CURRENT_FOG_COORD),0)

		glDisableClientState(GL_FOG_COORD_ARRAY)
	end

	def test_gl_ext_multi_draw_arrays
		return if not supported?("GL_EXT_multi_draw_arrays")
		va = [0,0, 1,0, 1,1, 0,0, 1,0, 0,1].pack("f*")
		glVertexPointer(2,GL_FLOAT,0,va)
		
		glEnable(GL_VERTEX_ARRAY)

		buf = glFeedbackBuffer(256,GL_3D)
		glRenderMode(GL_FEEDBACK)

		glMultiDrawArraysEXT(GL_POLYGON, [0,3], [3,3])

		i1 = [0,1,2].pack("C*")
		i2 = [3,4,5].pack("C*")
		glMultiDrawElementsEXT(GL_TRIANGLES,GL_UNSIGNED_BYTE,[i1,i2])

		count = glRenderMode(GL_RENDER)
		assert_equal(count,(3*3+2)*4)
		glDisable(GL_VERTEX_ARRAY)
	end

	def test_gl_ext_drawrangeelements
		return if not supported?("GL_EXT_draw_range_elements")
		va = [0,0, 0,1, 1,1].pack("f*")
		glVertexPointer(2,GL_FLOAT,0,va)

		buf = glFeedbackBuffer(256,GL_3D)
		glRenderMode(GL_FEEDBACK)

		glEnable(GL_VERTEX_ARRAY)

		glDrawRangeElementsEXT(GL_POINTS,0,2,3,GL_UNSIGNED_BYTE,[0,1,2].pack("C*"))
		count = glRenderMode(GL_RENDER)
		assert_equal(count,12)

		glDisable(GL_VERTEX_ARRAY)
	end

	def test_gl_ext_geometry_shader4
		return if not supported?("GL_EXT_geometry_shader4")
		program = glCreateProgramObjectARB()

		glProgramParameteriEXT(program,GL_GEOMETRY_INPUT_TYPE_EXT ,GL_LINES_ADJACENCY_EXT)
		assert_equal(glGetObjectParameterivARB(program,GL_GEOMETRY_INPUT_TYPE_EXT),GL_LINES_ADJACENCY_EXT)

		glDeleteObjectARB(program)
	end

	def test_gl_ext_gpu_shader4
		return if not supported?(["GL_EXT_gpu_shader4","GL_ARB_vertex_program"])

		programs = glGenProgramsARB(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)

		glVertexAttribI1iEXT(1,1)
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],1)
		glVertexAttribI1uiEXT(1,2)
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],2)
		glVertexAttribI1ivEXT(1,[3])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],3)
		glVertexAttribI1uivEXT(1,[4])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0],4)

		glVertexAttribI2iEXT(1,1,2)
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[1,2])
		glVertexAttribI2uiEXT(1,2,3)
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[2,3])
		glVertexAttribI2ivEXT(1,[3,4])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[3,4])
		glVertexAttribI2uivEXT(1,[4,5])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,2],[4,5])

		glVertexAttribI3iEXT(1,1,2,3)
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[1,2,3])
		glVertexAttribI3uiEXT(1,2,3,4)
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[2,3,4])
		glVertexAttribI3ivEXT(1,[3,4,5])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[3,4,5])
		glVertexAttribI3uivEXT(1,[4,5,6])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB)[0,3],[4,5,6])

		glVertexAttribI4iEXT(1,1,2,3,4)
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB),[1,2,3,4])
		glVertexAttribI4uiEXT(1,2,3,4,5)
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB),[2,3,4,5])
		glVertexAttribI4ivEXT(1,[3,4,5,6])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB),[3,4,5,6])
		glVertexAttribI4uivEXT(1,[4,5,6,7])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB),[4,5,6,7])

		glVertexAttribI4bvEXT(1,[1,2,3,4])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB),[1,2,3,4])
		glVertexAttribI4svEXT(1,[2,3,4,5])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB),[2,3,4,5])
		glVertexAttribI4ubvEXT(1,[1,2,3,4])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB),[1,2,3,4])
		glVertexAttribI4usvEXT(1,[2,3,4,5])
		assert_equal(glGetVertexAttribIivEXT(1,GL_CURRENT_VERTEX_ATTRIB_ARB),[2,3,4,5])

		glVertexAttribIPointerEXT(1,2,GL_INT,0,[1,1].pack("i*"))
		assert_equal(glGetVertexAttribPointervARB(1),[1,1].pack("i*"))

		glDeleteProgramsARB(programs)
	end

	def test_gl_ext_gpu_shader4_2
		return if not supported?(["GL_EXT_gpu_shader4","GL_ARB_shader_objects"])

		vertex_shader_source = "attribute vec4 test; uniform float testvec1; uniform vec2 testvec2; uniform vec3 testvec3; uniform vec4 testvec4; uniform unsigned int testivec1; uniform uvec2 testivec2; uniform uvec3 testivec3; uniform uvec4 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)
		glAttachObjectARB(program,vs)
		glLinkProgramARB(program)
		glUseProgramObjectARB(program)

		assert((tv1il = glGetUniformLocationARB(program,"testivec1"))>=0)
		assert((tv2il = glGetUniformLocationARB(program,"testivec2"))>=0)
		assert((tv3il = glGetUniformLocationARB(program,"testivec3"))>=0)
		assert((tv4il = glGetUniformLocationARB(program,"testivec4"))>=0)

		glUniform1uiEXT(tv1il,3)
		assert_equal(glGetUniformuivEXT(program,tv1il),3)
		glUniform1uivEXT(tv1il,[4])
		assert_equal(glGetUniformuivEXT(program,tv1il),4)
		glUniform2uiEXT(tv2il,1,2)
		assert_equal(glGetUniformuivEXT(program,tv2il),[1,2])
		glUniform2uivEXT(tv2il,[3,4])
		assert_equal(glGetUniformuivEXT(program,tv2il),[3,4])
		glUniform3uiEXT(tv3il,1,2,3)
		assert_equal(glGetUniformuivEXT(program,tv3il),[1,2,3])
		glUniform3uivEXT(tv3il,[3,4,5])
		assert_equal(glGetUniformuivEXT(program,tv3il),[3,4,5])
		glUniform4uiEXT(tv4il,1,2,3,4)
		assert_equal(glGetUniformuivEXT(program,tv4il),[1,2,3,4])
		glUniform4uivEXT(tv4il,[3,4,5,6])
		assert_equal(glGetUniformuivEXT(program,tv4il),[3,4,5,6])

		glBindFragDataLocationEXT(program,1,"test")
		assert_equal(glGetFragDataLocationEXT(program,"test"),-1)
	end

	def test_gl_ext_draw_instanced
		return if not supported?("GL_EXT_draw_instanced")

		glEnableClientState(GL_VERTEX_ARRAY)
	
		va = [0,0, 0,1, 1,1].pack("f*")
		glVertexPointer(2,GL_FLOAT,0,va)

		buf = glFeedbackBuffer(256,GL_3D)
		glRenderMode(GL_FEEDBACK)
		
		glDrawArraysInstancedEXT(GL_TRIANGLES,0,3,2)
		
		glDrawElementsInstancedEXT(GL_TRIANGLES,3,GL_UNSIGNED_BYTE,[0,1,2].pack("C*"),2)
		count = glRenderMode(GL_RENDER)
		assert_equal(count,2*2*11)
		
		glDisableClientState(GL_VERTEX_ARRAY)
	end

	def test_gl_ext_texture_buffer_object
		return if not supported?("GL_EXT_texture_buffer_object")

		buf = glGenBuffers(1)[0]
		glBindBuffer(GL_TEXTURE_BUFFER_EXT, buf)

		tex = glGenTextures(1)[0]
		glBindTexture(GL_TEXTURE_BUFFER_EXT, tex)
		glTexBufferEXT(GL_TEXTURE_BUFFER_EXT, GL_RGBA32F_ARB, buf)

		assert_equal(glGetIntegerv(GL_TEXTURE_BINDING_BUFFER_EXT),tex)
		assert_equal(glGetIntegerv(GL_TEXTURE_BUFFER_FORMAT_EXT),GL_RGBA32F_ARB)
			
		glDeleteBuffers(buf)
		glDeleteTextures(tex)
	end

	def test_gl_ext_texture_integer
		return if not supported?("GL_EXT_texture_integer")

		glClearColorIiEXT(1,2,3,4)	
		glClearColorIuiEXT(1,2,3,4)	

		glTexParameterIivEXT(GL_TEXTURE_2D,GL_TEXTURE_BORDER_COLOR,[1,2,3,4])
		assert_equal(glGetTexParameterIivEXT(GL_TEXTURE_2D,GL_TEXTURE_BORDER_COLOR),[1,2,3,4])
		glTexParameterIuivEXT(GL_TEXTURE_2D,GL_TEXTURE_BORDER_COLOR,[5,6,7,8])
		assert_equal(glGetTexParameterIuivEXT(GL_TEXTURE_2D,GL_TEXTURE_BORDER_COLOR),[5,6,7,8])
	end
end