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
@@ -119,33 +158,25 @@ 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 :>
-3
-<: warn "warning" :>
-4
-<: include "missinginclude" :>
-5
-<(missinginclude)>
+1<: use warnings :>
+2<: 42 :>
+3<: warn "warning" :>
+4<: include "missinginclude" :>
+5<(missinginclude)>
6
$HEAD
-Useless use of a constant in void context at $testfile line 4.
+${VOIDWARN}
1
-
2
+3warning at $testfile line 3.
-3
-warning at $testfile line 6.
-
-4
-Debug information: $INCWARN at $testfile line 8.
+4Debug information: $INCWARN at $testfile line 4.
|
-5
-Debug information: $INCWARN at $testfile line 10.
+5Debug information: $INCWARN at $testfile line 5.
|
TEST
@@ -178,8 +209,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
@@ -194,10 +225,10 @@ TEST
chmod 0644, $testfile;
}
-$ENV{PATH_TRANSLATED} = "$base/missinginclude/test/123";
-plp_is('not found', undef, < "$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
@@ -210,7 +241,8 @@ The requested URL /$testfile/test/123 was not found on this server.
|
|
|