opengl 0.7.0.pre1-x86-mingw32

data/test/tc_func_15.rb

@@ -0,0 +1,270 @@
+#
+# 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_15 < Test::Unit::TestCase
+	def setup
+		common_setup()
+	end
+
+	def teardown
+		common_teardown()
+	end
+
+	def test_query
+		return if not supported?(1.5)
+		queries = glGenQueries(2)
+		assert_equal(queries.size,2)
+
+		glBeginQuery(GL_SAMPLES_PASSED,queries[1])
+		assert_equal(glIsQuery(queries[1]),true)
+		
+		glBegin(GL_TRIANGLES)
+		glVertex2i(0,0)
+		glVertex2i(1,0)
+		glVertex2i(1,1)
+		glEnd()
+
+		assert_equal(glGetQueryiv(GL_SAMPLES_PASSED,GL_CURRENT_QUERY),queries[1])
+	
+		glEndQuery(GL_SAMPLES_PASSED)
+		
+		r = glGetQueryObjectiv(queries[1],GL_QUERY_RESULT_AVAILABLE)
+		assert((r==GL_TRUE || r==GL_FALSE))
+
+		if (r==GL_TRUE)
+		assert(glGetQueryObjectiv(queries[1],GL_QUERY_RESULT)[0] > 0)
+		assert(glGetQueryObjectuiv(queries[1],GL_QUERY_RESULT)[0] > 0)
+		end
+		
+		glDeleteQueries(queries)
+		assert_equal(glIsQuery(queries[1]),false)
+	end
+	
+	def test_buffers
+		return if not supported?(1.5)
+		buffers = glGenBuffers(2)
+		glBindBuffer(GL_ARRAY_BUFFER,buffers[0])
+		assert_equal(glIsBuffer(buffers[0]),true)		
+
+		data = [0,1,2,3].pack("C*")
+		data2 = [4,5,6,7].pack("C*")
+
+		glBufferData(GL_ARRAY_BUFFER,4,data,GL_STREAM_READ)
+		assert_equal(glGetBufferSubData(GL_ARRAY_BUFFER,0,4),data)
+
+		assert_equal(glGetBufferParameteriv(GL_ARRAY_BUFFER,GL_BUFFER_USAGE),GL_STREAM_READ)
+
+		glBufferSubData(GL_ARRAY_BUFFER,0,4,data2)
+		assert_equal(glGetBufferSubData(GL_ARRAY_BUFFER,0,4),data2)
+
+		assert_equal(glMapBuffer(GL_ARRAY_BUFFER,GL_READ_ONLY),data2)
+		r = glUnmapBuffer(GL_ARRAY_BUFFER)
+		assert(r == true || r == false)
+		glDeleteBuffers(buffers)		
+		assert_equal(glIsBuffer(buffers[0]),false)
+
+		# FIXME: GetBufferPointerv not yet implemented
+	end
+
+	def test_buffer_binding_element_array
+		return if not supported?(1.5)
+
+		glEnableClientState(GL_VERTEX_ARRAY)
+		va = [0,0, 0,1, 1,1].pack("f*")
+		glVertexPointer(2,GL_FLOAT,0,va)
+
+		#
+		data = [0,1,2].pack("C*")
+		buffers = glGenBuffers(1)
+		glBindBuffer(GL_ELEMENT_ARRAY_BUFFER,buffers[0])
+		glBufferData(GL_ELEMENT_ARRAY_BUFFER,3,data,GL_DYNAMIC_DRAW)
+
+		#
+		feedback = glFeedbackBuffer(256,GL_3D)
+		glRenderMode(GL_FEEDBACK)
+
+		glDrawElements(GL_TRIANGLES,3,GL_UNSIGNED_BYTE,0)
+		glDrawRangeElements(GL_TRIANGLES,0,3,3,GL_UNSIGNED_BYTE,0)
+
+		count = glRenderMode(GL_RENDER)
+		assert_equal(count,22)
+
+		glDisableClientState(GL_VERTEX_ARRAY)
+		glDeleteBuffers(buffers)
+	end
+
+	def test_buffer_binding_array_1
+		return if not supported?(1.5)
+
+		glEnableClientState(GL_VERTEX_ARRAY)
+		va = [0,0, 0,1, 1,1].pack("f*")
+
+		#
+		buffers = glGenBuffers(1)
+		glBindBuffer(GL_ARRAY_BUFFER,buffers[0])
+		glBufferData(GL_ARRAY_BUFFER,6*4,va,GL_DYNAMIC_DRAW)
+
+		glVertexPointer(2,GL_FLOAT,0,0)
+		assert_equal(glGetPointerv(GL_VERTEX_ARRAY_POINTER),0)
+		#
+		feedback = glFeedbackBuffer(256,GL_3D)
+		glRenderMode(GL_FEEDBACK)
+
+		glDrawElements(GL_TRIANGLES,3,GL_UNSIGNED_BYTE,[0,1,2].pack("f*"))
+
+		count = glRenderMode(GL_RENDER)
+		assert_equal(count,11)
+		
+		glDeleteBuffers(buffers)
+		glDisableClientState(GL_VERTEX_ARRAY)
+	end
+
+	def test_buffer_binding_array_2
+		return if not supported?(1.5)
+
+		efa = [0].pack("C*")
+		na = [0,1,0].pack("f*")
+		ca = [1,0,1,0].pack("f*")
+		ta = [1,0,1,0].pack("f*")
+
+		buffers = glGenBuffers(4)
+		# load data into buffers
+		buffer_efa,buffer_na,buffer_ca,buffer_ta = buffers
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_efa)
+		glBufferData(GL_ARRAY_BUFFER,1,efa,GL_DYNAMIC_DRAW)
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_na)
+		glBufferData(GL_ARRAY_BUFFER,3*4,na,GL_DYNAMIC_DRAW)
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_ca)
+		glBufferData(GL_ARRAY_BUFFER,4*4,ca,GL_DYNAMIC_DRAW)
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_ta)
+		glBufferData(GL_ARRAY_BUFFER,4*4,ta,GL_DYNAMIC_DRAW)
+
+		# load buffers into arrays
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_na)
+		glEdgeFlagPointer(0,0)
+		assert_equal(glGetPointerv(GL_EDGE_FLAG_ARRAY_POINTER),0)
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_na)
+		glNormalPointer(GL_FLOAT,0,0)
+		assert_equal(glGetPointerv(GL_NORMAL_ARRAY_POINTER),0)
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_ca)
+		glColorPointer(4,GL_FLOAT,0,0)
+		assert_equal(glGetPointerv(GL_COLOR_ARRAY_POINTER),0)
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_ta)
+		glTexCoordPointer(4,GL_FLOAT,0,0)
+		assert_equal(glGetPointerv(GL_TEXTURE_COORD_ARRAY_POINTER),0)
+
+		# not really testing index
+		glIndexPointer(GL_INT,2,0)
+		assert_equal(glGetPointerv(GL_INDEX_ARRAY_POINTER),0)
+
+		# draw arrays
+		glEnable(GL_NORMAL_ARRAY)
+		glEnable(GL_COLOR_ARRAY)
+		glEnable(GL_TEXTURE_COORD_ARRAY)
+		glEnable(GL_EDGE_FLAG_ARRAY)
+
+		glBegin(GL_TRIANGLES)
+		glArrayElement(0)
+		glEnd()
+
+		assert_equal(glGetDoublev(GL_CURRENT_NORMAL),[0,1,0])
+		assert_equal(glGetDoublev(GL_CURRENT_COLOR),[1,0,1,0])
+		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,0,1,0])
+		assert_equal(glGetBooleanv(GL_EDGE_FLAG),GL_FALSE)
+
+		glDisable(GL_EDGE_FLAG_ARRAY)
+		glDisable(GL_TEXTURE_COORD_ARRAY)
+		glDisable(GL_COLOR_ARRAY)
+		glDisable(GL_NORMAL_ARRAY)
+
+		glDeleteBuffers(buffers)
+	end
+
+	def test_buffer_binding_array_3
+		return if not supported?(1.5)
+
+		sc = [0,1,0].pack("f*")
+		fc = [1].pack("f*")
+
+		buffers = glGenBuffers(2)
+		# load data into buffers
+		buffer_sc,buffer_fc = buffers
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_sc)
+		glBufferData(GL_ARRAY_BUFFER,3*4,sc,GL_DYNAMIC_DRAW)
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_fc)
+		glBufferData(GL_ARRAY_BUFFER,1*4,fc,GL_DYNAMIC_DRAW)
+
+		# load buffers into arrays
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_sc)
+		glSecondaryColorPointer(3,GL_FLOAT,0,0)
+		assert_equal(glGetPointerv(GL_SECONDARY_COLOR_ARRAY_POINTER),0)
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffer_fc)
+		glFogCoordPointer(GL_FLOAT,0,0)
+		assert_equal(glGetPointerv(GL_FOG_COORD_ARRAY_POINTER),0)
+
+		# draw arrays
+		glEnableClientState(GL_SECONDARY_COLOR_ARRAY)
+		glEnableClientState(GL_FOG_COORD_ARRAY)
+
+		glBegin(GL_TRIANGLES)
+		glArrayElement(0)
+		glEnd()
+
+		assert_equal(glGetDoublev(GL_CURRENT_SECONDARY_COLOR),[0,1,0,1])
+		assert_equal(glGetDoublev(GL_CURRENT_FOG_COORD),1)
+
+		glDisableClientState(GL_SECONDARY_COLOR_ARRAY)
+		glDisableClientState(GL_FOG_COORD_ARRAY)
+		
+		glDeleteBuffers(buffers)
+	end
+
+	def test_buffer_binding_array_4
+		return if not supported?(1.5)
+		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)
+
+		data = [0,1,2,3,4,5]
+		buffers = glGenBuffers(3)
+		glBindBuffer(GL_ELEMENT_ARRAY_BUFFER,buffers[0])
+		glBufferData(GL_ELEMENT_ARRAY_BUFFER,6,data.pack("C*"),GL_DYNAMIC_DRAW)
+
+		glMultiDrawElements(GL_TRIANGLES,GL_UNSIGNED_BYTE,[3,3],[0,3])
+
+		count = glRenderMode(GL_RENDER)
+		assert_equal(count,(3*3+2)*2)
+
+		glDisable(GL_VERTEX_ARRAY)
+		glDeleteBuffers(buffers)
+	end
+
+end

