X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F016-trigger.t;h=2f3a666815df3500c449902c74af134a42bdd926;hb=e827cd75137d0cda1ea9c690f4efed2c89af924d;hp=29406c4f33123921df815ea05050b7169cde8461;hpb=8c831d08b0d23c9dfcc4a85f6444915c988b5538;p=gitmo%2FMouse.git diff --git a/t/016-trigger.t b/t/016-trigger.t index 29406c4..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 Mouse::Util ':test'; +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");