[sdlgit/SDL_perl.git] / exp / SDL / Rect / t / 001_load.t

# -*- perl -*-

# t/001_load.t - check module loading and create testing directory
no AutoLoader;

use Test::More tests => 6;

BEGIN { use_ok( 'SDL::Rect' ); }

my $object = SDL::Rect->new();
isa_ok ($object, 'SDL::Rect');

$object->SetRect(0,1,0,2);
is($object->RectX, 0 , "Rect X works: x=".$object->RectX );
is($object->RectY, 1,  "Rect X works: x=".$object->RectY );
is($object->RectW, 0,  "Rect X works: x=".$object->RectW );
is($object->RectH, 2,  "Rect X works: x=".$object->RectH );
Commit	Line	Data
d0eab7ef	1	# -- perl --
	2
	3	# t/001_load.t - check module loading and create testing directory
275f555f	4	no AutoLoader;
d0eab7ef	5
ba1747b1	6	use Test::More tests => 6;
d0eab7ef	7
	8	BEGIN { use_ok( 'SDL::Rect' ); }
	9
7c86a28a	10	my $object = SDL::Rect->new();
d0eab7ef	11	isa_ok ($object, 'SDL::Rect');
d0eab7ef	12
ba1747b1	13	$object->SetRect(0,1,0,2);
	14	is($object->RectX, 0 , "Rect X works: x=".$object->RectX );
	15	is($object->RectY, 1, "Rect X works: x=".$object->RectY );
	16	is($object->RectW, 0, "Rect X works: x=".$object->RectW );
	17	is($object->RectH, 2, "Rect X works: x=".$object->RectH );
d0eab7ef	18
ba1747b1	19