#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 4;
use Test::Exception;
lives_ok {
use Mouse::Role;
extends 'Role::Parent';
-} qr/Mouse::Role does not currently support 'extends'/;
+
+ no Mouse::Role;
+} qr/Role does not currently support 'extends'/;
+
+lives_ok {
+ package Role;
+ use Mouse::Role;
+
+ sub foo {}
+};
+
+lives_ok {
+ package Role;
+ use Mouse::Role;
+
+ before foo => sub {};
+ after foo => sub {};
+ around foo => sub {};
+};