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'),
|
||||
'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__':
|
||||
TestUnitPerlApplication.main()
|
||||
|
|
Loading…
Reference in a new issue