4 use File::Basename qw( dirname );
6 use Test::More tests => 4;
10 sub lacks_string($$;$) {
11 unlike($_[0], qr/\Q$_[1]/, $_[2]);
14 Test::LongString->import('lacks_string'); # set up by Test::PLP
17 chdir File::Spec->catdir(dirname($0), '..', 'eg')
18 or BAIL_OUT('cannot change to test directory ../eg/');
20 for my $file (glob '*.plp') {
21 (my $name = $file) =~ s/[.][^.]+$//;
22 my $output = plp_is($file, undef, undef, undef, $name);
23 lacks_string($output, '"PLPerror"', "$name no errors");
24 lacks_string($output, '<warning>', "$name no warnings");