diff options
Diffstat (limited to 't/05-moose.t')
-rw-r--r-- | t/05-moose.t | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/t/05-moose.t b/t/05-moose.t deleted file mode 100644 index e4f8d39..0000000 --- a/t/05-moose.t +++ /dev/null @@ -1,53 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; - -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'); -ok(!Foo::Sub->meta->has_method('new'), - '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 (immutable)'); -ok(Foo::Sub->meta->has_method('new'), - 'Foo::Sub has its own new method (immutable)'); - -package Foo::OtherSub; -use Moose; -use MooseX::NonMoose; -extends 'Foo'; - -package main; -my $foo_othersub = Foo::OtherSub->new; -isa_ok($foo_othersub, 'Foo'); -is($foo_othersub->foo, 'FOO', 'inheritance works (immutable when extending)'); -ok(!Foo::OtherSub->meta->has_method('new'), - 'Foo::OtherSub doesn\'t have its own new method (immutable when extending)'); - -Foo::OtherSub->meta->make_immutable; -$foo_othersub = Foo::OtherSub->new; -isa_ok($foo_othersub, 'Foo'); -is($foo_othersub->foo, 'FOO', 'inheritance works (all immutable)'); -ok(Foo::OtherSub->meta->has_method('new'), - 'Foo::OtherSub has its own new method (all immutable)'); - -done_testing; |