summaryrefslogtreecommitdiffstats
path: root/t/001-basic.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/001-basic.t
parent571bfa3b91ff5567338948776b6fce84d3ede09e (diff)
downloadmoosex-nonmoose-60c5f48aff6a579ce22bd4b4245f7be346609901.tar.gz
moosex-nonmoose-60c5f48aff6a579ce22bd4b4245f7be346609901.zip
convert to new dzil stuff
Diffstat (limited to 't/001-basic.t')
-rw-r--r--t/001-basic.t32
1 files changed, 0 insertions, 32 deletions
diff --git a/t/001-basic.t b/t/001-basic.t
deleted file mode 100644
index a448abf..0000000
--- a/t/001-basic.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 9;
-
-package Foo;
-
-sub new {
- my $class = shift;
- bless { _class => $class }, $class;
-}
-
-package Foo::Moose;
-use Moose;
-use MooseX::NonMoose;
-extends 'Foo';
-
-package main;
-my $foo = Foo->new;
-my $foo_moose = Foo::Moose->new;
-isa_ok($foo, 'Foo');
-is($foo->{_class}, 'Foo', 'Foo gets the correct class');
-isa_ok($foo_moose, 'Foo::Moose');
-isa_ok($foo_moose, 'Foo');
-isa_ok($foo_moose, 'Moose::Object');
-is($foo_moose->{_class}, 'Foo::Moose', 'Foo::Moose gets the correct class');
-my $meta = Foo::Moose->meta;
-ok($meta->has_method('new'), 'Foo::Moose has its own constructor');
-my $cc_meta = $meta->constructor_class->meta;
-isa_ok($cc_meta, 'Moose::Meta::Class');
-ok($cc_meta->does_role('MooseX::NonMoose::Meta::Role::Constructor'),
- 'Foo::Moose gets its constructor from MooseX::NonMoose');