summaryrefslogtreecommitdiffstats
path: root/t/032-moosex-insideout.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/032-moosex-insideout.t
parent571bfa3b91ff5567338948776b6fce84d3ede09e (diff)
downloadmoosex-nonmoose-60c5f48aff6a579ce22bd4b4245f7be346609901.tar.gz
moosex-nonmoose-60c5f48aff6a579ce22bd4b4245f7be346609901.zip
convert to new dzil stuff
Diffstat (limited to 't/032-moosex-insideout.t')
-rw-r--r--t/032-moosex-insideout.t85
1 files changed, 0 insertions, 85 deletions
diff --git a/t/032-moosex-insideout.t b/t/032-moosex-insideout.t
deleted file mode 100644
index 128c437..0000000
--- a/t/032-moosex-insideout.t
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-BEGIN {
- eval "use MooseX::InsideOut 0.100 ()";
- plan skip_all => "MooseX::InsideOut is required for this test" if $@;
- plan tests => 10;
-}
-
-BEGIN {
- require Moose;
-
- package Foo::Exporter;
- use Moose::Exporter;
- Moose::Exporter->setup_import_methods(also => ['Moose']);
-
- sub init_meta {
- shift;
- my %options = @_;
- Moose->init_meta(%options);
- Moose::Util::MetaRole::apply_metaclass_roles(
- for_class => $options{for_class},
- metaclass_roles => ['MooseX::NonMoose::Meta::Role::Class'],
- constructor_class_roles =>
- ['MooseX::NonMoose::Meta::Role::Constructor'],
- instance_metaclass_roles =>
- ['MooseX::InsideOut::Role::Meta::Instance'],
- );
- return Class::MOP::class_of($options{for_class});
- }
-}
-
-package Foo;
-
-sub new {
- my $class = shift;
- bless [$_[0]], $class;
-}
-
-sub foo {
- my $self = shift;
- $self->[0] = shift if @_;
- $self->[0];
-}
-
-package Foo::Moose;
-BEGIN { Foo::Exporter->import }
-extends 'Foo';
-
-has bar => (
- is => 'rw',
- isa => 'Str',
-);
-
-sub BUILDARGS {
- my $self = shift;
- shift;
- return $self->SUPER::BUILDARGS(@_);
-}
-
-package Foo::Moose::Sub;
-use base 'Foo::Moose';
-
-package main;
-my $foo = Foo::Moose->new('FOO', bar => 'BAR');
-is($foo->foo, 'FOO', 'base class accessor works');
-is($foo->bar, 'BAR', 'subclass accessor works');
-$foo->foo('OOF');
-$foo->bar('RAB');
-is($foo->foo, 'OOF', 'base class accessor works (setting)');
-is($foo->bar, 'RAB', 'subclass accessor works (setting)');
-my $sub_foo = eval { Foo::Moose::Sub->new(FOO => bar => 'AHOY') };
-is(eval { $sub_foo->bar }, 'AHOY', 'subclass constructor works');
-Foo::Moose->meta->make_immutable;
-$foo = Foo::Moose->new('FOO', bar => 'BAR');
-is($foo->foo, 'FOO', 'base class accessor works (immutable)');
-is($foo->bar, 'BAR', 'subclass accessor works (immutable)');
-$foo->foo('OOF');
-$foo->bar('RAB');
-is($foo->foo, 'OOF', 'base class accessor works (setting) (immutable)');
-is($foo->bar, 'RAB', 'subclass accessor works (setting) (immutable)');
-my $sub_foo_immutable = eval { Foo::Moose::Sub->new(FOO => bar => 'AHOY') };
-is(eval { $sub_foo_immutable->bar }, 'AHOY',
- 'subclass constructor works (immutable)');