Added more Perl bindings tests.

[libguestfs.git] / perl / t / 010-load.t

diff --git a/perl/t/010-load.t b/perl/t/010-load.t
index 4aeffb7..05a3995 100644 (file)
--- 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);