summaryrefslogtreecommitdiffstats
path: root/t/24-nonmoose-moose-nonmoose.t
diff options
context:
space:
mode:
Diffstat (limited to 't/24-nonmoose-moose-nonmoose.t')
-rw-r--r--t/24-nonmoose-moose-nonmoose.t85
1 files changed, 0 insertions, 85 deletions
diff --git a/t/24-nonmoose-moose-nonmoose.t b/t/24-nonmoose-moose-nonmoose.t
deleted file mode 100644
index 3299547..0000000
--- a/t/24-nonmoose-moose-nonmoose.t
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Moose;
-
-package Foo;
-
-sub new {
- my $class = shift;
- bless {@_}, $class;
-}
-
-sub foo { shift->{name} }
-
-package Foo::Moose;
-use Moose;
-use MooseX::NonMoose;
-extends 'Foo';
-
-has foo2 => (
- is => 'rw',
- isa => 'Str',
-);
-
-package Foo::Moose::Sub;
-use base 'Foo::Moose';
-
-package Bar;
-
-sub new {
- my $class = shift;
- bless {name => $_[0]}, $class;
-}
-
-sub bar { shift->{name} }
-
-package Bar::Moose;
-use Moose;
-use MooseX::NonMoose;
-extends 'Bar';
-
-has bar2 => (
- is => 'rw',
- isa => 'Str',
-);
-
-sub FOREIGNBUILDARGS {
- my $class = shift;
- my %args = @_;
- return $args{name};
-}
-
-package Bar::Moose::Sub;
-use base 'Bar::Moose';
-
-package main;
-
-with_immutable {
- my $foo = Foo::Moose::Sub->new(name => 'foomoosesub', foo2 => 'FOO2');
- isa_ok($foo, 'Foo');
- isa_ok($foo, 'Foo::Moose');
- is($foo->foo, 'foomoosesub', 'got name from nonmoose constructor');
- is($foo->foo2, 'FOO2', 'got attribute value from moose constructor');
- $foo = Foo::Moose->new(name => 'foomoosesub', foo2 => 'FOO2');
- isa_ok($foo, 'Foo');
- isa_ok($foo, 'Foo::Moose');
- is($foo->foo, 'foomoosesub', 'got name from nonmoose constructor');
- is($foo->foo2, 'FOO2', 'got attribute value from moose constructor');
-} 'Foo::Moose';
-
-with_immutable {
- my $bar = Bar::Moose::Sub->new(name => 'barmoosesub', bar2 => 'BAR2');
- isa_ok($bar, 'Bar');
- isa_ok($bar, 'Bar::Moose');
- is($bar->bar, 'barmoosesub', 'got name from nonmoose constructor');
- is($bar->bar2, 'BAR2', 'got attribute value from moose constructor');
- $bar = Bar::Moose->new(name => 'barmoosesub', bar2 => 'BAR2');
- isa_ok($bar, 'Bar');
- isa_ok($bar, 'Bar::Moose');
- is($bar->bar, 'barmoosesub', 'got name from nonmoose constructor');
- is($bar->bar2, 'BAR2', 'got attribute value from moose constructor');
-} 'Bar::Moose';
-
-done_testing;