use warnings tester with fewer dependencies, issues
[gitmo/MooseX-Getopt.git] / t / 108_usage_attr.t
index c0286c5..1cc26df 100644 (file)
@@ -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';
 }