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

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

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

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');
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::Surface
	7
	8	BEGIN {
d9dfc034	9	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont',;
8fde61e3	10	}
	11
	12	use strict;
	13
	14	use Test::More;
	15
	16	plan ( tests => 3 );
	17
	18	use_ok( 'SDL::Surface' );
	19
	20	can_ok ('SDL::Surface', qw/
	21	new
	22	flags
	23	palette
	24	bpp
	25	bytes_per_pixel
	26	Rshift
	27	Gshift
	28	Bshift
	29	Ashift
	30	Rmask
	31	Bmask
	32	Gmask
	33	Amask
	34	color_key
	35	alpha
	36	width
	37	height
	38	pitch
	39	pixels
	40	pixel
	41	fill
	42	lockp
	43	lock
	44	unlock
	45	update
	46	flip
	47	blit
	48	set_colors
	49	set_color_key
	50	set_alpha
	51	display_format
	52	rgb
	53	rgba
	54	print
	55	save_bmp
	56	video_info /);
	57
	58	my $surface = SDL::Surface->new();
	59
	60	isa_ok($surface,'SDL::Surface');
	61