snapshot before legacy cleanup
This commit is contained in:
@@ -256,31 +256,6 @@ check H03 "нет функции handler в PHP" php fail \
|
||||
function process(array $data): array {
|
||||
return ["status" => 200];
|
||||
}'
|
||||
|
||||
echo ""
|
||||
echo "--- PERL ---"
|
||||
|
||||
# CORRECT
|
||||
check L01 "правильный Perl handler" perl ok \
|
||||
'sub handler {
|
||||
my ($env) = @_;
|
||||
return [200, ["Content-Type" => "text/plain"], ["Hello World"]];
|
||||
}'
|
||||
|
||||
# SYNTAX ERROR
|
||||
check L02 "синтаксическая ошибка Perl" perl fail \
|
||||
'sub handler {
|
||||
my $env = @_
|
||||
return [200, [], ["ok"]];
|
||||
}'
|
||||
|
||||
# NO ENTRYPOINT
|
||||
check L03 "нет sub handler в Perl" perl fail \
|
||||
'sub process {
|
||||
my ($env) = @_;
|
||||
return [200, [], ["ok"]];
|
||||
}'
|
||||
|
||||
echo ""
|
||||
echo "--- ГРАНИЧНЫЕ СЛУЧАИ ---"
|
||||
|
||||
|
||||
Reference in New Issue
Block a user