return is_string($output, $expect, $name);
}
- return $tb->ok(defined $output, $name);
+ $tb->ok(defined $output, $name);
+ return $output;
}
sub _getwarning {
--- /dev/null
+use strict;
+use warnings;
+
+use File::Basename qw( dirname );
+use File::Spec;
+use Test::More tests => 4;
+
+use_ok('Test::PLP');
+
+sub lacks_string($$;$) {
+ unlike($_[0], qr/\Q$_[1]/, $_[2]);
+}
+eval {
+ Test::LongString->import('lacks_string'); # set up by Test::PLP
+};
+
+chdir File::Spec->catdir(dirname($0), '..', 'eg')
+ or BAIL_OUT('cannot change to test directory ../eg/');
+
+for my $file (glob '*.plp') {
+ (my $name = $file) =~ s/[.][^.]+$//;
+ my $output = plp_is($file, undef, undef, undef, $name);
+ lacks_string($output, '"PLPerror"', "$name no errors");
+ lacks_string($output, '<warning>', "$name no warnings");
+}
+