X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2Ft%2F010-load.t;h=05a39958885190d83d9f9e7d901fcf7aee62128f;hp=4aeffb7f1c02dcbdae5f78d6eb17402a9c6e8563;hb=7e34d2cf59c2c8098683967c32782ffd8ca66aa7;hpb=9908e03e922b670437bcd89b6873f9ebc914567e

diff --git a/perl/t/010-load.t b/perl/t/010-load.t
index 4aeffb7..05a3995 100644
--- a/perl/t/010-load.t
+++ b/perl/t/010-load.t
@@ -17,13 +17,8 @@
 
 use strict;
 use warnings;
-use Test::More;
-
-plan tests => 1;
+use Test::More tests => 1;
 
 BEGIN {
-    use_ok ("Sys::Guestfs") or die;
+    use_ok ("Sys::Guestfs");
 }
-
-my $h = Sys::Guestfs::create ();
-ok ($h);