use strict;
use warnings;
-use Test::More tests => 9;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
{
package Dog::Role;
use Moose::Role;
- ::dies_ok {
+ ::ok ::exception {
before qr/bark.*/ => sub {};
- } '... this is not currently supported';
+ }, '... this is not currently supported';
- ::dies_ok {
+ ::ok ::exception {
around qr/bark.*/ => sub {};
- } '... this is not currently supported';
-
- ::dies_ok {
+ }, '... this is not currently supported';
+
+ ::ok ::exception {
after qr/bark.*/ => sub {};
- } '... this is not currently supported';
+ }, '... this is not currently supported';
}
+done_testing;