Use done_testing instead of no_plan

t/argument-check.t

@@ -8,7 +8,7 @@
 #
 
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 
 #
 #  Open and parse the xen-tools.conf configuration file.
@@ -51,7 +51,7 @@ foreach my $key ( sort keys %OPTIONS )
     is( $found, 1 , " Found documentation for '$key'" );
 }
 
-
+done_testing();
 
 
 =head2 parseConfigFile

t/getopt.t

@@ -12,7 +12,7 @@
 
 use strict;
 use File::Find;
-use Test::More qw( no_plan );
+use Test::More;
 
 
 #
@@ -26,6 +26,7 @@ foreach my $file ( sort( glob "./bin/*-*" ) )
     testFile( $file );
 }
 
+done_testing();
 
 #
 #  Check that the given file implements all the option processing it

t/hook-daemons.t

@@ -8,7 +8,7 @@
 
 
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 use File::Temp;
 
 
@@ -32,7 +32,7 @@ foreach my $dir ( glob( "hooks/*" ) )
     }
 }
 
-
+done_testing();
 
 #
 #  If the given distribution has the following two files test them:

t/hook-hostname.t

@@ -8,7 +8,7 @@
 
 
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 use File::Temp;
 
 
@@ -33,7 +33,7 @@ foreach my $dir ( glob( "hooks/*" ) )
     }
 }
 
-
+done_testing();
 
 
 #

t/hook-tls.t

@@ -15,10 +15,6 @@ if ( $Config::Config{archname} =~ /64/ )
 {
     plan skip_all => "This test will fail upon 64 bit systems" ;
 }
-else
-{
-    plan no_plan;
-}
 
 #
 #  Rather than having a hardwired list of distributions to test
@@ -38,7 +34,7 @@ foreach my $dir ( glob( "hooks/*" ) )
     }
 }
 
-
+done_testing();
 
 
 #

t/hooks.t

@@ -7,7 +7,7 @@
 #
 
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 
 
 #
@@ -28,7 +28,7 @@ foreach my $dir ( glob( "hooks/*" ) )
     }
 }
 
-
+done_testing();
 
 sub testDistroHooks
 {

t/no-tabs.t

@@ -9,7 +9,7 @@
 
 use strict;
 use File::Find;
-use Test::More qw( no_plan );
+use Test::More;
 
 
 #
@@ -18,7 +18,7 @@ use Test::More qw( no_plan );
 #
 find( { wanted => \&checkFile, no_chdir => 1 }, '.' );
 
-
+done_testing();
 
 #
 #  Check a file.

t/perl-syntax.t

@@ -11,7 +11,7 @@
 
 use strict;
 use File::Find;
-use Test::More qw/ no_plan /;
+use Test::More;
 
 eval "use Moose";
 plan skip_all => "Moose required for testing Perl syntax"
@@ -24,6 +24,8 @@ plan skip_all => "Moose required for testing Perl syntax"
 #
 find( { wanted => \&checkFile, no_chdir => 1 }, '.' );
 
+done_testing();
+
 #
 #  Check a file.
 #

t/plugin-checks.t

@@ -9,7 +9,7 @@
 
 
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 
 
 #
@@ -30,7 +30,7 @@ foreach my $dir ( glob( "hooks/*" ) )
     }
 }
 
-
+done_testing();
 
 =head2 testPlugins
 

t/pod-check.t

@@ -8,7 +8,7 @@
 #
 
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 
 foreach my $file ( glob( "bin/*-*" ) )
 {
@@ -30,3 +30,4 @@ foreach my $file ( glob( "bin/*-*" ) )
     }
 }
 
+done_testing();

t/portable-shell.t

@@ -15,7 +15,7 @@
 
 use strict;
 use File::Find;
-use Test::More qw( no_plan );
+use Test::More;
 
 
 #
@@ -24,7 +24,7 @@ use Test::More qw( no_plan );
 #
 find( { wanted => \&checkFile, no_chdir => 1 }, '.' );
 
-
+done_testing();
 
 #
 #  Check a file.

t/programs.t

@@ -6,7 +6,7 @@
 # --
 #
 
-use Test::More qw( no_plan );
+use Test::More;
 
 
 #
@@ -44,3 +44,4 @@ foreach my $file ( @optional )
     }
 }
 
+done_testing();

t/quoted-strings.t

@@ -10,7 +10,7 @@
 
 use strict;
 use File::Find;
-use Test::More qw( no_plan );
+use Test::More;
 
 
 #
@@ -23,7 +23,7 @@ $dir = "./hooks"  if ( -d "./hooks" );
 ok( defined( $dir ), "Found hook directory" );
 find( { wanted => \&checkFile, no_chdir => 1 }, $dir );
 
-
+done_testing();
 
 #
 #  Check a file; if it is a shell script.

t/shell-syntax.t

@@ -9,7 +9,7 @@
 
 use strict;
 use File::Find;
-use Test::More qw( no_plan );
+use Test::More;
 
 
 #
@@ -18,7 +18,7 @@ use Test::More qw( no_plan );
 #
 find( { wanted => \&checkFile, no_chdir => 1 }, '.' );
 
-
+done_testing();
 
 #
 #  Check a file.

t/test-trailing-whitespace.t

@@ -9,7 +9,7 @@
 
 use strict;
 use File::Find;
-use Test::More qw( no_plan );
+use Test::More;
 
 
 #
@@ -37,6 +37,7 @@ foreach my $file (sort( glob ( $dir . "*" ) ) )
     checkFile( $file );
 }
 
+done_testing();
 
 #
 #  Check a file.

t/xen-delete-image.t

@@ -9,7 +9,7 @@
 
 
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 use File::Temp;
 
 
@@ -91,3 +91,5 @@ ok( ! -e $domains . "/" . $hostname . "/" . "swap.img",
 #
 ok( ! -d $domains . "/" . $hostname,
     "The hostname directory was removed" );
+
+done_testing();

t/xen-lists-images.t

@@ -10,7 +10,7 @@
 
 
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 use File::Temp;
 
 
@@ -26,7 +26,7 @@ testRandomInstance( "bar.my.flat", 1 );
 testRandomInstance( "baz.my.flat", 0 );
 testRandomInstance( "baz.my.flat", 1 );
 
-
+done_testing();
 
 =head2 testRandomInstance
 

t/xt-create-xen-config.t

@@ -9,7 +9,7 @@
 
 
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 use File::Temp;
 
 
@@ -107,7 +107,7 @@ noMentionOf( "phy:",
 
 
 
-
+done_testing();