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

#!/usr/bin/perl -w
#
# Copyright (C) 2003 Tels
# Copyright (C) 2004 David J. Goehrig
#
# Copyright (C) 2005 David J. Goehrig <dgoehrig\@cpan.org>
#
# ------------------------------------------------------------------------------
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
# 
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
# 
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
#
# ------------------------------------------------------------------------------
#
# Please feel free to send questions, suggestions or improvements to:
#
#	David J. Goehrig
#	dgoehrig\@cpan.org
#
#
# basic testing of SDL::Surface

BEGIN {
	unshift @INC, 'blib/lib','blib/arch';
}

use strict;

use Test::More;

plan ( tests => 3 );

use_ok( 'SDL::Surface' ); 
  
can_ok ('SDL::Surface', qw/
	new
	flags
	palette
	bpp
	bytes_per_pixel
	Rshift
	Gshift
	Bshift
	Ashift
	Rmask
	Bmask
	Gmask
	Amask
	color_key
	alpha
	width
	height
	pitch
	pixels
	pixel
	fill
	lockp
	lock
	unlock
	update
	flip
	blit
	set_colors
	set_color_key
	set_alpha
	display_format
	rgb
	rgba
	print
	save_bmp
	video_info /);

my $surface = SDL::Surface->new();

isa_ok($surface,'SDL::Surface');

#
# Copyright (C) 2005 David J. Goehrig <dgoehrig\@cpan.org>
#
# ------------------------------------------------------------------------------
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
# 
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
# 
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
#
# ------------------------------------------------------------------------------
#
# Please feel free to send questions, suggestions or improvements to:
#
#	David J. Goehrig
#	dgoehrig\@cpan.org
#
Commit	Line	Data
8fde61e3	1	#!/usr/bin/perl -w
	2	#
	3	# Copyright (C) 2003 Tels
	4	# Copyright (C) 2004 David J. Goehrig
7b6a53a1	5	#
	6	# Copyright (C) 2005 David J. Goehrig <dgoehrig\@cpan.org>
	7	#
	8	# ------------------------------------------------------------------------------
	9	#
	10	# This library is free software; you can redistribute it and/or
	11	# modify it under the terms of the GNU Lesser General Public
	12	# License as published by the Free Software Foundation; either
	13	# version 2.1 of the License, or (at your option) any later version.
	14	#
	15	# This library is distributed in the hope that it will be useful,
	16	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	17	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	18	# Lesser General Public License for more details.
	19	#
	20	# You should have received a copy of the GNU Lesser General Public
	21	# License along with this library; if not, write to the Free Software
	22	# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
	23	#
	24	# ------------------------------------------------------------------------------
	25	#
	26	# Please feel free to send questions, suggestions or improvements to:
	27	#
	28	# David J. Goehrig
	29	# dgoehrig\@cpan.org
	30	#
	31	#
8fde61e3	32	# basic testing of SDL::Surface
	33
	34	BEGIN {
7b6a53a1	35	unshift @INC, 'blib/lib','blib/arch';
8fde61e3	36	}
	37
	38	use strict;
	39
	40	use Test::More;
	41
	42	plan ( tests => 3 );
	43
	44	use_ok( 'SDL::Surface' );
	45
	46	can_ok ('SDL::Surface', qw/
	47	new
	48	flags
	49	palette
	50	bpp
	51	bytes_per_pixel
	52	Rshift
	53	Gshift
	54	Bshift
	55	Ashift
	56	Rmask
	57	Bmask
	58	Gmask
	59	Amask
	60	color_key
	61	alpha
	62	width
	63	height
	64	pitch
	65	pixels
	66	pixel
	67	fill
	68	lockp
	69	lock
	70	unlock
	71	update
	72	flip
	73	blit
	74	set_colors
	75	set_color_key
	76	set_alpha
	77	display_format
	78	rgb
	79	rgba
	80	print
	81	save_bmp
	82	video_info /);
	83
	84	my $surface = SDL::Surface->new();
	85
	86	isa_ok($surface,'SDL::Surface');
	87
7b6a53a1	88	#
	89	# Copyright (C) 2005 David J. Goehrig <dgoehrig\@cpan.org>
	90	#
	91	# ------------------------------------------------------------------------------
	92	#
	93	# This library is free software; you can redistribute it and/or
	94	# modify it under the terms of the GNU Lesser General Public
	95	# License as published by the Free Software Foundation; either
	96	# version 2.1 of the License, or (at your option) any later version.
	97	#
	98	# This library is distributed in the hope that it will be useful,
	99	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	100	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	101	# Lesser General Public License for more details.
	102	#
	103	# You should have received a copy of the GNU Lesser General Public
	104	# License along with this library; if not, write to the Free Software
	105	# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
	106	#
	107	# ------------------------------------------------------------------------------
	108	#
	109	# Please feel free to send questions, suggestions or improvements to:
	110	#
	111	# David J. Goehrig
	112	# dgoehrig\@cpan.org
	113	#