opengl 0.8.0-x86-mingw32 → 0.9.0-x86-mingw32

data/test/test_gl_12.rb

@@ -17,19 +17,22 @@ require 'opengl/test_case'
 
 class TestGl12 < OpenGL::TestCase
 
+  def setup
+    super
+    supported? 1.2
+  end
+
   def test_glblend
-    supported?(1.2)
     glBlendColor(0.0, 1.0, 0.0, 1.0)
     assert_equal(glGetDoublev(GL_BLEND_COLOR), [0, 1, 0, 1])
 
     glBlendEquation(GL_MIN)
-    assert_equal(glGetIntegerv(GL_BLEND_EQUATION), GL_MIN)
+    assert_equal(GL_MIN, glGetIntegerv(GL_BLEND_EQUATION))
     glBlendEquation(GL_MAX)
-    assert_equal(glGetIntegerv(GL_BLEND_EQUATION), GL_MAX)
+    assert_equal(GL_MAX, glGetIntegerv(GL_BLEND_EQUATION))
   end
 
   def test_gldrawrangeelements
-    supported?(1.2)
     va = [0, 0, 0, 1, 1, 1].pack("f*")
     glVertexPointer(2, GL_FLOAT, 0, va)
 
@@ -40,124 +43,12 @@ class TestGl12 < OpenGL::TestCase
 
     glDrawRangeElements(GL_POINTS, 0, 2, 3, GL_UNSIGNED_BYTE, [0, 1, 2].pack("C*"))
     count = glRenderMode(GL_RENDER)
-    assert_equal(count, 12)
+    assert_equal(12, count)
 
     glDisableClientState(GL_VERTEX_ARRAY)
   end
 
