add reference to MooseX::Getopt::Usage

[gitmo/MooseX-Getopt.git] / t / 107_union_bug.t

diff --git a/t/107_union_bug.t b/t/107_union_bug.t
index f3283c7..84660c2 100644 (file)
--- a/t/107_union_bug.t
+++ b/t/107_union_bug.t
@@ -1,41 +1,40 @@
-#!/usr/bin/perl
-
 use strict;
-use warnings;
+use warnings FATAL => 'all';
 
-use Test::Most tests => 5;
+use Test::More tests => 6;
+use Test::Warnings;
 
 {
     package example;
-    
+
     use Moose;
     use Moose::Util::TypeConstraints;
     with qw(
         MooseX::Getopt
     );
-    
-    subtype 'ResultSet' 
+
+    subtype 'ResultSet'
         => as 'DBIx::Class::ResultSet';
-    
-    subtype 'ResultList' 
+
+    subtype 'ResultList'
         => as 'ArrayRef[Int]';
 
     MooseX::Getopt::OptionTypeMap->add_option_type_to_map(
             'ResultList'  => '=s',
     );
-    
-    coerce 'ResultList' 
-        => from 'Str' 
+
+    coerce 'ResultList'
+        => from 'Str'
         => via {
             return [ grep { m/^\d+$/ } split /\D/,$_ ]; # <- split string into arrayref
         };
-    
+
     has 'results' => (
         is              => 'rw',
         isa             => 'ResultList | ResultSet', # <- union constraint
         coerce          => 1,
     );
-    
+
     has 'other' => (
         is              => 'rw',
         isa             => 'Str',
@@ -49,8 +48,7 @@ use Test::Most tests => 5;
         other   => 'test',
     });
     isa_ok($example, 'example');
-    explain($example->results);
-    cmp_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
+    is_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
 }
 
 # With MooseX::Getopt
@@ -58,8 +56,8 @@ use Test::Most tests => 5;
     local @ARGV = ('--results','1234,5678,9012','--other','test');
     my $example = example->new_with_options;
     isa_ok($example, 'example');
-    
-    explain($example->results);
+
     is($example->other,'test');
-    cmp_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
-}
\ No newline at end of file
+    is_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
+}
+