4 use Test::More tests => 8;
9 map [__DIR__ . "/strict_$_->[0].fail", @$_[1 .. $#$_]],
10 ['1', qr/expect.*\).*after.*"\@y".*"\$z"/],
11 ['2', qr/expect.*\).*after.*"\@x".*"\$y"/],
12 ['3', qr/expect.*\).*after.*"%y".*"\$z"/],
13 ['4', qr/expect.*\).*after.*"\@y".*"\@z"/],
15 my ($file, $pat) = @$fail;
20 is $done, undef, "faulty code doesn't load";
21 $exc or die "$file: $err" if $err;