#!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
use strict;
use warnings;
-use Test::More;
-$TODO = q{Mouse is not yet completed};
+use Test::More tests => 27;
use Test::Exception;
+
=pod
This basically just makes sure that using +name
} "or add new types to the union";
}
-{
- package Role::With::PlusAttr;
- use Mouse::Role;
-
- with 'Foo::Role';
-
- ::throws_ok {
- has '+bar' => ( is => 'ro' );
- } qr/has '\+attr' is not supported in roles/,
- "Test has '+attr' in roles explodes";
-}
-
-done_testing;