From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 17 Jun 2008 03:26:48 +0000 (+0000)
Subject: Begin writing tests for Mouse::Meta::Role
X-Git-Tag: 0.19~309
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ffa533a81c638abce5bfac2e363d1fe7645380e;p=gitmo%2FMouse.git

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
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");
+