-plp_is('<:=', '1<:=$foo=2:>3<:= $foo', "$HEAD\n1232");
-
-plp_is('%get', '<: print $get{test} if defined $get{test} and not exists $get{test2}', "$HEAD\n2\n");
-
-plp_is('%get array', '<:= @{$get{q/@test/}}', "$HEAD\n12\n");
-
-plp_is('%header',
- '<: $headers{_test}=2; print $header{x_PLP_version}; BEGIN { $header{"-tesT"}=1 }',
- "-tesT: 2\n$HEAD\n$PLP::VERSION"
-);
-
-plp_is('%header repetition', '.<: BEGIN{$header{A}="1\n2"} $header{A}=3', <<TEST);
-A: 1
-A: 2
-$HEAD
-.<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br>Can't set headers after sending them at testfile.plp line 1.
-(Output started at testfile.plp line 1.)
-</td></tr></table>
-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";
-
-my $SYNTAXERR = getwarning("q\cq\n\cq; syntax(error", 1, $testfile);
-plp_is('fatal error', "runtime\n<: syntax(error :>\nruntime", <<TEST);
-$HEAD
-<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br>$SYNTAXERR
-</td></tr></table>
-TEST
-
-SKIP: {
-
-my $INCFILE = File::Spec->rel2abs("$base/missinginclude");
-if (open my $dummy, "<", $INCFILE) { # like PLP::source will
- fail("file missinginclude shouldn't exist");
- skip("missinginclude tests", 2);