[sdlgit/SDL_perl.git] / t / opengl.t

#!/usr/bin/perl -w
#
# Copyright (C) 2003 Tels
# Copyright (C) 2004 David J. Goehrig
# Copyright (C) 2009 Kartik Thakore
# basic testing of SDL::OpenGL

BEGIN {
	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/OpenGL';
}

use strict;
use SDL::Config;

use Test::More;

if ( SDL::Config->has('GL') && SDL::Config->has('GLU') ) {
		plan ( tests => 4 );
} else {
	plan ( skip_all => 'OpenGL support not compiled' );
}

use_ok('SDL::OpenGL');

can_ok('main', qw/
	glBegin
	glClear
	glClearColor
	glColor
	glCullFace
	glEnable
	glEnd
	glEvalCoord1
	glEvalCoord2
	glEvalMesh2
	glFrontFace
	glFrustum 
	glGet
	glGetString
	glLight
	glLoadIdentity
	glMap1
	glMap2
	glMapGrid2
	glMaterial
	glMatrixMode
	glPointSize
	glPopMatrix
	glPushMatrix
	glRotate
	glScale
	glShadeModel
	glTranslate
	glVertex
	glVertex
	glViewport /);

can_ok('main',qw/
	gluPerspective
	gluBeginSurface
	gluBeginTrim
	gluEndSurface
	gluEndTrim
	gluNewNurbsRenderer 
	gluNurbsCurve
	gluNurbsProperty
	gluNurbsSurface
	gluPwlCurve
	gluNewQuadric
	gluDeleteQuadric
	gluQuadricNormals
	gluQuadricTexture
	gluCylinder
	gluDisk
	gluPartialDisk
	gluSphere /);

can_ok('main',qw/glXUseXFont/);
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
faad43be	78	can_ok('main',qw/glXUseXFont/);