Merge branch 'stable'

[gitmo/Class-MOP.git] / t / 018_anon_class.t

diff --git a/t/018_anon_class.t b/t/018_anon_class.t
index d7a0197..1b06879 100644 (file)
--- a/t/018_anon_class.t
+++ b/t/018_anon_class.t
@@ -31,18 +31,18 @@ my $anon_class_id;
             [$anon_class->superclasses],
             [],
             '... got an empty superclass list');
-        ok ! exception {
+        is( exception {
             $anon_class->superclasses('Foo');
-        }, '... can add a superclass to anon class';
+        }, undef, '... can add a superclass to anon class' );
         is_deeply(
             [$anon_class->superclasses],
             [ 'Foo' ],
             '... got the right superclass list');
 
         ok(!$anon_class->has_method('foo'), '... no foo method');
-        ok ! exception {
+        is( exception {
             $anon_class->add_method('foo' => sub { "__ANON__::foo" });
-        }, '... added a method to my anon-class';
+        }, undef, '... added a method to my anon-class' );
         ok($anon_class->has_method('foo'), '... we have a foo method now');
 
         $instance = $anon_class->new_object();