X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_gld_default_bug.t;h=0d6c410c289081fd160aead006b51cb66c4f03ef;hb=HEAD;hp=4a2b42a0e1689186ffc5e0398c930efbe74a15ae;hpb=630657d529277b7fb600febf001d8667d8e85184;p=gitmo%2FMooseX-Getopt.git

diff --git a/t/100_gld_default_bug.t b/t/100_gld_default_bug.t
index 4a2b42a..0d6c410 100644
--- a/t/100_gld_default_bug.t
+++ b/t/100_gld_default_bug.t
@@ -1,26 +1,21 @@
-#!/usr/bin/perl
-
 use strict;
-use warnings;
+use warnings FATAL => 'all';
 
-use Test::More;
-use Test::Exception;
+use Test::More tests => 6;
+use Test::Warnings;
 
-BEGIN {
-    eval 'use Getopt::Long::Descriptive;';
-    plan skip_all => "Getopt::Long::Descriptive required for this test" if $@;
-    plan tests => 5;    
-    use_ok('MooseX::Getopt');
-}
+use Getopt::Long::Descriptive;
+
+use_ok('MooseX::Getopt');
 
 {
     package Engine::Foo;
     use Moose;
-    
+
     with 'MooseX::Getopt';
-    
+
     has 'nproc' => (
-        metaclass   => 'Getopt',
+        traits      => ['Getopt'],
         is          => 'ro',
         isa         => 'Int',
         default     => sub { 1 },