From: Todd Hepler <thepler@employees.org>
Date: Sun, 16 Mar 2008 01:58:03 +0000 (+0000)
Subject: tests for metaclass() export
X-Git-Tag: 0_55~274
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07af02bd20f697a4f83a1891af085cc0401b4860;p=gitmo%2FMoose.git

tests for metaclass() export
---

diff --git a/t/010_basics/009_import_unimport.t b/t/010_basics/009_import_unimport.t
index 7ada8ad..529db5e 100644
--- a/t/010_basics/009_import_unimport.t
+++ b/t/010_basics/009_import_unimport.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 45;
+use Test::More tests => 47;
 
 BEGIN {
     use_ok('Moose');           
@@ -16,6 +16,7 @@ my @moose_exports = qw(
     override
     augment
     super inner
+    metaclass
 );
 
 {
diff --git a/t/010_basics/015_metaclass_keyword.t b/t/010_basics/015_metaclass_keyword.t
new file mode 100644
index 0000000..85eefa5
--- /dev/null
+++ b/t/010_basics/015_metaclass_keyword.t
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+{
+
+    package Foo;
+    use Test::More tests => 1;
+    use Moose;
+
+    is( metaclass(), __PACKAGE__->meta,
+        'metaclass and __PACKAGE__->meta are the same' );
+}
+