X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Getopt.git;a=blobdiff_plain;f=t%2F109_help_flag.t;h=a9b875619eb5fab3bdd6edbde32dcaea85b5320f;hp=b5a08334fd3373ceba9966b44dafcdd988fdce31;hb=aec092482d5b90b8279e4a5f92165868a78ddf32;hpb=8d396d8a86e6c43b6722273362cab18b0fa622fc

diff --git a/t/109_help_flag.t b/t/109_help_flag.t
index b5a0833..a9b8756 100644
--- a/t/109_help_flag.t
+++ b/t/109_help_flag.t
@@ -1,5 +1,3 @@
-#!/usr/bin/env perl
-
 # The documentation claims:
 #   If Getopt::Long::Descriptive is installed and any of the following command
 #   line params are passed (--help, --usage, --?), the program will exit with
@@ -18,13 +16,14 @@
 
 # Update: since 0.41, usage info is printed to stdout, not stderr.
 
-use strict; use warnings;
-use Test::More tests => 22;
+use strict; use warnings FATAL => 'all';
+use Test::More tests => 23;
+use Test::NoWarnings 1.04 ':early';
 use Test::Trap;
 
 {
     package MyClass;
-    use strict; use warnings;
+    use strict; use warnings FATAL => 'all';
     use Moose;
     with 'MooseX::Getopt';
 }