diff options
Diffstat (limited to '')
| -rw-r--r-- | test/test001.pas | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/test/test001.pas b/test/test001.pas new file mode 100644 index 00000000..4ee62690 --- /dev/null +++ b/test/test001.pas @@ -0,0 +1,84 @@ +program test001; + +{ +This program test the function glext_ExtensionSupported from unit glext. +} + +uses + SysUtils, + SDL, + gl, + glext; + +const + s1: pchar = ''; + s2: pchar = 'ext'; + s3: pchar = ' ext'; + s4: pchar = ' ext '; + s5: pchar = 'kkshf kjsfh ext'; + s6: pchar = 'fakh sajhf ext jskdhf'; + s7: pchar = 'ext jshf'; + s8: pchar = 'sdkjfh ksjhext sjdha'; + s9: pchar = 'sdkjfh ksjh extsjdha'; + s10: pchar = 'sdkjfh ksjhextsjdha'; + s11: pchar = 'sd kjf jdha'; + + e1: pchar = ''; + e2: pchar = 'ext'; + e3: pchar = 'GL_ARB_window_pos'; + + SCREEN_WIDTH = 640; + SCREEN_HEIGHT = 480; + SCREEN_BPP = 16; + +var + surface: PSDL_Surface; + videoFlags: integer; + +begin + write ('test001: Start ... '); + +// initialize SDL and OpenGL for the use of glGetString(GL_EXTENSIONS) +// within glext_ExtensionSupported. + + SDL_Init( SDL_INIT_VIDEO); + +// the flags to pass to SDL_SetVideoMode + videoFlags := SDL_OPENGL; + +// get a SDL surface + surface := SDL_SetVideoMode(SCREEN_WIDTH, SCREEN_HEIGHT, SCREEN_BPP, videoFlags); + +// Initialization finished + + if glext_ExtensionSupported(e1, s1) then + writeln ('test001, 1: failed'); + if glext_ExtensionSupported(e1, s2) then + writeln ('test001, 2: failed'); + if glext_ExtensionSupported(e2, s1) then + writeln ('test001, 3: failed'); + if not glext_ExtensionSupported(e2, s2) then + writeln ('test001, 4: failed'); + if not glext_ExtensionSupported(e2, s3) then + writeln ('test001, 5: failed'); + if not glext_ExtensionSupported(e2, s4) then + writeln ('test001, 6: failed'); + if not glext_ExtensionSupported(e2, s5) then + writeln ('test001, 7: failed'); + if not glext_ExtensionSupported(e2, s6) then + writeln ('test001, 8: failed'); + if not glext_ExtensionSupported(e2, s7) then + writeln ('test001, 9: failed'); + if glext_ExtensionSupported(e2, s8) then + writeln ('test001, 10: failed'); + if glext_ExtensionSupported(e2, s9) then + writeln ('test001, 11: failed'); + if glext_ExtensionSupported(e2, s10) then + writeln ('test001, 12: failed'); + if glext_ExtensionSupported(e2, s11) then + writeln ('test001, 13: failed'); + if not glext_ExtensionSupported(e3, s1) then + writeln ('test001, 14: failed'); + + writeln ('End'); +end.
\ No newline at end of file |