X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F107_union_bug.t;h=a1d4b7c8e6b360bf40927a7847e6d3c06f9df908;hb=14cb82caf70efcf0275fd296a0eba38bd04c7e74;hp=1dcba21f26f4c360b65e34a25e4afc753ae21fcd;hpb=86fa042dd5205560ba9a93b5fbffaffa2a49b539;p=gitmo%2FMooseX-Getopt.git

diff --git a/t/107_union_bug.t b/t/107_union_bug.t
index 1dcba21..a1d4b7c 100644
--- a/t/107_union_bug.t
+++ b/t/107_union_bug.t
@@ -1,9 +1,8 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::Most tests => 5;
+use Test::More tests => 6;
+use Test::NoWarnings 1.04 ':early';
 
 {
     package example;
@@ -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
@@ -59,7 +57,7 @@ use Test::Most tests => 5;
     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');
+    is_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
 }
+