clean up ::Destructor

[gitmo/Moose.git] / t / 040_type_constraints / 033_type_names.t

diff --git a/t/040_type_constraints/033_type_names.t b/t/040_type_constraints/033_type_names.t
index dafade2..bc4dcaf 100644 (file)
--- a/t/040_type_constraints/033_type_names.t
+++ b/t/040_type_constraints/033_type_names.t
@@ -29,15 +29,11 @@ TODO:
     }
 }
 
-ok ! exception { Moose::Meta::TypeConstraint->new( name => 'Foo.Bar::Baz' ) },
-'Type names can contain periods and colons';
+is( exception { Moose::Meta::TypeConstraint->new( name => 'Foo.Bar::Baz' ) }, undef, 'Type names can contain periods and colons' );
 
-like exception { subtype 'Foo-Baz' => as 'Item' },
-qr/contains invalid characters/,
-    'Type names cannot contain a dash (via subtype sugar)';
+like( exception { subtype 'Foo-Baz' => as 'Item' }, qr/contains invalid characters/, 'Type names cannot contain a dash (via subtype sugar)' );
 
-ok ! exception { subtype 'Foo.Bar::Baz' => as 'Item' },
-'Type names can contain periods and colons (via subtype sugar)';
+is( exception { subtype 'Foo.Bar::Baz' => as 'Item' }, undef, 'Type names can contain periods and colons (via subtype sugar)' );
 
 is( Moose::Util::TypeConstraints::find_or_parse_type_constraint('ArrayRef[In-valid]'),
     undef,