perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r29971 - branches/opengl4lua/languages/lua/t

Subject: [svn:parrot] r29971 - branches/opengl4lua/languages/lua/t
From:
Date: Sun, 3 Aug 2008 12:45:05 -0700 PDT
Newsgroups: perl.cvs.parrot

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

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r29971 - branches/opengl4lua/languages/lua/t, fperrad <=