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 (file)
--- 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 (file)
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' );
+}
+