[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 => 2;

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

my $object = SDL::Rect->new(0,0,0,0);
isa_ok ($object, 'SDL::Rect');
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
	6	use Test::More tests => 2;
	7
	8	BEGIN { use_ok( 'SDL::Rect' ); }
	9
275f555f	10	my $object = SDL::Rect->new(0,0,0,0);
d0eab7ef	11	isa_ok ($object, 'SDL::Rect');
	12
	13