summaryrefslogtreecommitdiffstats
path: root/t/31-auto-deref.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-02-21 01:53:08 -0600
committerJesse Luehrs <doy@tozt.net>2011-02-21 01:53:08 -0600
commit06f919c57dfc917e50e6858100cfbe3a1b57a1be (patch)
tree8d269551288407c1cc78c9d7ad7466cf7e9a8bcb /t/31-auto-deref.t
parentd1149a69c6121025816d388fadc3861e7407c594 (diff)
downloadbread-board-declare-06f919c57dfc917e50e6858100cfbe3a1b57a1be.tar.gz
bread-board-declare-06f919c57dfc917e50e6858100cfbe3a1b57a1be.zip
make sure i'm testing immutability too
Diffstat (limited to 't/31-auto-deref.t')
-rw-r--r--t/31-auto-deref.t3
1 files changed, 3 insertions, 0 deletions
diff --git a/t/31-auto-deref.t b/t/31-auto-deref.t
index c86fffd..57719b8 100644
--- a/t/31-auto-deref.t
+++ b/t/31-auto-deref.t
@@ -2,6 +2,7 @@
use strict;
use warnings;
use Test::More;
+use Test::Moose;
{
package Foo;
@@ -23,6 +24,7 @@ use Test::More;
);
}
+with_immutable {
{
my $foo = Foo->new;
@@ -40,5 +42,6 @@ use Test::More;
is_deeply(scalar($foo->bar), {'foo', 'bar'}, "scalar hash");
is_deeply({$foo->foo}, {'foo', 'bar'}, "list hash");
}
+} 'Foo';
done_testing;