Debug information: Can't set headers after sending them at testfile.plp line 1.
-(Output started at testfile.plp line 1.)
- |
-TEST
-
-#TODO: %post
-#TODO: %fields
-#TODO: %cookie
-
-plp_is('PLP_END', '<: PLP_END{print 1}; PLP_END{print 2}; print 3', "$HEAD\n321");
-
-plp_is('no warnings by default', '<: ignoreme :>ok', "$HEAD\nok");
-
-rename "$base/$testfile", "$base/$testfile.inc";
-plp_is('include', "<($testfile.inc)> <: include '$testfile.inc'", "$HEAD\nok ok");
-unlink "$base/$testfile.inc";
+ plp_ok($file);
+ eval { unlink $file }; # clean up
+}
-my $SYNTAXERR = getwarning("q\cq\n\cq; syntax(error", 1, $testfile);
-plp_is('fatal error', "runtime\n<: syntax(error :>\nruntime", <