summaryrefslogtreecommitdiffstats
path: root/t/25-constructor-method-calls.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-09-04 19:38:21 -0400
committerJesse Luehrs <doy@tozt.net>2013-09-04 19:47:11 -0400
commit8bf5e6931a1bd96df0cdb1ceb94bbb3e578a8126 (patch)
tree2e659a8f07ea1cca3091a9c0578bbd8e53c20c11 /t/25-constructor-method-calls.t
parent8e0b4f219f2d8d94cb6937ef47168ac5fac03cd9 (diff)
downloadmoosex-nonmoose-8bf5e6931a1bd96df0cdb1ceb94bbb3e578a8126.tar.gz
moosex-nonmoose-8bf5e6931a1bd96df0cdb1ceb94bbb3e578a8126.zip
packaging
Diffstat (limited to 't/25-constructor-method-calls.t')
-rw-r--r--t/25-constructor-method-calls.t47
1 files changed, 0 insertions, 47 deletions
diff --git a/t/25-constructor-method-calls.t b/t/25-constructor-method-calls.t
deleted file mode 100644
index 7187bb8..0000000
--- a/t/25-constructor-method-calls.t
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Moose;
-
-my ($foo, $foosub);
-{
- package Foo;
-
- sub new {
- my $class = shift;
- my $obj = bless {}, $class;
- $obj->init;
- $obj;
- }
-
- sub init {
- $foo++
- }
-}
-
-{
- package Foo::Sub;
- use base 'Foo';
-
- sub init {
- $foosub++;
- shift->SUPER::init;
- }
-}
-
-{
- package Foo::Sub::Sub;
- use Moose;
- use MooseX::NonMoose;
- extends 'Foo::Sub';
-}
-
-with_immutable {
- ($foo, $foosub) = (0, 0);
- Foo::Sub::Sub->new;
- is($foo, 1, "Foo::init called");
- is($foosub, 1, "Foo::Sub::init called");
-} 'Foo::Sub::Sub';
-
-done_testing;