X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-UndefTolerant.git;a=blobdiff_plain;f=t%2Fdefaults.t;h=d48299cf0ba07f78f9bd0db5f60994218cbcaf8e;hp=2a04ede4be0897612bc41fc772b9be442757f921;hb=377fd47097bc8953ffd702b719155f7f1f1559b1;hpb=e56ed5d5e92a228e5364ffe1478f9f8adbc2b557 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)');