use warnings;
use Test::More;
-
-eval "use Test::Output";
-plan skip_all => "Test::Output is required for this test" if $@;
-
-plan tests => 1;
+BEGIN {
+ eval "use Test::Output;";
+ plan skip_all => "Test::Output is required for this test" if $@;
+}
{
package ModdedNew;
extends 'ModdedNew';
- ::stderr_is(
+ ::stderr_like(
sub { Foo->meta->make_immutable },
- "Not inlining a constructor for Foo since it is not inheriting the default Moose::Object constructor\n (constructor has method modifiers which would be lost if it were inlined)\n",
+ qr/\QNot inlining 'new' for Foo since it has method modifiers which would be lost if it were inlined/,
'got a warning that Foo may not have an inlined constructor'
);
}
+
+done_testing;