-  def test_colortable
-    supported?(1.2)
-
-    ct = ([0]*3+[1]*3+[0]*3+[1]*3).pack("f*")
-    ct2 = ([1]*3+[0]*3+[1]*3+[0]*3).pack("f*")
-    glColorTable(GL_COLOR_TABLE, GL_RGB8, 4, GL_RGB, GL_FLOAT, ct)
-    assert_equal(glGetColorTable(GL_COLOR_TABLE, GL_RGB, GL_FLOAT), ct)
-
-    glColorSubTable(GL_COLOR_TABLE, 0, 4, GL_RGB, GL_FLOAT, ct2)
-    assert_equal(glGetColorTable(GL_COLOR_TABLE, GL_RGB, GL_FLOAT), ct2)
-
-    glDrawPixels(4, 1, GL_RGB, GL_FLOAT, ct)
-    glCopyColorTable(GL_COLOR_TABLE, GL_RGB8, 0, 0, 4)
-    assert_equal(glGetColorTable(GL_COLOR_TABLE, GL_RGB, GL_FLOAT), ct)
-
-    glDrawPixels(4, 1, GL_RGB, GL_FLOAT, ct2)
-    glCopyColorSubTable(GL_COLOR_TABLE, 0, 0, 0, 4)
-    assert_equal(glGetColorTable(GL_COLOR_TABLE, GL_RGB, GL_FLOAT), ct2)
-
-    glColorTableParameterfv(GL_COLOR_TABLE, GL_COLOR_TABLE_BIAS, [0, 1, 0, 1])
-    assert_equal(glGetColorTableParameterfv(GL_COLOR_TABLE, GL_COLOR_TABLE_BIAS), [0, 1, 0, 1])
-
-    glColorTableParameteriv(GL_COLOR_TABLE, GL_COLOR_TABLE_BIAS, [1, 0, 1, 0])
-    assert_equal(glGetColorTableParameteriv(GL_COLOR_TABLE, GL_COLOR_TABLE_BIAS), [1, 0, 1, 0])
-  end
-
-  def test_convolutionfilter
-    supported?(1.2)
-
-    cf = ([0]*3+[1]*3+[0]*3+[1]*3).pack("f*")
-    cf2 = ([1]*3+[0]*3+[1]*3+[0]*3).pack("f*")
-    glConvolutionFilter1D(GL_CONVOLUTION_1D, GL_RGB8, 4, GL_RGB, GL_FLOAT,cf)
-    assert_equal(glGetConvolutionFilter(GL_CONVOLUTION_1D, GL_RGB, GL_FLOAT),cf)
-
-    glConvolutionFilter2D(GL_CONVOLUTION_2D, GL_RGB8, 2,2, GL_RGB, GL_FLOAT,cf2)
-    assert_equal(glGetConvolutionFilter(GL_CONVOLUTION_2D, GL_RGB, GL_FLOAT),cf2)
-
-    glDrawPixels(4,1,GL_RGB,GL_FLOAT,cf2)
-    glCopyConvolutionFilter1D(GL_CONVOLUTION_1D,GL_RGB8,0,0,4)
-    assert_equal(glGetConvolutionFilter(GL_CONVOLUTION_1D, GL_RGB, GL_FLOAT),cf2)
-
-    glDrawPixels(2,2,GL_RGB,GL_FLOAT,cf)
-    glCopyConvolutionFilter2D(GL_CONVOLUTION_2D,GL_RGB8,0,0,2,2)
-    assert_equal(glGetConvolutionFilter(GL_CONVOLUTION_2D, GL_RGB, GL_FLOAT),cf)
-
-    glConvolutionParameterf(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE,GL_CONSTANT_BORDER)
-    assert_equal(glGetConvolutionParameterfv(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE),GL_CONSTANT_BORDER)
-
-    glConvolutionParameterf(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE,GL_REPLICATE_BORDER)
-    assert_equal(glGetConvolutionParameterfv(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE),GL_REPLICATE_BORDER)
-
-    glConvolutionParameterfv(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE,[GL_CONSTANT_BORDER])
-    assert_equal(glGetConvolutionParameterfv(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE),GL_CONSTANT_BORDER)
-
-    glConvolutionParameteri(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE,GL_REPLICATE_BORDER)
-    assert_equal(glGetConvolutionParameteriv(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE),GL_REPLICATE_BORDER)
-
-    glConvolutionParameteriv(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE,[GL_CONSTANT_BORDER])
-    assert_equal(glGetConvolutionParameteriv(GL_CONVOLUTION_1D,GL_CONVOLUTION_BORDER_MODE),GL_CONSTANT_BORDER)
-  end
-
-  def test_separablefilter
-    supported?(1.2)
-    sf_a = ([0]*3+[1]*3).pack("f*")
-    sf_b = ([1]*3+[0]*3).pack("f*")
-
-    glSeparableFilter2D(GL_SEPARABLE_2D, GL_RGB8, 2, 2, GL_RGB, GL_FLOAT, sf_a, sf_b)
-    assert_equal(glGetSeparableFilter(GL_SEPARABLE_2D, GL_RGB, GL_FLOAT), [sf_a, sf_b])
-  end
-
-  def test_histogram
-    supported?(1.2)
-
-    glEnable(GL_HISTOGRAM)
-
-    glHistogram(GL_HISTOGRAM, 1, GL_RGB, GL_FALSE)
-    assert_equal(glGetHistogramParameterfv(GL_HISTOGRAM, GL_HISTOGRAM_WIDTH), 1)
-    assert_equal(glGetHistogramParameteriv(GL_HISTOGRAM, GL_HISTOGRAM_FORMAT), GL_RGB)
-    assert_equal(glGetHistogramParameteriv(GL_HISTOGRAM, GL_HISTOGRAM_SINK), GL_FALSE)
-
-    glDrawPixels(2, 1, GL_RGB, GL_FLOAT, [1, 1, 1, 1, 1, 1].pack("f*"))
-    h = glGetHistogram(GL_HISTOGRAM, GL_FALSE, GL_RGB, GL_FLOAT)
-    assert_equal(h.unpack("f*"), [2, 2, 2])
-    glResetHistogram(GL_HISTOGRAM)
-    h = glGetHistogram(GL_HISTOGRAM, GL_FALSE, GL_RGB, GL_FLOAT)
-    assert_equal(h.unpack("f*"), [0, 0, 0])
-
-    glDisable(GL_HISTOGRAM)
-  end
-
-  def test_minmax
-    supported?(1.2)
-
-    glEnable(GL_MINMAX)
-
-    glMinmax(GL_MINMAX, GL_RGB, GL_FALSE)
-    assert_equal(glGetMinmaxParameteriv(GL_MINMAX, GL_MINMAX_FORMAT), GL_RGB)
-    assert_equal(glGetMinmaxParameterfv(GL_MINMAX, GL_MINMAX_FORMAT), GL_RGB)
-    assert_equal(glGetMinmaxParameteriv(GL_MINMAX, GL_MINMAX_SINK), GL_FALSE)
-
-    glDrawPixels(2, 1, GL_RGB, GL_FLOAT, [0, 0, 0, 1, 1, 1].pack("f*"))
-    mm = glGetMinmax(GL_MINMAX, GL_FALSE, GL_RGB, GL_FLOAT)
-    assert_each_in_delta [0, 0, 0, 1, 1, 1], mm.unpack("f*")
-
-    glResetMinmax(GL_MINMAX)
-    mm = glGetMinmax(GL_MINMAX, GL_FALSE, GL_RGB, GL_UNSIGNED_BYTE)
-    assert_equal [-1, -1, -1, 0, 0, 0], mm.unpack("c*")
-
-    glDisable(GL_MINMAX)
-  end
-
   def test_texture_3D
