X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F016-trigger.t;h=2f3a666815df3500c449902c74af134a42bdd926;hb=c9313657717f78bd96f0325c6aa1c93d0b0d41a5;hp=06f0aff809389df997ff4f03b3edaad05b497c78;hpb=3118622d182add6c88792d5de3b4af047e8a7c8c;p=gitmo%2FMouse.git diff --git a/t/016-trigger.t b/t/016-trigger.t index 06f0aff..2f3a666 100644 --- a/t/016-trigger.t +++ b/t/016-trigger.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More tests => 11; -use t::Exception; +use Test::Exception; my @trigger; @@ -44,9 +44,9 @@ is(@trigger, 0, "trigger not called on read"); is($object->attr(50), 50, "setting the value"); is(@trigger, 1, "trigger was called on read"); -is_deeply([splice @trigger], [[$object, 50, $object->meta->get_attribute('attr')]], "correct arguments to trigger in the accessor"); +is_deeply([splice @trigger], [[$object, 50, undef]], "correct arguments to trigger in the accessor"); my $object2 = Class->new(attr => 100); is(@trigger, 1, "trigger was called on new with the attribute specified"); -is_deeply([splice @trigger], [[$object2, 100, $object2->meta->get_attribute('attr')]], "correct arguments to trigger in the constructor"); +is_deeply([splice @trigger], [[$object2, 100, undef]], "correct arguments to trigger in the constructor");