From 06f919c57dfc917e50e6858100cfbe3a1b57a1be Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 21 Feb 2011 01:53:08 -0600 Subject: make sure i'm testing immutability too --- t/30-type-checks.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 't/30-type-checks.t') diff --git a/t/30-type-checks.t b/t/30-type-checks.t index 58f4405..bca6134 100644 --- a/t/30-type-checks.t +++ b/t/30-type-checks.t @@ -3,6 +3,7 @@ use strict; use warnings; use Test::More; use Test::Fatal; +use Test::Moose; { package Foo; @@ -16,11 +17,11 @@ use Test::Fatal; ); } -{ +with_immutable { my $foo = Foo->new; like(exception { $foo->foo }, qr/^Attribute \(foo\) does not pass the type constraint because: Validation failed for 'Ref' with value FOO/, "error when service returns invalid value"); -} +} 'Foo'; done_testing; -- cgit v1.2.3