From ccb6255a4b4416d5257c7d2275fe0c945f58ecef Mon Sep 17 00:00:00 2001
From: Hans Dieter Pearcey <hdp@weftsoar.net>
Date: Mon, 11 May 2009 11:58:06 -0700
Subject: failing test for MXIO+MXNM

---
 t/032-moosex-insideout.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 't')

diff --git a/t/032-moosex-insideout.t b/t/032-moosex-insideout.t
index ea78cf8..200b343 100644
--- a/t/032-moosex-insideout.t
+++ b/t/032-moosex-insideout.t
@@ -5,7 +5,7 @@ use Test::More;
 BEGIN {
     eval "use MooseX::InsideOut ()";
     plan skip_all => "MooseX::InsideOut is required for this test" if $@;
-    plan tests => 8;
+    plan tests => 10;
 }
 
 BEGIN {
@@ -59,6 +59,9 @@ sub BUILDARGS {
     return $self->SUPER::BUILDARGS(@_);
 }
 
+package Foo::Moose::Sub;
+use base 'Foo::Moose';
+
 package main;
 my $foo = Foo::Moose->new('FOO', bar => 'BAR');
 is($foo->foo, 'FOO', 'base class accessor works');
@@ -67,6 +70,8 @@ $foo->foo('OOF');
 $foo->bar('RAB');
 is($foo->foo, 'OOF', 'base class accessor works (setting)');
 is($foo->bar, 'RAB', 'subclass accessor works (setting)');
+my $sub_foo = Foo::Moose::Sub->new(FOO => bar => 'AHOY');
+is($sub_foo->bar, 'AHOY', 'subclass constructor works');
 Foo::Moose->meta->make_immutable;
 $foo = Foo::Moose->new('FOO', bar => 'BAR');
 is($foo->foo, 'FOO', 'base class accessor works (immutable)');
@@ -75,3 +80,5 @@ $foo->foo('OOF');
 $foo->bar('RAB');
 is($foo->foo, 'OOF', 'base class accessor works (setting) (immutable)');
 is($foo->bar, 'RAB', 'subclass accessor works (setting) (immutable)');
+$sub_foo = Foo::Moose::Sub->new(FOO => bar => 'AHOY');
+is($sub_foo->bar, 'AHOY', 'subclass constructor works (immutable)');
-- 
cgit v1.2.3