Commit | Line | Data |
8fde61e3 |
1 | #!/usr/bin/perl -w |
2 | # |
3 | # Copyright (C) 2003 Tels |
4 | # Copyright (C) 2004 David J. Goehrig |
d9dfc034 |
5 | # Copyright (C) 2009 Kartik Thakore |
8fde61e3 |
6 | # basic testing of SDL::OpenGL |
7 | |
8 | BEGIN { |
d9dfc034 |
9 | unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/OpenGL'; |
8fde61e3 |
10 | } |
11 | |
12 | use strict; |
13 | use SDL::Config; |
14 | |
15 | use Test::More; |
16 | |
17 | if ( SDL::Config->has('GL') && SDL::Config->has('GLU') ) { |
faad43be |
18 | plan ( tests => 4 ); |
8fde61e3 |
19 | } else { |
20 | plan ( skip_all => 'OpenGL support not compiled' ); |
21 | } |
22 | |
23 | use_ok('SDL::OpenGL'); |
24 | |
25 | can_ok('main', qw/ |
26 | glBegin |
27 | glClear |
28 | glClearColor |
29 | glColor |
30 | glCullFace |
31 | glEnable |
32 | glEnd |
33 | glEvalCoord1 |
34 | glEvalCoord2 |
35 | glEvalMesh2 |
36 | glFrontFace |
37 | glFrustum |
38 | glGet |
4db254ce |
39 | glGetString |
8fde61e3 |
40 | glLight |
41 | glLoadIdentity |
42 | glMap1 |
43 | glMap2 |
44 | glMapGrid2 |
45 | glMaterial |
46 | glMatrixMode |
47 | glPointSize |
48 | glPopMatrix |
49 | glPushMatrix |
50 | glRotate |
51 | glScale |
52 | glShadeModel |
53 | glTranslate |
54 | glVertex |
55 | glVertex |
56 | glViewport /); |
57 | |
58 | can_ok('main',qw/ |
59 | gluPerspective |
60 | gluBeginSurface |
61 | gluBeginTrim |
62 | gluEndSurface |
63 | gluEndTrim |
64 | gluNewNurbsRenderer |
65 | gluNurbsCurve |
66 | gluNurbsProperty |
67 | gluNurbsSurface |
4db254ce |
68 | gluPwlCurve |
69 | gluNewQuadric |
70 | gluDeleteQuadric |
71 | gluQuadricNormals |
72 | gluQuadricTexture |
73 | gluCylinder |
74 | gluDisk |
75 | gluPartialDisk |
76 | gluSphere /); |
faad43be |
77 | |
78 | can_ok('main',qw/glXUseXFont/); |