From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Fri, 4 Sep 2009 21:32:07 +0000 (-0400)
Subject: Made tests clearer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a190b94344b03b8b58a2bdc03d7387e9e0f11607;p=sdlgit%2FSDL_perl.git

Made tests clearer
---

diff --git a/exp/SDL/Rect/t/001_load.t b/exp/SDL/Rect/t/001_load.t
index 0e08a2d..b347b0f 100644
--- a/exp/SDL/Rect/t/001_load.t
+++ b/exp/SDL/Rect/t/001_load.t
@@ -10,10 +10,10 @@ 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 );
+$object->SetRect(0,1,2,2);
+is($object->RectX, 0 , "RectX checks: x=".$object->RectX );
+is($object->RectY, 1,  "RectY checks: y=".$object->RectY );
+is($object->RectW, 2,  "RectW checks: w=".$object->RectW );
+is($object->RectH, 2,  "RectH checks: h=".$object->RectH );