Begin writing tests for Mouse::Meta::Role

diff --git a/t/401-meta-role.t b/t/401-meta-role.t
new file mode 100644 (file)
index 0000000..827cd3b
--- /dev/null
+++ b/t/401-meta-role.t
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+do {
+    package Role;
+    use Mouse::Role;
+
+    no Mouse::Role;
+};
+
+ok(Role->meta, "Role has a meta");
+isa_ok(Role->meta, "Mouse::Meta::Role");
+