From abc92a6f3b4615e596992eda153da0c09a3c7cbf Mon Sep 17 00:00:00 2001
From: Dan Gudmundsson <dgud@erlang.org>
Date: Fri, 19 Nov 2010 14:57:59 +0100
Subject: Fix non available opengl functions

Opengl functions are loaded at runtime and differ with drivers and
cards.
---
 lib/wx/test/wx_opengl_SUITE.erl | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'lib/wx/test/wx_opengl_SUITE.erl')

diff --git a/lib/wx/test/wx_opengl_SUITE.erl b/lib/wx/test/wx_opengl_SUITE.erl
index 9d12711dd7..778d089bce 100644
--- a/lib/wx/test/wx_opengl_SUITE.erl
+++ b/lib/wx/test/wx_opengl_SUITE.erl
@@ -113,7 +113,7 @@ canvas(Config) ->
     Data = {?FACES,?VS},
     drawBox(0, Data),
     ?m(ok, wxGLCanvas:swapBuffers(Canvas)),
-
+    ?m([], flush()),
     Env = wx:get_env(),
     Tester = self(),
     spawn_link(fun() -> 
@@ -125,10 +125,23 @@ canvas(Config) ->
 		       %% This may fail when window is deleted
 		       catch draw_loop(2,Data,Canvas)
 	       end),
-
     ?m_receive(works),
+    ?m([], flush()),
+    io:format("Undef func ~p ~n", [catch gl:uniform1d(2, 0.75)]),
+    timer:sleep(500),
+    ?m([], flush()),
     wx_test_lib:wx_destroy(Frame, Config).
-    
+
+flush() ->
+    flush([]).
+
+flush(Collected) ->
+    receive Msg -> 
+	    flush([Msg|Collected])
+    after 1 ->
+	    lists:reverse(Collected)
+    end.
+    	  
 draw_loop(Deg,Data,Canvas) ->
     timer:sleep(15),
     drawBox(Deg,Data),
@@ -136,6 +149,7 @@ draw_loop(Deg,Data,Canvas) ->
     draw_loop(Deg+1, Data,Canvas).
 
 
+
 drawBox(Deg,{Fs,Vs}) ->
     gl:matrixMode(?GL_MODELVIEW),
     gl:loadIdentity(),
-- 
cgit v1.2.3