use strict;
use warnings;
-use Test::More tests => 30;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
sub U {
my $f = shift;
package My::List1;
use Moose;
- ::lives_ok {
+ ::is( ::exception {
with 'List', 'List::Immutable';
- } '... successfully composed roles together';
+ }, undef, '... successfully composed roles together' );
package My::List2;
use Moose;
- ::lives_ok {
+ ::is( ::exception {
with 'List::Immutable', 'List';
- } '... successfully composed roles together';
+ }, undef, '... successfully composed roles together' );
}
is($coll2->print, '1, 4, 9, 16, 25, 36, 49, 64, 81, 100', '... new collection is changed');
}
-
-
-
-
-
-
-
+done_testing;