1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
program test001;
{
This program test the function glext_ExtensionSupported from unit glext.
}
uses
SysUtils,
SDL in '../src/lib/JEDI-SDL/SDL/Pas/sdl.pas',
moduleloader in '../src/lib/JEDI-SDL/SDL/Pas/moduleloader.pas',
gl in '../src/lib/JEDI-SDL/OpenGL/Pas/gl.pas',
glext in '../src/lib/JEDI-SDL/OpenGL/Pas/glext.pas';
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;
testFailed: boolean;
begin
write ('test001: Start ... ');
testFailed := false;
// 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 begin writeln; write ('test001, 1: failed'); testFailed := true; end;
if glext_ExtensionSupported(e1, s2) then begin writeln; write ('test001, 2: failed'); testFailed := true; end;
if glext_ExtensionSupported(e2, s1) then begin writeln; write ('test001, 3: failed'); testFailed := true; end;
if not glext_ExtensionSupported(e2, s2) then begin writeln; write ('test001, 4: failed'); testFailed := true; end;
if not glext_ExtensionSupported(e2, s3) then begin writeln; write ('test001, 5: failed'); testFailed := true; end;
if not glext_ExtensionSupported(e2, s4) then begin writeln; write ('test001, 6: failed'); testFailed := true; end;
if not glext_ExtensionSupported(e2, s5) then begin writeln; write ('test001, 7: failed'); testFailed := true; end;
if not glext_ExtensionSupported(e2, s6) then begin writeln; write ('test001, 8: failed'); testFailed := true; end;
if not glext_ExtensionSupported(e2, s7) then begin writeln; write ('test001, 9: failed'); testFailed := true; end;
if glext_ExtensionSupported(e2, s8) then begin writeln; write ('test001, 10: failed'); testFailed := true; end;
if glext_ExtensionSupported(e2, s9) then begin writeln; write ('test001, 11: failed'); testFailed := true; end;
if glext_ExtensionSupported(e2, s10) then begin writeln; write ('test001, 12: failed'); testFailed := true; end;
if glext_ExtensionSupported(e2, s11) then begin writeln; write ('test001, 13: failed'); testFailed := true; end;
if not glext_ExtensionSupported(e3, s1) then begin writeln; write ('test001, 14: failed'); testFailed := true; end;
if testFailed then
begin
writeln;
writeln ('test001: End');
end
else
writeln ('End');
end.
|
