t/opengl.t

   1 #!/usr/bin/perl -w
   2 #
   3 # Copyright (C) 2003 Tels
   4 # Copyright (C) 2004 David J. Goehrig
   5 # Copyright (C) 2009 Kartik Thakore
   6 # basic testing of SDL::OpenGL
   7
   8 BEGIN {
   9         unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/OpenGL';
  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') ) {
  18                 plan ( tests => 3 );
  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
  39         glGetString
  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
  68         gluPwlCurve
  69         gluNewQuadric
  70         gluDeleteQuadric
  71         gluQuadricNormals
  72         gluQuadricTexture
  73         gluCylinder
  74         gluDisk
  75         gluPartialDisk
  76         gluSphere /);