summaryrefslogtreecommitdiffstats
path: root/t/30-only-metaclass-trait.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/30-only-metaclass-trait.t
parent8e0b4f219f2d8d94cb6937ef47168ac5fac03cd9 (diff)
downloadmoosex-nonmoose-8bf5e6931a1bd96df0cdb1ceb94bbb3e578a8126.tar.gz
moosex-nonmoose-8bf5e6931a1bd96df0cdb1ceb94bbb3e578a8126.zip
packaging
Diffstat (limited to 't/30-only-metaclass-trait.t')
-rw-r--r--t/30-only-metaclass-trait.t24
1 files changed, 0 insertions, 24 deletions
diff --git a/t/30-only-metaclass-trait.t b/t/30-only-metaclass-trait.t
deleted file mode 100644
index c103067..0000000
--- a/t/30-only-metaclass-trait.t
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-
-package Foo;
-
-sub new { bless {}, shift }
-
-package Foo::Moose;
-use Moose -traits => 'MooseX::NonMoose::Meta::Role::Class';
-extends 'Foo';
-
-package main;
-ok(Foo::Moose->meta->has_method('new'),
- 'using only the metaclass trait still installs the constructor');
-isa_ok(Foo::Moose->new, 'Moose::Object');
-isa_ok(Foo::Moose->new, 'Foo');
-my $method = Foo::Moose->meta->get_method('new');
-Foo::Moose->meta->make_immutable;
-is(Foo::Moose->meta->get_method('new'), $method,
- 'inlining doesn\'t happen when the constructor trait isn\'t used');
-
-done_testing;