-    supported?(1.2)
     image = ([0, 0, 0, 1, 1, 1] * 2 * 2).pack("f*")
     image2 = ([1, 1, 1, 0, 0, 0] * 2 * 2).pack("f*")
 
@@ -165,18 +56,16 @@ class TestGl12 < OpenGL::TestCase
     glBindTexture(GL_TEXTURE_3D, textures[0])
 
     glTexImage3D(GL_TEXTURE_3D, 0, GL_RGB8, 2, 2, 2, 0, GL_RGB, GL_FLOAT, image)
-    assert_equal(glGetTexImage(GL_TEXTURE_3D, 0, GL_RGB, GL_FLOAT), image)
+    assert_equal(image, glGetTexImage(GL_TEXTURE_3D, 0, GL_RGB, GL_FLOAT))
 
     glTexSubImage3D(GL_TEXTURE_3D, 0, 0, 0, 0, 2, 2, 2, GL_RGB, GL_FLOAT, image2)
-    assert_equal(glGetTexImage(GL_TEXTURE_3D, 0, GL_RGB, GL_FLOAT), image2)
+    assert_equal(image2, glGetTexImage(GL_TEXTURE_3D, 0, GL_RGB, GL_FLOAT))
 
     glDrawPixels(2, 2, GL_RGB, GL_FLOAT, image)
     glCopyTexSubImage3D(GL_TEXTURE_3D, 0, 0, 0, 0, 0, 0, 2, 2)
     ti = glGetTexImage(GL_TEXTURE_3D, 0, GL_RGB, GL_FLOAT).unpack("f*")
-    assert_equal(ti, ([0]*3 + [1]*3) * 2 + ([1]*3 + [0]*3) * 2)
+    assert_equal(([0]*3 + [1]*3) * 2 + ([1]*3 + [0]*3) * 2, ti)
 
     glDeleteTextures(textures)
   end
-
 end
-

data/test/test_gl_13.rb

@@ -16,214 +16,206 @@
 require 'opengl/test_case'
 
 class TestGl13 < OpenGL::TestCase
