-plp_is('exit', '1<:exit:>not <(reached)>', "$HEAD\n1");
-
-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";