Added more test

diff --git a/exp/SDL/Rect/t/001_load.t b/exp/SDL/Rect/t/001_load.t
index 1caed0b..0e08a2d 100644 (file)
--- a/exp/SDL/Rect/t/001_load.t
+++ b/exp/SDL/Rect/t/001_load.t
@@ -3,11 +3,17 @@
 # t/001_load.t - check module loading and create testing directory
 no AutoLoader;
 
-use Test::More tests => 2;
+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 );
 
+