#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 5;
do {
package Role;
is(Role->meta->name, "Role");
+ok(!Role->meta->has_attribute('attr'), "Role doesn't have attr attribute yet");
+
+do {
+ package Role;
+ use Mouse::Role;
+
+ has 'attr';
+
+ no Mouse::Role;
+};
+
+ok(Role->meta->has_attribute('attr'), "Role has an attr now");