3 # t/001_load.t - check module loading and create testing directory
6 use Test::More tests => 6;
8 BEGIN { use_ok( 'SDL::Rect' ); }
10 my $object = SDL::Rect->new();
11 isa_ok ($object, 'SDL::Rect');
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 );