X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdefaults.t;h=d48299cf0ba07f78f9bd0db5f60994218cbcaf8e;hb=9df4d6f53f9888e5732924c06eeda5a65e7bf9ae;hp=2a04ede4be0897612bc41fc772b9be442757f921;hpb=e56ed5d5e92a228e5364ffe1478f9f8adbc2b557;p=gitmo%2FMooseX-UndefTolerant.git diff --git a/t/defaults.t b/t/defaults.t index 2a04ede..d48299c 100644 --- a/t/defaults.t +++ b/t/defaults.t @@ -95,10 +95,9 @@ sub do_tests_with_class # used instead... # note "### constructed object: ", $obj->dump(2); ok($obj->has_attr1, 'UT attr1 has a value when assigned undef in constructor'); - ok($obj->has_attr3, 'attr3 retains its undef value when assigned undef in constructor'); - is($obj->attr1, 1, 'attr1\'s value is its default'); } + ok($obj->has_attr3, 'attr3 retains its undef value when assigned undef in constructor'); is($obj->attr2, 2, 'attr2\'s value is its default'); is($obj->attr3, undef, 'attr3\'s value is not its default (explicitly set)');