summaryrefslogtreecommitdiffstats
path: root/t/04-multi-level.t
diff options
context:
space:
mode:
Diffstat (limited to 't/04-multi-level.t')
-rw-r--r--t/04-multi-level.t57
1 files changed, 0 insertions, 57 deletions
diff --git a/t/04-multi-level.t b/t/04-multi-level.t
deleted file mode 100644
index 5201c47..0000000
--- a/t/04-multi-level.t
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-
-package Foo;
-
-sub new {
- my $class = shift;
- bless { foo => 'FOO' }, $class;
-}
-
-sub foo { shift->{foo} }
-
-package Foo::Moose;
-use Moose;
-use MooseX::NonMoose;
-extends 'Foo';
-
-has bar => (
- is => 'ro',
- default => 'BAR',
-);
-
-package Foo::Moose::Sub;
-use Moose;
-extends 'Foo::Moose';
-
-has baz => (
- is => 'ro',
- default => 'BAZ',
-);
-
-package main;
-my $foo_moose = Foo::Moose->new;
-is($foo_moose->foo, 'FOO', 'Foo::Moose::foo');
-is($foo_moose->bar, 'BAR', 'Foo::Moose::bar');
-isnt(Foo::Moose->meta->get_method('new'), undef,
- 'Foo::Moose gets its own constructor');
-
-my $foo_moose_sub = Foo::Moose::Sub->new;
-is($foo_moose_sub->foo, 'FOO', 'Foo::Moose::Sub::foo');
-is($foo_moose_sub->bar, 'BAR', 'Foo::Moose::Sub::bar');
-is($foo_moose_sub->baz, 'BAZ', 'Foo::Moose::Sub::baz');
-is(Foo::Moose::Sub->meta->get_method('new'), undef,
- 'Foo::Moose::Sub just uses the constructor for Foo::Moose');
-
-Foo::Moose->meta->make_immutable;
-Foo::Moose::Sub->meta->make_immutable;
-$foo_moose_sub = Foo::Moose::Sub->new;
-is($foo_moose_sub->foo, 'FOO', 'Foo::Moose::Sub::foo (immutable)');
-is($foo_moose_sub->bar, 'BAR', 'Foo::Moose::Sub::bar (immutable)');
-is($foo_moose_sub->baz, 'BAZ', 'Foo::Moose::Sub::baz (immutable)');
-isnt(Foo::Moose::Sub->meta->get_method('new'), undef,
- 'Foo::Moose::Sub has an inlined constructor');
-
-done_testing;