X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001-parameters.t;h=e94516ffe47ecb7aa0fea65cf8d11442ec1ae38d;hb=c627ed855540a7478837f1e7029e9496403b0f99;hp=838cca0a2753dc8bd0272962e54596a8d290f6be;hpb=d743bd2d1c0e30f27bc07f24866e6a0a317f2188;p=gitmo%2FMooseX-Role-Parameterized.git

diff --git a/t/001-parameters.t b/t/001-parameters.t
index 838cca0..e94516f 100644
--- a/t/001-parameters.t
+++ b/t/001-parameters.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 12;
+use Test::More tests => 13;
 use Test::Exception;
 
 use MooseX::Role::Parameterized::Parameters;
@@ -45,6 +45,10 @@ $p = MyRole::LengthParameter->meta->construct_parameters(
 
 is($p->length, 5, "correct length");
 
+throws_ok {
+    $p->length(10);
+} qr/^Cannot assign a value to a read-only accessor/;
+
 do {
     package MyRole::LengthParameter;
     use MooseX::Role::Parameterized;