From 08be9e37a8077281197497dae5b56d365afc1cd7 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 19 Dec 2009 18:09:54 -0600
Subject: add test for roles, and fix subclassing test

---
 t/003-subclassing.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 't/003-subclassing.t')

diff --git a/t/003-subclassing.t b/t/003-subclassing.t
index 6a562ee..54b0a40 100644
--- a/t/003-subclassing.t
+++ b/t/003-subclassing.t
@@ -1,7 +1,8 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 10;
+use Test::More tests => 11;
+use Test::Exception;
 
 use MooseX::Module::Refresh;
 
@@ -49,6 +50,16 @@ $foobar = FooBarSub->new(foo => 'FOO');
 is($foobar->bar, 'barsub', "We got the right result, still");
 is($foobar->foo, 'FOOsub', "We got the right result, still");
 
+throws_ok { $r->refresh } qr/syntax error.*"has baz"/;
+
+write_out($file, <<".");
+package FooBar; 
+use Moose;
+has baz => (is => 'ro', predicate => 'foo');
+sub bar { 'baz' }
+1;
+.
+
 $r->refresh;
 
 $foobar = FooBarSub->new(baz => 'FOO');
-- 
cgit v1.2.3-54-g00ecf