Tests: Perl streaming body and delayed response simple tests.
This commit is contained in:
parent
d92feef571
commit
754b85c3ee
3 changed files with 39 additions and 0 deletions
10
test/perl/delayed_response/psgi.pl
Normal file
10
test/perl/delayed_response/psgi.pl
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
my $app = sub {
|
||||||
|
my ($environ) = @_;
|
||||||
|
|
||||||
|
return sub {
|
||||||
|
(my $responder = shift)->([200, [
|
||||||
|
'Content-Type' => 'text/plain',
|
||||||
|
'Content-Length' => '12'
|
||||||
|
], ["Hello World!"]]);
|
||||||
|
}
|
||||||
|
};
|
13
test/perl/streaming_body/psgi.pl
Normal file
13
test/perl/streaming_body/psgi.pl
Normal file
|
@ -0,0 +1,13 @@
|
||||||
|
my $app = sub {
|
||||||
|
my ($environ) = @_;
|
||||||
|
|
||||||
|
return sub {
|
||||||
|
my $writer = (my $responder = shift)->([200, [
|
||||||
|
'Content-Type' => 'text/plain',
|
||||||
|
'Content-Length' => '12'
|
||||||
|
]]);
|
||||||
|
|
||||||
|
$writer->write("Hello World!");
|
||||||
|
$writer->close;
|
||||||
|
};
|
||||||
|
};
|
|
@ -200,5 +200,21 @@ class TestUnitPerlApplication(unit.TestUnitApplicationPerl):
|
||||||
self.search_in_log(r'\[error\].+IOFake close\(\) called'),
|
self.search_in_log(r'\[error\].+IOFake close\(\) called'),
|
||||||
'body io fake close')
|
'body io fake close')
|
||||||
|
|
||||||
|
def test_perl_delayed_response(self):
|
||||||
|
self.load('delayed_response')
|
||||||
|
|
||||||
|
resp = self.get()
|
||||||
|
|
||||||
|
self.assertEqual(resp['status'], 200, 'status')
|
||||||
|
self.assertEqual(resp['body'], 'Hello World!', 'body')
|
||||||
|
|
||||||
|
def test_perl_streaming_body(self):
|
||||||
|
self.load('streaming_body')
|
||||||
|
|
||||||
|
resp = self.get()
|
||||||
|
|
||||||
|
self.assertEqual(resp['status'], 200, 'status')
|
||||||
|
self.assertEqual(resp['body'], 'Hello World!', 'body')
|
||||||
|
|
||||||
if __name__ == '__main__':
|
if __name__ == '__main__':
|
||||||
TestUnitPerlApplication.main()
|
TestUnitPerlApplication.main()
|
||||||
|
|
Loading…
Reference in a new issue