X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdefaults.t;h=d48299cf0ba07f78f9bd0db5f60994218cbcaf8e;hb=refs%2Ftags%2F0.13;hp=2a04ede4be0897612bc41fc772b9be442757f921;hpb=19b920aea9aaa72a5976cb126518f298ff8b4cf6;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)');