do not ship this content again!

[gitmo/MooseX-UndefTolerant.git] / t / lib / ConstructorTests.pm

diff --git a/t/lib/ConstructorTests.pm b/t/lib/ConstructorTests.pm
index 691cdc2..3174157 100644 (file)
--- a/t/lib/ConstructorTests.pm
+++ b/t/lib/ConstructorTests.pm
@@ -79,7 +79,8 @@ sub do_tests
 
                 is (exception { $obj = Foo->new(attr3 => undef) }, undef,
                     'assigning undef to attr3 is acceptable');
-                ok($obj->has_attr3, 'attr3 retains its undef value when assigned undef in constructor');
+                ok($obj->has_attr3, 'attr3 still has a value');
+                is($obj->attr3, undef, '...which is undef, when assigned undef in constructor');
             },
             undef,
             'successfully tested spot-application of UT trait in '
@@ -101,7 +102,7 @@ sub do_tests
 
     note '';
     note 'Testing class with the entire ',
-        (Foo->meta->is_immutable ? 'im' : '') . 'mutable ',
+        (Bar->meta->is_immutable ? 'im' : '') . 'mutable ',
         'class being UndefTolerant';
     {
         my $obj = Bar->new;
@@ -118,9 +119,10 @@ sub do_tests
             'assigning undef to attr2 does not produce an error');
         ok(!$obj->has_attr2, 'attr2 has no value when assigned undef in constructor');
 
-        is( exception { $obj = Foo->new(attr3 => undef) }, undef,
+        is( exception { $obj = Bar->new(attr3 => undef) }, undef,
             'assigning undef to attr3 is acceptable');
-        ok($obj->has_attr3, 'attr3 retains its undef value when assigned undef in constructor');
+        ok($obj->has_attr3, 'attr3 still has a value');
+        is($obj->attr3, undef, '...which is undef, when assigned undef in constructor');
     }
 
     {