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

data/test/test_gl_15.rb

@@ -0,0 +1,260 @@
+#
+# 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 'opengl/test_case'
+
+class TestGl15 < OpenGL::TestCase
+
+  def setup
+    super
+
+    supported? 1.5
+  end
+
+  def test_query
+    queries = glGenQueries 2
+    assert_equal 2, queries.length
+
+    glBeginQuery GL_SAMPLES_PASSED, queries[1]
+    assert glIsQuery(queries[1])
+
+    glBegin GL_TRIANGLES do
+      glVertex2i 0, 0
+      glVertex2i 1, 0
+      glVertex2i 1, 1
+    end
+
+    assert_equal queries[1], glGetQueryiv(GL_SAMPLES_PASSED, GL_CURRENT_QUERY)
+
+    glEndQuery GL_SAMPLES_PASSED
+
+    r = glGetQueryObjectiv queries[1], GL_QUERY_RESULT_AVAILABLE
+    assert(r == GL_TRUE || r == GL_FALSE)
+
+    if r == GL_TRUE
+      assert_operator 0, :<=, glGetQueryObjectiv(queries[1], GL_QUERY_RESULT)[0]
+      assert_operator 0, :<=, glGetQueryObjectuiv(queries[1], GL_QUERY_RESULT)[0]
+    end
+
+    glDeleteQueries queries
+    refute glIsQuery queries[1]
+  end
+
+  def test_buffers
+    buffers = glGenBuffers(2)
+    glBindBuffer(GL_ARRAY_BUFFER, buffers[0])
+    assert glIsBuffer buffers[0]
+
+    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 data, glGetBufferSubData(GL_ARRAY_BUFFER, 0, 4)
+
+    assert_equal GL_STREAM_READ, glGetBufferParameteriv(GL_ARRAY_BUFFER, GL_BUFFER_USAGE)
+
+    glBufferSubData(GL_ARRAY_BUFFER, 0, 4, data2)
+    assert_equal data2, glGetBufferSubData(GL_ARRAY_BUFFER, 0, 4)
+
+    assert_equal data2, glMapBuffer(GL_ARRAY_BUFFER, GL_READ_ONLY)
+    r = glUnmapBuffer(GL_ARRAY_BUFFER)
+    assert(r == true || r == false)
+
+    glDeleteBuffers(buffers)		
+    refute glIsBuffer(buffers[0])
+
+    # FIXME: GetBufferPointerv not yet implemented
+  end
+
+  def test_buffer_binding_element_array
+    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 22, count
+
+    glDisableClientState(GL_VERTEX_ARRAY)
+    glDeleteBuffers(buffers)
+  end
+
+  def test_buffer_binding_array_1
+    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 0, glGetPointerv(GL_VERTEX_ARRAY_POINTER)
+    #
+    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 11, count
+
+    glDeleteBuffers(buffers)
+    glDisableClientState(GL_VERTEX_ARRAY)
+  end
+
+  def test_buffer_binding_array_2
+    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 0, glGetPointerv(GL_EDGE_FLAG_ARRAY_POINTER)
+
+    glBindBuffer(GL_ARRAY_BUFFER, buffer_na)
+    glNormalPointer(GL_FLOAT, 0, 0)
+    assert_equal 0, glGetPointerv(GL_NORMAL_ARRAY_POINTER)
+
+    glBindBuffer(GL_ARRAY_BUFFER, buffer_ca)
+    glColorPointer(4, GL_FLOAT, 0, 0)
+    assert_equal 0, glGetPointerv(GL_COLOR_ARRAY_POINTER)
+
+    glBindBuffer(GL_ARRAY_BUFFER, buffer_ta)
+    glTexCoordPointer(4, GL_FLOAT, 0, 0)
+    assert_equal 0, glGetPointerv(GL_TEXTURE_COORD_ARRAY_POINTER)
+
+    # not really testing index
+    glIndexPointer(GL_INT, 2, 0)
+    assert_equal 0, glGetPointerv(GL_INDEX_ARRAY_POINTER)
+
+    # draw arrays
+    glEnableClientState(GL_NORMAL_ARRAY)
+    glEnableClientState(GL_COLOR_ARRAY)
+    glEnableClientState(GL_TEXTURE_COORD_ARRAY)
+    glEnableClientState(GL_EDGE_FLAG_ARRAY)
+
+    glBegin(GL_TRIANGLES)
+    glArrayElement(0)
+    glEnd()
+
+    assert_equal [0, 1, 0],    glGetDoublev(GL_CURRENT_NORMAL)
+    assert_equal [1, 0, 1, 0], glGetDoublev(GL_CURRENT_COLOR)
+    assert_equal [1, 0, 1, 0], glGetDoublev(GL_CURRENT_TEXTURE_COORDS)
+
+    assert_equal GL_FALSE, glGetBooleanv(GL_EDGE_FLAG)
+
+    glDisableClientState(GL_EDGE_FLAG_ARRAY)
+    glDisableClientState(GL_TEXTURE_COORD_ARRAY)
+    glDisableClientState(GL_COLOR_ARRAY)
+    glDisableClientState(GL_NORMAL_ARRAY)
+
+    glDeleteBuffers(buffers)
+  end
+
+  def test_buffer_binding_array_3
+    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 0, glGetPointerv(GL_SECONDARY_COLOR_ARRAY_POINTER)
+
+    glBindBuffer(GL_ARRAY_BUFFER, buffer_fc)
+    glFogCoordPointer(GL_FLOAT, 0, 0)
+    assert_equal 0, glGetPointerv(GL_FOG_COORD_ARRAY_POINTER)
+
+    # draw arrays
+    glEnableClientState(GL_SECONDARY_COLOR_ARRAY)
+    glEnableClientState(GL_FOG_COORD_ARRAY)
+
+    glBegin(GL_TRIANGLES)
+    glArrayElement(0)
+    glEnd()
+
+    assert_equal [0, 1, 0, 1], glGetDoublev(GL_CURRENT_SECONDARY_COLOR)
+    assert_equal 1, glGetDoublev(GL_CURRENT_FOG_COORD)
+
+    glDisableClientState(GL_SECONDARY_COLOR_ARRAY)
+    glDisableClientState(GL_FOG_COORD_ARRAY)
+
+    glDeleteBuffers(buffers)
+  end
+
+  def test_buffer_binding_array_4
+    va = [0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1].pack("f*")
+    glVertexPointer(2, GL_FLOAT, 0, va)
+
+    glEnableClientState(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 2 * (3 * 3 + 2), count
+
+    glDisableClientState(GL_VERTEX_ARRAY)
+    glDeleteBuffers(buffers)
+  end
+
+end

data/test/test_gl_20.rb

@@ -0,0 +1,430 @@
+#
+# 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 'opengl/test_case'
+
+class TestGl20 < OpenGL::TestCase
+
+  def setup
+    super
+
+    supported? 2.0
+  end
+
+  def test_glblendequationseparate
+    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
+    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
+    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
+    # 1
+    glVertexAttrib1d(1, 2.0)
+    assert_equal([2.0, 0.0, 0.0, 1.0], glGetVertexAttribdv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib1dv(1, [3.0])
+    assert_equal([3.0, 0.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib1f(1, 2.0)
+    assert_equal([2, 0, 0, 1], glGetVertexAttribiv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib1fv(1, [3.0])
+    assert_equal([3.0, 0.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib1s(1, 2)
+    assert_equal([2.0, 0.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib1sv(1, [3])
+    assert_equal([3.0, 0.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    # 2
+    glVertexAttrib2d(1, 2.0, 2.0)
+    assert_equal([2.0, 2.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib2dv(1, [3.0, 3.0])
+    assert_equal([3.0, 3.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib2f(1, 2.0, 2.0)
+    assert_equal([2.0, 2.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib2fv(1, [3.0, 3.0])
+    assert_equal([3.0, 3.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib2s(1, 2, 2)
+    assert_equal([2.0, 2.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib2sv(1, [3, 3])
+    assert_equal([3.0, 3.0, 0.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    # 3
+    glVertexAttrib3d(1, 2.0, 2.0, 2.0)
+    assert_equal([2.0, 2.0, 2.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib3dv(1, [3.0, 3.0, 3.0])
+    assert_equal([3.0, 3.0, 3.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib3f(1, 2.0, 2.0, 2.0)
+    assert_equal([2.0, 2.0, 2.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib3fv(1, [3.0, 3.0, 3.0])
+    assert_equal([3.0, 3.0, 3.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib3s(1, 2, 2, 2)
+    assert_equal([2.0, 2.0, 2.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib3sv(1, [3, 3, 3])
+    assert_equal([3.0, 3.0, 3.0, 1.0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    # 4N
+    glVertexAttrib4Nbv(1, [2**7-1, 2**7-1, 2**7-1, 2**7-1])
+    assert_each_in_delta([1, 1, 1, 1], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4Niv(1, [0, 0, 0, 0])
+    assert_each_in_delta([0, 0, 0, 0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4Nsv(1, [2**15-1, 2**15-1, 2**15-1, 2**15-1])
+    assert_each_in_delta([1, 1, 1, 1], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4Nub(1, 0, 0, 0, 0)
+    assert_each_in_delta([0, 0, 0, 0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4Nubv(1, [2**8-1, 2**8-1, 2**8-1, 2**8-1])
+    assert_each_in_delta([1, 1, 1, 1], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4Nuiv(1, [0, 0, 0, 0])
+    assert_each_in_delta([0, 0, 0, 0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4Nusv(1, [2**16-1, 2**16-1, 2**16-1, 2**16-1])
+    assert_each_in_delta([1, 1, 1, 1], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    # 4
+    glVertexAttrib4bv(1, [0, 0, 0, 0])
+    assert_each_in_delta([0, 0, 0, 0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4d(1, 1, 1, 1, 1)
+    assert_each_in_delta([1, 1, 1, 1], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4dv(1, [0, 0, 0, 0])
+    assert_each_in_delta([0, 0, 0, 0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4f(1, 1, 1, 1, 1)
+    assert_each_in_delta([1, 1, 1, 1], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4fv(1, [0, 0, 0, 0])
+    assert_each_in_delta([0, 0, 0, 0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4iv(1, [1, 1, 1, 1])
+    assert_each_in_delta([1, 1, 1, 1], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4s(1, 0, 0, 0, 0)
+    assert_each_in_delta([0, 0, 0, 0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4sv(1, [1, 1, 1, 1])
+    assert_each_in_delta([1, 1, 1, 1], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4ubv(1, [0, 0, 0, 0])
+    assert_each_in_delta([0, 0, 0, 0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4uiv(1, [1, 1, 1, 1])
+    assert_each_in_delta([1, 1, 1, 1], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+    glVertexAttrib4usv(1, [0, 0, 0, 0])
+    assert_each_in_delta([0, 0, 0, 0], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+  end
+
+  def test_vertexattribpointer
+    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([2, 2, 2, 2], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+
+    glDisableVertexAttribArray(1)
+  end
+
+  def test_shaders
+    vertex_shader_source = <<-SHADER
+#version 110
+
+void main() {
+  gl_Position = ftransform();
+}
+    SHADER
+
+    program = glCreateProgram
+    assert glIsProgram program
+
+    vs = glCreateShader GL_VERTEX_SHADER
+    assert glIsShader vs
+
+    glShaderSource vs, vertex_shader_source
+    assert_equal vertex_shader_source, glGetShaderSource(vs)
+    assert_equal GL_VERTEX_SHADER, glGetShaderiv(vs, GL_SHADER_TYPE)
+
+    glCompileShader vs
+    assert glGetShaderiv(vs, GL_COMPILE_STATUS)
+
+    vslog = glGetShaderInfoLog vs
+    assert_equal '', vslog
+
+    glAttachShader program, vs
+    assert_equal vs, glGetAttachedShaders(program)
+
+    glDetachShader program, vs
+    assert_nil glGetAttachedShaders program
+
+    glAttachShader program, vs
+
+    glLinkProgram program
+    assert glGetProgramiv(program, GL_LINK_STATUS)
+
+    glValidateProgram program
+    assert(glGetProgramiv(program, GL_VALIDATE_STATUS),
+           glGetProgramInfoLog(program))
+
+    prlog = glGetProgramInfoLog program
+    assert_equal '', prlog
+
+    glUseProgram program
+    assert_equal program, glGetIntegerv(GL_CURRENT_PROGRAM)
+
+    glUseProgram 0
+
+    glDetachShader program, vs
+    glDeleteShader vs
+    refute glIsShader vs
+
+    glDeleteProgram program
+    refute glIsProgram(program)
+  end
+
+  def test_shaders_2
+    vertex_shader_source = <<-SHADER
+#version 110
+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() {
+  testvec1;
+  testvec2;
+  testvec3;
+  testvec4;
+  testivec1;
+  testivec2;
+  testivec3;
+  testivec4;
+  gl_Position = ftransform();
+}
+    SHADER
+
+    program = glCreateProgram
+
+    vs = glCreateShader GL_VERTEX_SHADER
+
+    glShaderSource vs, vertex_shader_source
+    glCompileShader vs
+
+    assert glGetShaderiv(vs, GL_COMPILE_STATUS), glGetShaderInfoLog(vs)
+
+    glAttachShader program, vs
+
+    glBindAttribLocation program, 2, "test"
+    glLinkProgram program
+
+    glValidateProgram program
+    assert(glGetProgramiv(program, GL_VALIDATE_STATUS),
+           glGetProgramInfoLog(program))
+
+    assert glGetProgramiv(program, GL_LINK_STATUS)
+
+    glUseProgram program
+
+    test = glGetAttribLocation program, "test"
+    assert_equal -1, test
+
+    tv1l = glGetUniformLocation program, "testvec1"
+    refute_equal -1, tv1l, "testvec1 missing!"
+
+    tv2l = glGetUniformLocation program, "testvec2"
+    refute_equal -1, tv2l, "testvec2 missing!"
+
+    tv3l = glGetUniformLocation program, "testvec3"
+    refute_equal -1, tv3l, "testvec3 missing!"
+
+    tv4l = glGetUniformLocation program, "testvec4"
+    refute_equal -1, tv4l, "testvec4 missing!"
+
+    tv1il = glGetUniformLocation program, "testivec1"
+    refute_equal -1, tv1il, "testivec1 missing!"
+
+    tv2il = glGetUniformLocation program, "testivec2"
+    refute_equal -1, tv2il, "testivec2 missing!"
+
+    tv3il = glGetUniformLocation program, "testivec3"
+    refute_equal -1, tv3il, "testivec3 missing!"
+
+    tv4il = glGetUniformLocation program, "testivec4"
+    refute_equal -1, tv4il, "testivec4 missing!"
+
+    assert_equal [1, GL_FLOAT_VEC4, "gl_Vertex"], glGetActiveAttrib(program, 0)
+    assert_equal [1, GL_INT, "testivec1"], glGetActiveUniform(program, tv1il)
+
+    # f
+    glUniform1f(tv1l, 2.0)
+    assert_equal(glGetUniformfv(program, tv1l), 2.0)
+    glUniform2f(tv2l, 2.0, 2.0)
+    assert_equal([2.0, 2.0], glGetUniformfv(program, tv2l))
+    glUniform3f(tv3l, 2.0, 2.0, 2.0)
+    assert_equal([2.0, 2.0, 2.0], glGetUniformfv(program, tv3l))
+    glUniform4f(tv4l, 2.0, 2.0, 2.0, 2.0)
+    assert_equal([2.0, 2.0, 2.0, 2.0], glGetUniformfv(program, tv4l))
+    # i 
+    glUniform1i(tv1il, 3)
+    assert_equal(glGetUniformiv(program, tv1il), 3)
+    glUniform2i(tv2il, 3, 3)
+    assert_equal([3, 3], glGetUniformiv(program, tv2il))
+    glUniform3i(tv3il, 3, 3, 3)
+    assert_equal([3, 3, 3], glGetUniformiv(program, tv3il))
+    glUniform4i(tv4il, 3, 3, 3, 3)
+    assert_equal([3, 3, 3, 3], glGetUniformiv(program, tv4il))
+    # fv
+    glUniform1fv(tv1l, [3.0])
+    assert_equal(glGetUniformfv(program, tv1l), 3.0)
+    glUniform2fv(tv2l, [3.0, 3.0])
+    assert_equal([3.0, 3.0], glGetUniformfv(program, tv2l))
+    glUniform3fv(tv3l, [3.0, 3.0, 3.0])
+    assert_equal([3.0, 3.0, 3.0], glGetUniformfv(program, tv3l))
+    glUniform4fv(tv4l, [3.0, 3.0, 3.0, 3.0])
+    assert_equal([3.0, 3.0, 3.0, 3.0], glGetUniformfv(program, tv4l))
+    # iv
+    glUniform1iv(tv1il, [2])
+    assert_equal(glGetUniformiv(program, tv1il), 2)
+    glUniform2iv(tv2il, [2, 2])
+    assert_equal([2, 2], glGetUniformiv(program, tv2il))
+    glUniform3iv(tv3il, [2, 2, 2])
+    assert_equal([2, 2, 2], glGetUniformiv(program, tv3il))
+    glUniform4iv(tv4il, [2, 2, 2, 2])
+    assert_equal([2, 2, 2, 2], glGetUniformiv(program, tv4il))
+
+    glDeleteShader(vs)
+    glDeleteProgram(program)
+  end
+
+  def test_shaders_3
+    vertex_shader_source = <<-SHADER
+#version 110
+
+uniform mat2 testmat2;
+uniform mat3 testmat3;
+uniform mat4 testmat4;
+
+void main() {
+  testmat2;
+  testmat3;
+  testmat4;
+  gl_Position = ftransform();
+}
+    SHADER
+
+    program = glCreateProgram
+    vs = glCreateShader GL_VERTEX_SHADER
+
+    glShaderSource vs, vertex_shader_source
+    glCompileShader vs
+
+    assert glGetShaderiv(vs, GL_COMPILE_STATUS), glGetShaderInfoLog(vs)
+
+    glAttachShader program, vs
+
+    glLinkProgram program
+    assert glGetProgramiv(program, GL_LINK_STATUS)
+
+    glValidateProgram program
+    assert(glGetProgramiv(program, GL_VALIDATE_STATUS),
+           glGetProgramInfoLog(program))
+
+    glUseProgram program
+
+    refute_equal(-1, glGetUniformLocation(program, "testmat2"),
+                 "testmat2 missing!")
+    refute_equal(-1, glGetUniformLocation(program, "testmat3"),
+                 "testmat3 missing!")
+    refute_equal(-1, glGetUniformLocation(program, "testmat4"),
+                 "testmat4 missing!")
+
+    uniforms = Hash.new do |_, k| raise "invalid uniform #{k}" end
+    (0...glGetProgramiv(program, GL_ACTIVE_UNIFORMS)).each do |i|
+      uniform = glGetActiveUniform program, i
+      uniforms[uniform.last] = i
+    end
+
+    glUniformMatrix2fv(uniforms['testmat2'], GL_TRUE, [0, 1, 1, 0])
+
+    assert_each_in_delta([0, 1, 1, 0],
+                         glGetUniformfv(program, uniforms['testmat2']))
+
+    skip "glUniformMatrix3fv complains but I don't know why"
+    glUniformMatrix3fv(uniforms['testmat3'], GL_TRUE,
+                       [1, 1, 1, 1, 1, 1, 1, 1, 1])
+
+    assert_each_in_delta([1, 0, 0, 1, 0, 0, 0, 0, 0],
+                         glGetUniformfv(program, uniforms['testmat3']))
+
+    glUniformMatrix4fv(uniforms['testmat4'], GL_TRUE,
+                       [0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0])
+
+    assert_each_in_delta([0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0],
+                         glGetUniformfv(program, uniforms['testmat4']))
+  ensure
+    glDeleteProgram program
+  end
+
+  def test_buffered_vertexattribpointer
+    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([2, 2, 2, 2], glGetVertexAttribfv(1, GL_CURRENT_VERTEX_ATTRIB))
+
+    glDisableVertexAttribArray(1)
+    glDeleteBuffers(buffers)
+  end
+
+end
+