Debug information: syntax error at $testfile line 2, at EOF
- (Might be a runaway multi-line \cq\cq string starting on line 1)
+Debug information: $SYNTAXERR
|
TEST
@@ -120,6 +156,8 @@ if (open my $dummy, "<", $INCFILE) { # like PLP::source will
}
my $INCWARN = qq{Can't open "$INCFILE" ($!)};
+my $VOIDWARN = getwarning('42', 2, $testfile);
+
plp_is('warnings', split /\n\n/, <
2<: 42 :>
@@ -129,10 +167,10 @@ plp_is('warnings', split /\n\n/, <${VOIDWARN}
1
2
-3warning at $testfile line 3.
+3warning at $testfile line 3.
4Debug information: $INCWARN at $testfile line 4.
|
@@ -169,8 +207,8 @@ plp_is('%ENV (on apache)', @envtest);
SKIP: {
chmod 0244, $testfile or skip("changed permissions", 1);
plp_is('permission denied', undef, <PLP: Can't read: $base/$testfile (/$testfile/test/123)
Content-Type: text/html
-PLP: Can't read: $base/$testfile (/$testfile/test/123)
Status: 403
@@ -187,8 +225,8 @@ chmod 0644, $testfile;
$ENV{PATH_TRANSLATED} = "$base/missinginclude/test/123";
plp_is('not found', undef, <PLP: Not found: $base/missinginclude/test/123 (/$testfile/test/123)
Content-Type: text/html
-PLP: Not found: $base/missinginclude/test/123 (/$testfile/test/123)
Status: 404
|