summaryrefslogtreecommitdiffstats
path: root/t/004-multi-level.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-06-15 01:36:37 -0500
committerJesse Luehrs <doy@tozt.net>2010-06-15 01:36:37 -0500
commit60c5f48aff6a579ce22bd4b4245f7be346609901 (patch)
tree7025b94a0470cef60d9c3694d0dbf247f5b30aaa /t/004-multi-level.t
parent571bfa3b91ff5567338948776b6fce84d3ede09e (diff)
downloadmoosex-nonmoose-60c5f48aff6a579ce22bd4b4245f7be346609901.tar.gz
moosex-nonmoose-60c5f48aff6a579ce22bd4b4245f7be346609901.zip
convert to new dzil stuff
Diffstat (limited to 't/004-multi-level.t')
-rw-r--r--t/004-multi-level.t55
1 files changed, 0 insertions, 55 deletions
diff --git a/t/004-multi-level.t b/t/004-multi-level.t
deleted file mode 100644
index 4cd0465..0000000
--- a/t/004-multi-level.t
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 11;
-
-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');