add a test for extending moose classes

1 files changed, 32 insertions, 0 deletions

diff --git a/t/005-moose.t b/t/005-moose.t
new file mode 100644
index 0000000..59a0106
--- /dev/null
+++ b/t/005-moose.t
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 6;
+
+package Foo;
+use Moose;
+
+has foo => (
+    is      => 'ro',
+    default => 'FOO',
+);
+
+package Foo::Sub;
+use Moose;
+use MooseX::NonMoose;
+extends 'Foo';
+
+package main;
+my $foo_sub = Foo::Sub->new;
+isa_ok $foo_sub, 'Foo';
+is $foo_sub->foo, 'FOO', 'inheritance works';
+is(Foo::Sub->meta->get_method('new'), undef,
+   'Foo::Sub doesn\'t have its own new method');
+
+$_->meta->make_immutable for qw(Foo Foo::Sub);
+
+$foo_sub = Foo::Sub->new;
+isa_ok $foo_sub, 'Foo';
+is $foo_sub->foo, 'FOO', 'inheritance works';
+is(Foo::Sub->meta->get_method('new'), undef,
+   'Foo::Sub doesn\'t have its own new method');