Made new

[sdlgit/SDL_perl.git] / exp / SDL / Rect / t / 001_load.t

diff --git a/exp/SDL/Rect/t/001_load.t b/exp/SDL/Rect/t/001_load.t
index 97398c0..f662373 100644 (file)
--- a/exp/SDL/Rect/t/001_load.t
+++ b/exp/SDL/Rect/t/001_load.t
@@ -1,12 +1,13 @@
 # -*- 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::NewRect(0,0,0,0);
+my $object = SDL::Rect->new(0,0,0,0);
 isa_ok ($object, 'SDL::Rect');