diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-07-18 23:58:56 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-07-19 00:03:12 -0500 |
commit | cb170931288a0dbef03fece2a0fa01decbd5dfbb (patch) | |
tree | abf1e0c128bdb1932b6cd7d33a44a7d45511d951 /t/004-abstract-subclass.t | |
parent | 2f257268ef4fe266b0b24bf182242961cfd85ce2 (diff) | |
download | moosex-abc-cb170931288a0dbef03fece2a0fa01decbd5dfbb.tar.gz moosex-abc-cb170931288a0dbef03fece2a0fa01decbd5dfbb.zip |
update dzil stuff0.05
Diffstat (limited to 't/004-abstract-subclass.t')
-rw-r--r-- | t/004-abstract-subclass.t | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/t/004-abstract-subclass.t b/t/004-abstract-subclass.t deleted file mode 100644 index 3542d07..0000000 --- a/t/004-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'); |