[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 => 3 );
} 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
	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 /);
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') ) {
	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	glLight
	40	glLoadIdentity
	41	glMap1
	42	glMap2
	43	glMapGrid2
	44	glMaterial
	45	glMatrixMode
	46	glPointSize
	47	glPopMatrix
	48	glPushMatrix
	49	glRotate
	50	glScale
	51	glShadeModel
	52	glTranslate
	53	glVertex
	54	glVertex
	55	glViewport /);
	56
	57	can_ok('main',qw/
	58	gluPerspective
	59	gluBeginSurface
	60	gluBeginTrim
	61	gluEndSurface
	62	gluEndTrim
	63	gluNewNurbsRenderer
	64	gluNurbsCurve
	65	gluNurbsProperty
	66	gluNurbsSurface
	67	gluPwlCurve /);