Tests: perl module.
This commit is contained in:
1
test/perl/body_io_file/file
Normal file
1
test/perl/body_io_file/file
Normal file
@@ -0,0 +1 @@
|
||||
body
|
||||
7
test/perl/body_io_file/psgi.pl
Normal file
7
test/perl/body_io_file/psgi.pl
Normal file
@@ -0,0 +1,7 @@
|
||||
my $app = sub {
|
||||
my ($environ) = @_;
|
||||
|
||||
open my $io, '<file';
|
||||
|
||||
return ['200', ['Content-Length' => 5], $io];
|
||||
};
|
||||
Reference in New Issue
Block a user