Add GLUT initialization tests

These tests cover all the commands that generally interact with GLUT.
The ensure that these functions can be used at the very beginning of a
program with no issues. Additionally they verify the behavior of these
functions in the presence of `$SCREENHIDE`, and also `_ScreenHide`.

tests/compile_tests/glut/README.md

@@ -0,0 +1,6 @@
+Glut
+====
+
+These tests cover the initialization of GLUT, and verify that even when these
+statements which make use of GLUT are the first thing in the program they still
+execute correctly.

tests/compile_tests/glut/desktopheight.bas

@@ -0,0 +1,5 @@
+$CONSOLE
+_Dest _Console
+
+Print _DesktopHeight > 0
+System

tests/compile_tests/glut/desktopheight.output

@@ -0,0 +1 @@
+-1 

tests/compile_tests/glut/desktopwidth.bas

@@ -0,0 +1,5 @@
+$CONSOLE
+_Dest _Console
+
+Print _DesktopWidth > 0
+System

tests/compile_tests/glut/desktopwidth.output

@@ -0,0 +1 @@
+-1 

tests/compile_tests/glut/icon.bas

@@ -0,0 +1,6 @@
+$CONSOLE
+_Dest _Console
+
+_Icon
+Print "Got Past Icon!"
+System

tests/compile_tests/glut/icon.output

@@ -0,0 +1 @@
+Got Past Icon!

tests/compile_tests/glut/mousehide.bas

@@ -0,0 +1,6 @@
+$CONSOLE
+_Dest _Console
+
+_MouseHide
+Print "Got Past MouseHide!"
+System

tests/compile_tests/glut/mousehide.output

@@ -0,0 +1 @@
+Got Past MouseHide!

tests/compile_tests/glut/mouseshow.bas

@@ -0,0 +1,6 @@
+$CONSOLE
+_Dest _Console
+
+_MouseShow
+Print "Got Past MouseShow!"
+System

tests/compile_tests/glut/mouseshow.output

@@ -0,0 +1 @@
+Got Past MouseShow!

tests/compile_tests/glut/screenexists.bas

@@ -0,0 +1,5 @@
+$CONSOLE
+_Dest _Console
+
+Print _ScreenExists
+System

tests/compile_tests/glut/screenexists.output

@@ -0,0 +1 @@
+ 1 

tests/compile_tests/glut/screenhide.bas

@@ -0,0 +1,6 @@
+$CONSOLE
+_Dest _Console
+
+_ScreenHide
+Print "Got Past ScreenHide!"
+System

tests/compile_tests/glut/screenhide.output

@@ -0,0 +1 @@
+Got Past ScreenHide!

tests/compile_tests/glut/screenhide_commands.bas

@@ -0,0 +1,58 @@
+$SCREENHIDE
+$CONSOLE
+_Dest _Console
+ON ERROR GOTO errorhand
+
+$IF WIN THEN
+Print _DesktopHeight > 0
+$ELSE
+Print _DesktopHeight = 0
+$END IF
+
+$IF WIN THEN
+Print _DesktopWidth > 0
+$ELSE
+Print _DesktopWidth = 0
+$END IF
+
+_Icon
+Print "Got past icon!"
+
+_MouseHide
+Print "Got past MouseHide!"
+
+_MouseShow
+Print "Got past MouseHide!"
+
+Print _ScreenExists
+
+_ScreenHide
+Print "Got past ScreenHide"
+
+Print _ScreenIcon <> 0
+
+$IF LINUX THEN
+' Since these functions don't work on linux they also don't trigger errors
+' We're just printing the error manually so the test passes on Linux
+Print "Error:"; 5
+Print "Error:"; 5
+$ELSE
+Print _ScreenX >= 0
+Print _ScreenY >= 0
+$END IF
+
+_Title "foobar"
+Print "Title: "; _Title$
+
+Print _WindowHandle <> 0
+Print _WindowHasFocus <= 0 ' This can be a bit random
+
+_ScreenShow
+Print "Got past ScreenShow!"
+System
+
+System
+
+errorhand:
+PRINT "Error:"; ERR
+RESUME NEXT