-	def setup
-		super()
-	end
-
-	def teardown
-		super()
-	end
-
-	def test_glsamplecoverage
-		supported?(1.3)
-		glSampleCoverage(0.0,GL_TRUE)
-		assert_equal(glGetDoublev(GL_SAMPLE_COVERAGE_VALUE),0.0)
-		assert_equal(glGetBooleanv(GL_SAMPLE_COVERAGE_INVERT),GL_TRUE)
-		glSampleCoverage(1.0,GL_FALSE)
-		assert_equal(glGetDoublev(GL_SAMPLE_COVERAGE_VALUE),1.0)
-		assert_equal(glGetBooleanv(GL_SAMPLE_COVERAGE_INVERT),GL_FALSE)
-	end
-
-	def test_multitexture
-		supported?(1.3)
-		glActiveTexture(GL_TEXTURE1)
-		glClientActiveTexture(GL_TEXTURE2)
-		assert_equal(glGetIntegerv(GL_ACTIVE_TEXTURE),GL_TEXTURE1)
-		assert_equal(glGetIntegerv(GL_CLIENT_ACTIVE_TEXTURE),GL_TEXTURE2)
-	end
-
-	def test_transposematrix
-		supported?(1.3)
-		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)
-		glLoadTransposeMatrixf(m_a)
-		assert_equal(glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX), m_a)
-
-		glLoadTransposeMatrixd(m_b)
-		assert_equal(glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX), m_b)
-
-		glLoadIdentity()
-		glMultTransposeMatrixf(m_a)
-		assert_equal(glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX), m_a)
-
-		glLoadIdentity()
-		glMultTransposeMatrixd(m_b)
-		assert_equal(glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX), 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)
-		glLoadTransposeMatrixf(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a.transpose)
-		glLoadIdentity()
-		glLoadTransposeMatrixd(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a.transpose)
-		glLoadIdentity()
-		glMultTransposeMatrixf(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a.transpose)
-		glLoadIdentity()
-		glMultTransposeMatrixd(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a.transpose)
-
-		assert_raises ArgumentError do glLoadTransposeMatrixf([1,2,3,4]) end
-		assert_raises ArgumentError do glLoadTransposeMatrixd([1,2,3,4]) end
-		assert_raises ArgumentError do glMultTransposeMatrixf([1,2,3,4]) end
-		assert_raises ArgumentError do glMultTransposeMatrixd([1,2,3,4]) end
-	end
-	
-	def test_texturecompression
-		supported?(1.3)
-		supported?("GL_EXT_texture_compression_s3tc")
-
-		# S3TC/DXT5 compressed 2x2 pixels stipple patterns [w,b,b,w] and [b,w,w,b]
-		image_1 = [0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,0x01,0x54,0x5C,0x5C].pack("C*")
-		image_2 = [0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,0x54,0x01,0x0D,0x0D].pack("C*")
-
-		textures = glGenTextures(3)
-		glBindTexture(GL_TEXTURE_1D,textures[0])
-		glBindTexture(GL_TEXTURE_2D,textures[1])
-		glBindTexture(GL_TEXTURE_3D,textures[2])
-
-		# Note: 1D and 3D compressed textures are not supported by S3TC/DXTn, and usually not supported at all
-
-		# 1D
-		begin 
-			glCompressedTexImage1D(GL_TEXTURE_1D,0,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,4,0,16,image_1)
-			assert_equal(glGetCompressedTexImage(GL_TEXTURE_1D,0), image_1)
-		rescue Gl::Error => err
-			assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
-		end
-
-		begin 
-			glCompressedTexSubImage1D(GL_TEXTURE_1D,0,0,4,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,16,image_2)
-			assert_equal(glGetCompressedTexImage(GL_TEXTURE_1D,0), image_2)
-		rescue Gl::Error => err
-			assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
-		end
-
-		# 2D
-		glCompressedTexImage2D(GL_TEXTURE_2D,0,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,2,2,0,16,image_1)
-		assert_equal(glGetCompressedTexImage(GL_TEXTURE_2D,0), image_1)
-
-		glCompressedTexSubImage2D(GL_TEXTURE_2D,0,0,0,2,2,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,16,image_2)
-		assert_equal(glGetCompressedTexImage(GL_TEXTURE_2D,0), image_2)
-
-		# 3D
-		begin 
-			glCompressedTexImage3D(GL_TEXTURE_3D,0,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,2,2,1,0,16,image_1)
-			assert_equal(glGetCompressedTexImage(GL_TEXTURE_3D,0), image_1)
-		rescue Gl::Error => err
-			assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
-		end
-
-		begin 
-			glCompressedTexSubImage3D(GL_TEXTURE_3D,0, 0,0,0, 2,2,1, GL_COMPRESSED_RGBA_S3TC_DXT5_EXT, 16, image_2)
-			assert_equal(glGetCompressedTexImage(GL_TEXTURE_3D,0), image_2)
-		rescue Gl::Error => err
-			assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
-		end
-		
-		glDeleteTextures(textures)
-
-		n = glGetIntegerv(GL_NUM_COMPRESSED_TEXTURE_FORMATS)
-		if (n>0)
-			assert_equal(glGetIntegerv(GL_COMPRESSED_TEXTURE_FORMATS).size,n)
-		end
-	end
-	
-	def test_glmultitexcoord
-		supported?(1.3)
-	
-		glActiveTexture(GL_TEXTURE1)
-
-		# 1
-		glMultiTexCoord1d(GL_TEXTURE1, 1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,0,0,1])
-		glMultiTexCoord1dv(GL_TEXTURE1, [0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		glMultiTexCoord1f(GL_TEXTURE1, 1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,0,0,1])
-		glMultiTexCoord1fv(GL_TEXTURE1, [0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		glMultiTexCoord1i(GL_TEXTURE1, 1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,0,0,1])
-		glMultiTexCoord1iv(GL_TEXTURE1, [0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		glMultiTexCoord1s(GL_TEXTURE1, 1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,0,0,1])
-		glMultiTexCoord1sv(GL_TEXTURE1, [0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		# 2
-		glMultiTexCoord2d(GL_TEXTURE1, 1.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,0,1])
-		glMultiTexCoord2dv(GL_TEXTURE1, [0.0,0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		glMultiTexCoord2f(GL_TEXTURE1, 1.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,0,1])
-		glMultiTexCoord2fv(GL_TEXTURE1, [0.0,0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		glMultiTexCoord2i(GL_TEXTURE1, 1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,0,1])
-		glMultiTexCoord2iv(GL_TEXTURE1, [0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		glMultiTexCoord2s(GL_TEXTURE1, 1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,0,1])
-		glMultiTexCoord2sv(GL_TEXTURE1, [0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		# 3
-		glMultiTexCoord3d(GL_TEXTURE1, 1.0,1.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,1,1])
-		glMultiTexCoord3dv(GL_TEXTURE1, [0.0,0.0,0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		glMultiTexCoord3f(GL_TEXTURE1, 1.0,1.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,1,1])
-		glMultiTexCoord3fv(GL_TEXTURE1, [0.0,0.0,0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		glMultiTexCoord3i(GL_TEXTURE1, 1,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,1,1])
-		glMultiTexCoord3iv(GL_TEXTURE1, [0,0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		glMultiTexCoord3s(GL_TEXTURE1, 1,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,1,1])
-		glMultiTexCoord3sv(GL_TEXTURE1, [0,0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,1])
-		# 4
-		glMultiTexCoord4d(GL_TEXTURE1, 1.0,1.0,1.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,1,1])
-		glMultiTexCoord4dv(GL_TEXTURE1, [0.0,0.0,0.0,0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,0])
-		glMultiTexCoord4f(GL_TEXTURE1, 1.0,1.0,1.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,1,1])
-		glMultiTexCoord4fv(GL_TEXTURE1, [0.0,0.0,0.0,0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,0])
-		glMultiTexCoord4i(GL_TEXTURE1, 1,1,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,1,1])
-		glMultiTexCoord4iv(GL_TEXTURE1, [0,0,0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,0])
-		glMultiTexCoord4s(GL_TEXTURE1, 1,1,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [1,1,1,1])
-		glMultiTexCoord4sv(GL_TEXTURE1, [0,0,0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS), [0,0,0,0])
-
-		glActiveTexture(GL_TEXTURE0)
-	end
+
+  def setup
+    super
+    supported? 1.3
+  end
+
+  def test_glsamplecoverage
+    glSampleCoverage(0.0, GL_TRUE)
+    assert_equal(0.0, glGetDoublev(GL_SAMPLE_COVERAGE_VALUE))
+    assert_equal(GL_TRUE, glGetBooleanv(GL_SAMPLE_COVERAGE_INVERT))
+    glSampleCoverage(1.0, GL_FALSE)
+    assert_equal(1.0, glGetDoublev(GL_SAMPLE_COVERAGE_VALUE))
+    assert_equal(GL_FALSE, glGetBooleanv(GL_SAMPLE_COVERAGE_INVERT))
+  end
+
+  def test_multitexture
+    glActiveTexture(GL_TEXTURE1)
+    glClientActiveTexture(GL_TEXTURE2)
+    assert_equal(GL_TEXTURE1, glGetIntegerv(GL_ACTIVE_TEXTURE))
+    assert_equal(GL_TEXTURE2, glGetIntegerv(GL_CLIENT_ACTIVE_TEXTURE))
+  end
+
+  def test_transposematrix
+    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)
+    glLoadTransposeMatrixf(m_a)
+    assert_equal(m_a, glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX))
+
+    glLoadTransposeMatrixd(m_b)
+    assert_equal(m_b, glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX))
+
+    glLoadIdentity()
+    glMultTransposeMatrixf(m_a)
+    assert_equal(m_a, glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX))
+
+    glLoadIdentity()
+    glMultTransposeMatrixd(m_b)
+    assert_equal(m_b, glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX))
+
+    # 2
+    m = Matrix.rows([[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]])
+    glMatrixMode(GL_MODELVIEW)
+    glLoadTransposeMatrixf(m)
+    assert_equal(m.to_a.transpose, glGetDoublev(GL_MODELVIEW_MATRIX))
+    glLoadIdentity()
+    glLoadTransposeMatrixd(m)
+    assert_equal(m.to_a.transpose, glGetDoublev(GL_MODELVIEW_MATRIX))
+    glLoadIdentity()
+    glMultTransposeMatrixf(m)
+    assert_equal(m.to_a.transpose, glGetDoublev(GL_MODELVIEW_MATRIX))
+    glLoadIdentity()
+    glMultTransposeMatrixd(m)
+    assert_equal(m.to_a.transpose, glGetDoublev(GL_MODELVIEW_MATRIX))
+
+    assert_raises ArgumentError do glLoadTransposeMatrixf([1,2,3,4]) end
+    assert_raises ArgumentError do glLoadTransposeMatrixd([1,2,3,4]) end
+    assert_raises ArgumentError do glMultTransposeMatrixf([1,2,3,4]) end
+    assert_raises ArgumentError do glMultTransposeMatrixd([1,2,3,4]) end
+  end
+
+  def test_texturecompression
+    supported?("GL_EXT_texture_compression_s3tc")
+
+    # S3TC/DXT5 compressed 2x2 pixels stipple patterns [w,b,b,w] and [b,w,w,b]
+    image_1 = [0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,0x01,0x54,0x5C,0x5C].pack("C*")
+    image_2 = [0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,0x54,0x01,0x0D,0x0D].pack("C*")
+
+    textures = glGenTextures(3)
+    glBindTexture(GL_TEXTURE_1D,textures[0])
+    glBindTexture(GL_TEXTURE_2D,textures[1])
+    glBindTexture(GL_TEXTURE_3D,textures[2])
+
+    # Note: 1D and 3D compressed textures are not supported by S3TC/DXTn, and usually not supported at all
+
+    # 1D
+    begin
+      glCompressedTexImage1D(GL_TEXTURE_1D,0,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,4,0,16,image_1)
+      assert_equal(image_1, glGetCompressedTexImage(GL_TEXTURE_1D,0))
+    rescue Gl::Error => err
+      assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
+    end
+
+    begin
+      glCompressedTexSubImage1D(GL_TEXTURE_1D,0,0,4,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,16,image_2)
+      assert_equal(image_2, glGetCompressedTexImage(GL_TEXTURE_1D,0))
+    rescue Gl::Error => err
+      assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
+    end
+
+    # 2D
+    glCompressedTexImage2D(GL_TEXTURE_2D,0,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,2,2,0,16,image_1)
+    assert_equal(image_1, glGetCompressedTexImage(GL_TEXTURE_2D,0))
+
+    glCompressedTexSubImage2D(GL_TEXTURE_2D,0,0,0,2,2,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,16,image_2)
+    assert_equal(image_2, glGetCompressedTexImage(GL_TEXTURE_2D,0))
+
+    # 3D
+    begin
+      glCompressedTexImage3D(GL_TEXTURE_3D,0,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,2,2,1,0,16,image_1)
+      assert_equal(image_1, glGetCompressedTexImage(GL_TEXTURE_3D,0))
+    rescue Gl::Error => err
+      assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
+    end
+
+    begin
+      glCompressedTexSubImage3D(GL_TEXTURE_3D,0, 0,0,0, 2,2,1, GL_COMPRESSED_RGBA_S3TC_DXT5_EXT, 16, image_2)
+      assert_equal(image_2, glGetCompressedTexImage(GL_TEXTURE_3D,0))
+    rescue Gl::Error => err
+      assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
+    end
+
+    glDeleteTextures(textures)
+
+    n = glGetIntegerv(GL_NUM_COMPRESSED_TEXTURE_FORMATS)
+    if (n>0)
+      assert_equal(n, glGetIntegerv(GL_COMPRESSED_TEXTURE_FORMATS).size)
+    end
+  end
+
+  def test_glmultitexcoord
+    glActiveTexture(GL_TEXTURE1)
+
+    # 1
+    glMultiTexCoord1d(GL_TEXTURE1, 1.0)
+    assert_equal([1,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1dv(GL_TEXTURE1, [0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1f(GL_TEXTURE1, 1.0)
+    assert_equal([1,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1fv(GL_TEXTURE1, [0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1i(GL_TEXTURE1, 1)
+    assert_equal([1,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1iv(GL_TEXTURE1, [0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1s(GL_TEXTURE1, 1)
+    assert_equal([1,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1sv(GL_TEXTURE1, [0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    # 2
+    glMultiTexCoord2d(GL_TEXTURE1, 1.0,1.0)
+    assert_equal([1,1,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2dv(GL_TEXTURE1, [0.0,0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2f(GL_TEXTURE1, 1.0,1.0)
+    assert_equal([1,1,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2fv(GL_TEXTURE1, [0.0,0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2i(GL_TEXTURE1, 1,1)
+    assert_equal([1,1,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2iv(GL_TEXTURE1, [0,0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2s(GL_TEXTURE1, 1,1)
+    assert_equal([1,1,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2sv(GL_TEXTURE1, [0,0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    # 3
+    glMultiTexCoord3d(GL_TEXTURE1, 1.0,1.0,1.0)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3dv(GL_TEXTURE1, [0.0,0.0,0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3f(GL_TEXTURE1, 1.0,1.0,1.0)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3fv(GL_TEXTURE1, [0.0,0.0,0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3i(GL_TEXTURE1, 1,1,1)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3iv(GL_TEXTURE1, [0,0,0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3s(GL_TEXTURE1, 1,1,1)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3sv(GL_TEXTURE1, [0,0,0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    # 4
+    glMultiTexCoord4d(GL_TEXTURE1, 1.0,1.0,1.0,1.0)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4dv(GL_TEXTURE1, [0.0,0.0,0.0,0.0])
+    assert_equal([0,0,0,0], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4f(GL_TEXTURE1, 1.0,1.0,1.0,1.0)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4fv(GL_TEXTURE1, [0.0,0.0,0.0,0.0])
+    assert_equal([0,0,0,0], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4i(GL_TEXTURE1, 1,1,1,1)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4iv(GL_TEXTURE1, [0,0,0,0])
+    assert_equal([0,0,0,0], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4s(GL_TEXTURE1, 1,1,1,1)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4sv(GL_TEXTURE1, [0,0,0,0])
+    assert_equal([0,0,0,0], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+
+    glActiveTexture(GL_TEXTURE0)
+  end
 end