summaryrefslogtreecommitdiffstats
path: root/t/021-BUILDARGS.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/021-BUILDARGS.t
parent571bfa3b91ff5567338948776b6fce84d3ede09e (diff)
downloadmoosex-nonmoose-60c5f48aff6a579ce22bd4b4245f7be346609901.tar.gz
moosex-nonmoose-60c5f48aff6a579ce22bd4b4245f7be346609901.zip
convert to new dzil stuff
Diffstat (limited to 't/021-BUILDARGS.t')
-rw-r--r--t/021-BUILDARGS.t39
1 files changed, 0 insertions, 39 deletions
diff --git a/t/021-BUILDARGS.t b/t/021-BUILDARGS.t
deleted file mode 100644
index d6aa973..0000000
--- a/t/021-BUILDARGS.t
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 4;
-
-package Foo;
-
-sub new {
- my $class = shift;
- bless { name => $_[0] }, $class;
-}
-
-sub name { shift->{name} }
-
-package Foo::Moose;
-use Moose;
-use MooseX::NonMoose;
-extends 'Foo';
-
-has foo => (
- is => 'rw',
-);
-
-sub BUILDARGS {
- my $class = shift;
- # remove the argument that's only for passing to the superclass constructor
- shift;
- return $class->SUPER::BUILDARGS(@_);
-}
-
-package main;
-
-my $foo = Foo::Moose->new('bar', foo => 'baz');
-is($foo->name, 'bar', 'superclass constructor gets the right args');
-is($foo->foo, 'baz', 'subclass constructor gets the right args');
-Foo::Moose->meta->make_immutable;
-$foo = Foo::Moose->new('bar', foo => 'baz');
-is($foo->name, 'bar', 'superclass constructor gets the right args (immutable)');
-is($foo->foo, 'baz', 'subclass constructor gets the right args (immutable)');