X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F033-readwrite.t;h=6a15fe9687255aab43e830b167cc677fd177698b;hb=33cc81a8f6f77ac395491d9824380290a80a23d9;hp=78f45f857d747eda27af7d4e121a9b8bb3aa1cf0;hpb=3b10730c3126e3960e9069d9a1925cce94a60797;p=gitmo%2FMouse.git diff --git a/t/033-readwrite.t b/t/033-readwrite.t index 78f45f8..6a15fe9 100644 --- a/t/033-readwrite.t +++ b/t/033-readwrite.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More tests => 4; -use Mouse::Util ':test'; +use Test::Exception; do { package Class; @@ -11,9 +11,10 @@ do { # We want this attr to have a reader and writer with unconventional names, # and not the default rw_attr method. -- rjbs, 2008-12-04 has 'rw_attr' => ( + is => 'rw', reader => 'read_attr', writer => 'write_attr', - );; + ); }; my $object = Class->new;