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

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);