data/test/tc_func_20.rb

@@ -0,0 +1,346 @@
+#
+# 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_20 < Test::Unit::TestCase
+	def setup
+		common_setup()
+	end
+
+	def teardown
+		common_teardown()
+	end
+
+	def test_glblendequationseparate
+		return if not supported?(2.0)
+		glBlendEquationSeparate(GL_MIN,GL_MAX)
+		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_RGB),GL_MIN)
+		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_ALPHA),GL_MAX)
+		glBlendEquationSeparate(GL_MAX,GL_MIN)
+		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_RGB),GL_MAX)
+		assert_equal(glGetIntegerv(GL_BLEND_EQUATION_ALPHA),GL_MIN)
+	end
+
+	def test_stencilops
+		return if not supported?(2.0)
+
+		glStencilOpSeparate(GL_FRONT, GL_ZERO, GL_INCR, GL_DECR)
+		assert_equal(glGetIntegerv(GL_STENCIL_FAIL), GL_ZERO)
+		assert_equal(glGetIntegerv(GL_STENCIL_PASS_DEPTH_FAIL), GL_INCR)
+		assert_equal(glGetIntegerv(GL_STENCIL_PASS_DEPTH_PASS), GL_DECR)
+		glStencilOpSeparate(GL_FRONT, GL_INCR, GL_DECR, GL_ZERO)
+		assert_equal(glGetIntegerv(GL_STENCIL_FAIL), GL_INCR)
+		assert_equal(glGetIntegerv(GL_STENCIL_PASS_DEPTH_FAIL), GL_DECR)
+		assert_equal(glGetIntegerv(GL_STENCIL_PASS_DEPTH_PASS), GL_ZERO)
+
+		glStencilFuncSeparate(GL_FRONT, GL_LEQUAL, 1, 0)
+		assert_equal(glGetIntegerv(GL_STENCIL_FUNC),GL_LEQUAL)
+		assert_equal(glGetIntegerv(GL_STENCIL_REF),1)
+		assert_equal(glGetIntegerv(GL_STENCIL_VALUE_MASK),0)
+		glStencilFuncSeparate(GL_FRONT, GL_GEQUAL, 0, 1)
+		assert_equal(glGetIntegerv(GL_STENCIL_FUNC),GL_GEQUAL)
+		assert_equal(glGetIntegerv(GL_STENCIL_REF),0)
+		assert_equal(glGetIntegerv(GL_STENCIL_VALUE_MASK),1)
+
+		glStencilMaskSeparate(GL_FRONT,1)
+		assert_equal(glGetIntegerv( GL_STENCIL_WRITEMASK),1)
+		glStencilMaskSeparate(GL_FRONT,0)
+		assert_equal(glGetIntegerv(GL_STENCIL_WRITEMASK),0)
+	end
+
+	def test_gldrawbuf
+		return if not supported?(2.0)
+		glDrawBuffers([GL_FRONT_LEFT,GL_BACK_LEFT])
+		assert_equal(glGetIntegerv(GL_DRAW_BUFFER0),GL_FRONT_LEFT)
+		assert_equal(glGetIntegerv(GL_DRAW_BUFFER1),GL_BACK_LEFT)
+	end
+
+	def test_glvertexattrib
+		return if not supported?(2.0)
+		# 1
+		glVertexAttrib1d(1,2.0)
+		assert_equal(glGetVertexAttribdv(1,GL_CURRENT_VERTEX_ATTRIB), [2.0,0.0,0.0,1.0])
+		glVertexAttrib1dv(1,[3.0])
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [3.0,0.0,0.0,1.0])
+		glVertexAttrib1f(1,2.0)
+		assert_equal(glGetVertexAttribiv(1,GL_CURRENT_VERTEX_ATTRIB), [2,0,0,1])
+		glVertexAttrib1fv(1,[3.0])
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [3.0,0.0,0.0,1.0])
+		glVertexAttrib1s(1,2)
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [2.0,0.0,0.0,1.0])
+		glVertexAttrib1sv(1,[3])
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [3.0,0.0,0.0,1.0])
+		# 2
+		glVertexAttrib2d(1,2.0,2.0)
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [2.0,2.0,0.0,1.0])
+		glVertexAttrib2dv(1,[3.0,3.0])
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [3.0,3.0,0.0,1.0])
+		glVertexAttrib2f(1,2.0,2.0)
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [2.0,2.0,0.0,1.0])
+		glVertexAttrib2fv(1,[3.0,3.0])
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [3.0,3.0,0.0,1.0])
+		glVertexAttrib2s(1,2,2)
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [2.0,2.0,0.0,1.0])
+		glVertexAttrib2sv(1,[3,3])
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [3.0,3.0,0.0,1.0])
+		# 3
+		glVertexAttrib3d(1,2.0,2.0,2.0)
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [2.0,2.0,2.0,1.0])
+		glVertexAttrib3dv(1,[3.0,3.0,3.0])
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [3.0,3.0,3.0,1.0])
+		glVertexAttrib3f(1,2.0,2.0,2.0)
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [2.0,2.0,2.0,1.0])
+		glVertexAttrib3fv(1,[3.0,3.0,3.0])
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [3.0,3.0,3.0,1.0])
+		glVertexAttrib3s(1,2,2,2)
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [2.0,2.0,2.0,1.0])
+		glVertexAttrib3sv(1,[3,3,3])
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [3.0,3.0,3.0,1.0])
+		# 4N
+		glVertexAttrib4Nbv(1,[2**7-1,2**7-1,2**7-1,2**7-1])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [1,1,1,1]))
+		glVertexAttrib4Niv(1,[0,0,0,0])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [0,0,0,0]))
+		glVertexAttrib4Nsv(1,[2**15-1,2**15-1,2**15-1,2**15-1])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [1,1,1,1]))
+		glVertexAttrib4Nub(1,0,0,0,0)
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [0,0,0,0]))
+		glVertexAttrib4Nubv(1,[2**8-1,2**8-1,2**8-1,2**8-1])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [1,1,1,1]))
+		glVertexAttrib4Nuiv(1,[0,0,0,0])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [0,0,0,0]))
+		glVertexAttrib4Nusv(1,[2**16-1,2**16-1,2**16-1,2**16-1])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [1,1,1,1]))
+		# 4
+		glVertexAttrib4bv(1,[0,0,0,0])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [0,0,0,0]))
+		glVertexAttrib4d(1,1,1,1,1)
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [1,1,1,1]))
+		glVertexAttrib4dv(1,[0,0,0,0])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [0,0,0,0]))
+		glVertexAttrib4f(1,1,1,1,1)
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [1,1,1,1]))
+		glVertexAttrib4fv(1,[0,0,0,0])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [0,0,0,0]))
+		glVertexAttrib4iv(1,[1,1,1,1])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [1,1,1,1]))
+		glVertexAttrib4s(1,0,0,0,0)
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [0,0,0,0]))
+		glVertexAttrib4sv(1,[1,1,1,1])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [1,1,1,1]))
+		glVertexAttrib4ubv(1,[0,0,0,0])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [0,0,0,0]))
+		glVertexAttrib4uiv(1,[1,1,1,1])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [1,1,1,1]))
+		glVertexAttrib4usv(1,[0,0,0,0])
+		assert(approx_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB), [0,0,0,0]))
+	end
+
+	def test_vertexattribpointer
+		return if not supported?(2.0)
+		
+		vaa = [1,1,1,1, 2,2,2,2].pack("f*")
+		glVertexAttribPointer(1,4,GL_FLOAT,GL_FALSE,0,vaa)
+		assert_equal(glGetVertexAttribPointerv(1),vaa)
+
+		glEnableVertexAttribArray(1)
+
+		glBegin(GL_POINTS)
+		glArrayElement(1)
+		glEnd()
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB),[2,2,2,2])
+		
+		glDisableVertexAttribArray(1)
+	end
+
+	def test_shaders
+		return if not supported?(2.0)
+
+		vertex_shader_source = "void main() { gl_Position = ftransform();}"
+	
+		program = glCreateProgram()
+		assert_equal(glIsProgram(program),true)
+
+		vs = glCreateShader(GL_VERTEX_SHADER)
+		assert_equal(glIsShader(vs),true)
+
+		glShaderSource(vs,vertex_shader_source)
+		assert_equal(glGetShaderSource(vs),vertex_shader_source)
+
+		assert_equal(glGetShaderiv(vs, GL_SHADER_TYPE),GL_VERTEX_SHADER)
+		glCompileShader(vs)
+		assert_equal(glGetShaderiv(vs,GL_COMPILE_STATUS),GL_TRUE)
+
+		vslog = glGetShaderInfoLog(vs)
+		assert_equal(vslog.class,String)
+
+		glAttachShader(program,vs)
+		assert_equal(glGetAttachedShaders(program),vs)
+		glDetachShader(program,vs)
+		assert_equal(glGetAttachedShaders(program),nil)
+		glAttachShader(program,vs)
+
+		glValidateProgram(program)
+		assert_equal(glGetProgramiv(program,GL_VALIDATE_STATUS),GL_TRUE)
+		prlog = glGetProgramInfoLog(program)
+		assert_equal(prlog.class,String)
+
+		glLinkProgram(program)
+		assert_equal(glGetProgramiv(program,GL_LINK_STATUS),GL_TRUE)
+	
+		glUseProgram(program)
+		assert_equal(glGetIntegerv(GL_CURRENT_PROGRAM),program)
+
+		glUseProgram(0)
+
+		glDetachShader(program,vs)
+		glDeleteShader(vs)
+		assert_equal(glIsShader(vs),false)
+
+		glDeleteProgram(program)
+		assert_equal(glIsProgram(program),false)
+	end
+
+	def test_shaders_2
+		return if not supported?(2.0)
+
+		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 = glCreateProgram()
+		vs = glCreateShader(GL_VERTEX_SHADER)
+
+		glShaderSource(vs,vertex_shader_source)
+		glCompileShader(vs)
+
+		assert_equal(glGetShaderiv(vs,GL_COMPILE_STATUS),GL_TRUE)
+		glAttachShader(program,vs)
+		
+		glBindAttribLocation(program,2,"test")
+		glLinkProgram(program)	
+		assert_equal(glGetProgramiv(program,GL_LINK_STATUS),GL_TRUE)
+		glUseProgram(program)
+	
+		assert_equal(glGetAttribLocation(program,"test"),2)
+		assert((tv1l = glGetUniformLocation(program,"testvec1"))>=0)
+		assert((tv2l = glGetUniformLocation(program,"testvec2"))>=0)
+		assert((tv3l = glGetUniformLocation(program,"testvec3"))>=0)
+		assert((tv4l = glGetUniformLocation(program,"testvec4"))>=0)
+		assert((tv1il = glGetUniformLocation(program,"testivec1"))>=0)
+		assert((tv2il = glGetUniformLocation(program,"testivec2"))>=0)
+		assert((tv3il = glGetUniformLocation(program,"testivec3"))>=0)
+		assert((tv4il = glGetUniformLocation(program,"testivec4"))>=0)
+
+		##
+		assert_equal(glGetActiveAttrib(program,0),[1,GL_FLOAT_VEC4,"test"])
+		assert_equal(glGetActiveUniform(program,tv1il),[1,GL_INT,"testivec1"])
+
+		# f
+		glUniform1f(tv1l,2.0)
+		assert_equal(glGetUniformfv(program,tv1l),2.0)
+		glUniform2f(tv2l,2.0,2.0)
+		assert_equal(glGetUniformfv(program,tv2l),[2.0,2.0])
+		glUniform3f(tv3l,2.0,2.0,2.0)
+		assert_equal(glGetUniformfv(program,tv3l),[2.0,2.0,2.0])
+		glUniform4f(tv4l,2.0,2.0,2.0,2.0)
+		assert_equal(glGetUniformfv(program,tv4l),[2.0,2.0,2.0,2.0])
+		# i 
+		glUniform1i(tv1il,3)
+		assert_equal(glGetUniformiv(program,tv1il),3)
+		glUniform2i(tv2il,3,3)
+		assert_equal(glGetUniformiv(program,tv2il),[3,3])
+		glUniform3i(tv3il,3,3,3)
+		assert_equal(glGetUniformiv(program,tv3il),[3,3,3])
+		glUniform4i(tv4il,3,3,3,3)
+		assert_equal(glGetUniformiv(program,tv4il),[3,3,3,3])
+		# fv
+		glUniform1fv(tv1l,[3.0])
+		assert_equal(glGetUniformfv(program,tv1l),3.0)
+		glUniform2fv(tv2l,[3.0,3.0])
+		assert_equal(glGetUniformfv(program,tv2l),[3.0,3.0])
+		glUniform3fv(tv3l,[3.0,3.0,3.0])
+		assert_equal(glGetUniformfv(program,tv3l),[3.0,3.0,3.0])
+		glUniform4fv(tv4l,[3.0,3.0,3.0,3.0])
+		assert_equal(glGetUniformfv(program,tv4l),[3.0,3.0,3.0,3.0])
+		# iv
+		glUniform1iv(tv1il,[2])
+		assert_equal(glGetUniformiv(program,tv1il),2)
+		glUniform2iv(tv2il,[2,2])
+		assert_equal(glGetUniformiv(program,tv2il),[2,2])
+		glUniform3iv(tv3il,[2,2,2])
+		assert_equal(glGetUniformiv(program,tv3il),[2,2,2])
+		glUniform4iv(tv4il,[2,2,2,2])
+		assert_equal(glGetUniformiv(program,tv4il),[2,2,2,2])
+
+		glDeleteShader(vs)
+		glDeleteProgram(program)
+	end
+
+	def test_shaders_3
+		return if not supported?(2.0)
+
+		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 = glCreateProgram()
+		vs = glCreateShader(GL_VERTEX_SHADER)
+
+		glShaderSource(vs,vertex_shader_source)
+		glCompileShader(vs)
+
+		assert_equal(glGetShaderiv(vs,GL_COMPILE_STATUS),GL_TRUE)
+		glAttachShader(program,vs)
+	
+		glLinkProgram(program)	
+		assert_equal(glGetProgramiv(program,GL_LINK_STATUS),GL_TRUE)
+		glUseProgram(program)
+		#
+		assert((tm2l = glGetUniformLocation(program,"testmat2"))>=0)
+		assert((tm3l = glGetUniformLocation(program,"testmat3"))>=0)
+		assert((tm4l = glGetUniformLocation(program,"testmat4"))>=0)
+
+		glUniformMatrix2fv(tm2l, GL_TRUE, [0,1, 1,0])
+		assert_equal(glGetUniformfv(program,tm2l),[0,1,1,0])
+
+		glUniformMatrix3fv(tm3l, GL_TRUE, [0,1,0, 1,0,1, 0,1,0])
+		assert_equal(glGetUniformfv(program,tm3l),[0,1,0, 1,0,1, 0,1,0])
+
+		glUniformMatrix4fv(tm4l, GL_TRUE, [0,1,0,1, 1,0,1,0, 0,1,0,1, 1,0,1,0])
+		assert_equal(glGetUniformfv(program,tm4l),[0,1,0,1, 1,0,1,0, 0,1,0,1, 1,0,1,0])
+	end
+
+
+	def test_buffered_vertexattribpointer
+		return if not supported?(2.0)
+
+		vaa = [1,1,1,1, 2,2,2,2].pack("f*")
+
+		buffers = glGenBuffers(1)
+
+		glBindBuffer(GL_ARRAY_BUFFER,buffers[0])
+		glBufferData(GL_ARRAY_BUFFER,8*4,vaa,GL_DYNAMIC_DRAW)
+		
+		glVertexAttribPointer(1,4,GL_FLOAT,GL_FALSE,0,0)
+		assert_equal(glGetVertexAttribPointerv(1),0)
+		
+		glEnableVertexAttribArray(1)
+		
+		glBegin(GL_POINTS)
+		glArrayElement(1)
+		glEnd()
+		assert_equal(glGetVertexAttribfv(1,GL_CURRENT_VERTEX_ATTRIB),[2,2,2,2])
+		
+		glDisableVertexAttribArray(1)
+		glDeleteBuffers(buffers)
+	end
+end