X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Getopt.git;a=blobdiff_plain;f=t%2F108_usage_attr.t;h=1cc26df9779a66423dad0f06d9b976bf64e32388;hp=c0286c5fe9d5947dcc8d5a55219c6acfb2198511;hb=25eb430dc9dc0e223b0a8cddf555e0dc3bbd26aa;hpb=81b19ed83c9e345f960ccefbcd639dd0e3c2de06

diff --git a/t/108_usage_attr.t b/t/108_usage_attr.t
index c0286c5..1cc26df 100644
--- a/t/108_usage_attr.t
+++ b/t/108_usage_attr.t
@@ -1,16 +1,16 @@
-#!/usr/bin/env perl
-
 # Re RT#58715 and the claim in the documentation:
 #   If you have Getopt::Long::Descriptive the usage param is also passed to new.
 
 # This tests the fix (that fulfills the documentation claim).
 
-use strict; use warnings;
-use Test::More tests => 3;
+use strict;
+use warnings FATAL => 'all';
+use Test::More tests => 4;
+use Test::Warnings;
 
 {
     package MyClass;
-    use strict; use warnings;
+    use strict; use warnings FATAL => 'all';
     use Moose;
     with 'MooseX::Getopt';
 }