diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-04-25 01:36:31 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-04-25 01:37:24 -0500 |
commit | c700061c7b00d18778389d0850d21f966bd25ec6 (patch) | |
tree | 20ff7b852f4742f68a81599cb601a02ce64cbe3f /t/04-abstract-subclass.t | |
parent | 9a6b074c9ed600e402e0bfe09ff43dc9138bfaa8 (diff) | |
download | moosex-abc-c700061c7b00d18778389d0850d21f966bd25ec6.tar.gz moosex-abc-c700061c7b00d18778389d0850d21f966bd25ec6.zip |
cleanups
Diffstat (limited to 't/04-abstract-subclass.t')
-rw-r--r-- | t/04-abstract-subclass.t | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/t/04-abstract-subclass.t b/t/04-abstract-subclass.t deleted file mode 100644 index 3542d07..0000000 --- a/t/04-abstract-subclass.t +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More tests => 3; -use Test::Exception; - -package Foo; -use Moose; -use MooseX::ABC; - -requires 'foo'; -requires 'bar'; - -package Foo::Sub; -use Moose; -use MooseX::ABC; -extends 'Foo'; - -requires 'baz'; - -sub bar { 'BAR' } - -package Foo::Sub::Sub; -use Moose; -extends 'Foo::Sub'; - -sub foo { 'FOO' } -sub baz { 'BAZ' } - -package main; - -dies_ok { Foo->new } "can't create Foo objects"; -dies_ok { Foo::Sub->new } "can't create Foo::Sub objects"; -my $foo = Foo::Sub::Sub->new; -is($foo->foo, 'FOO', 'successfully created a Foo::Sub::Sub object'); |