exp/SDL/Rect/t/001_load.t

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