tests/compile_tests/glut/screenhide_commands.output

@@ -0,0 +1,14 @@
+-1 
+-1 
+Got past icon!
+Got past MouseHide!
+Got past MouseHide!
+ 0 
+Got past ScreenHide
+ 0 
+Error: 5 
+Error: 5 
+Title: foobar
+ 0 
+-1 
+Got past ScreenShow!

tests/compile_tests/glut/screenhide_sub.bas

@@ -0,0 +1,30 @@
+$CONSOLE
+_Dest _Console
+
+_ScreenHide
+Print _DesktopHeight > 0
+Print _DesktopWidth > 0
+_Icon
+Print "Got Past Icon!"
+_MouseHide
+Print "Got Past MouseHide!"
+_MouseShow
+Print "Got Past MouseShow!"
+Print _ScreenExists
+Print _ScreenIcon <> 0
+Print _ScreenX >= 0
+Print _ScreenY >= 0
+_Title "foobar"
+Print "Title: "; _Title$
+
+$IF WIN THEN
+Print _WindowHandle <> 0
+$ELSE
+Print _WindowHandle = 0
+$END IF
+
+Print _WindowHasFocus <= 0 ' This can be a bit random
+
+_ScreenShow
+Print "Got past ScreenShow!"
+System

tests/compile_tests/glut/screenhide_sub.output

@@ -0,0 +1,13 @@
+-1 
+-1 
+Got Past Icon!
+Got Past MouseHide!
+Got Past MouseShow!
+ 1 
+ 0 
+-1 
+-1 
+Title: foobar
+-1 
+-1 
+Got past ScreenShow!

tests/compile_tests/glut/screenicon.bas

@@ -0,0 +1,5 @@
+$CONSOLE
+_Dest _Console
+
+Print _ScreenIcon <> 0
+System

tests/compile_tests/glut/screenicon.output

@@ -0,0 +1 @@
+ 0 

tests/compile_tests/glut/screenshow.bas

@@ -0,0 +1,6 @@
+$CONSOLE
+_Dest _Console
+
+_ScreenShow
+Print "Got past ScreenShow!"
+System

tests/compile_tests/glut/screenshow.output

@@ -0,0 +1 @@
+Got past ScreenShow!

tests/compile_tests/glut/screenx.bas

@@ -0,0 +1,5 @@
+$CONSOLE
+_Dest _Console
+
+Print _ScreenX >= 0
+System

tests/compile_tests/glut/screenx.output

@@ -0,0 +1 @@
+-1 

tests/compile_tests/glut/screeny.bas

@@ -0,0 +1,5 @@
+$CONSOLE
+_Dest _Console
+
+Print _ScreenY >= 0
+System

tests/compile_tests/glut/screeny.output

@@ -0,0 +1 @@
+-1 

tests/compile_tests/glut/title.bas

@@ -0,0 +1,6 @@
+$CONSOLE
+_Dest _Console
+
+_Title "foobar"
+Print "Got past Title!"
+System

tests/compile_tests/glut/title.output

@@ -0,0 +1 @@
+Got past Title!

tests/compile_tests/glut/title_func.bas

@@ -0,0 +1,5 @@
+$CONSOLE
+_Dest _Console
+
+Print "Title: "; _Title$
+System

tests/compile_tests/glut/title_func.output

@@ -0,0 +1 @@
+Title: 

tests/compile_tests/glut/windowhandle.bas

@@ -0,0 +1,11 @@
+$CONSOLE
+_Dest _Console
+
+' _WindowHandle only returns an actual handle on Windows
+$IF WIN THEN
+Print _WindowHandle <> 0
+$ELSE
+Print _WindowHandle = 0
+$END IF
+
+System

tests/compile_tests/glut/windowhandle.output

@@ -0,0 +1 @@
+-1 

tests/compile_tests/glut/windowhasfocus.bas

@@ -0,0 +1,5 @@
+$CONSOLE
+_Dest _Console
+
+Print _WindowHasFocus <= 0 ' This can be a bit random
+System

tests/compile_tests/glut/windowhasfocus.output

@@ -0,0 +1 @@
+-1