|
|
Author: fperrad
Date: Sun Aug 3 12:45:04 2008
New Revision: 29971
Modified:
branches/opengl4lua/languages/lua/t/gl.t
Log:
[Lua] OpenGL, more tests
Modified: branches/opengl4lua/languages/lua/t/gl.t
==============================================================================
--- branches/opengl4lua/languages/lua/t/gl.t (original)
+++ branches/opengl4lua/languages/lua/t/gl.t Sun Aug 3 12:45:04 2008
@@ -36,7 +36,7 @@
plan skip_all => "OpenGL needed";
}
else {
- plan tests => 1;
+ plan tests => 4;
}
language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'require' );
@@ -47,6 +47,30 @@
OpenGL
OUTPUT
+language_output_like( 'lua', << 'CODE', << 'OUTPUT', 'bad type' );
+require 'gl'
+gl.Begin(nil)
+CODE
+/^[^:]+: [^:]+:\d+: incorrect argument to function 'gl.Begin'\nstack
traceback:\n/
+OUTPUT
+
+language_output_like( 'lua', << 'CODE', << 'OUTPUT', 'bad value' );
+require 'gl'
+gl.Begin('BAD_VALUE')
+CODE
+/^[^:]+: [^:]+:\d+: incorrect string argument to function 'gl.Begin'\nstack
traceback:\n/
+OUTPUT
+
+language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'Begin/End' );
+require 'gl'
+gl.Begin('TRIANGLES')
+gl.End()
+print "OpenGL"
+CODE
+OpenGL
+OUTPUT
+
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
|
|