summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/misc/p5-net-fastcgi/t/020_protocol/015_build_stream.t
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/misc/p5-net-fastcgi/t/020_protocol/015_build_stream.t')
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/t/020_protocol/015_build_stream.t82
1 files changed, 0 insertions, 82 deletions
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/t/020_protocol/015_build_stream.t b/debian/vendor-h2o/misc/p5-net-fastcgi/t/020_protocol/015_build_stream.t
deleted file mode 100644
index 233f225..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/t/020_protocol/015_build_stream.t
+++ /dev/null
@@ -1,82 +0,0 @@
-#!perl
-
-use strict;
-use warnings;
-
-use lib 't/lib', 'lib';
-use myconfig;
-
-use Test::More tests => 12;
-use Test::HexString;
-use Test::Exception;
-
-BEGIN {
- use_ok('Net::FastCGI::Protocol', qw[ build_stream ]);
-}
-
-sub TRUE () { !!1 }
-sub FALSE () { !!0 }
-
-my @tests = (
- # expected, type, request_id, content, terminate
- [ "", 1, 1, '', FALSE ],
- [ "", 1, 1, undef, FALSE ],
- [ "\x01\x01\x00\x01\x00\x00\x00\x00", 1, 1, '', TRUE ],
- [ "\x01\x01\x00\x01\x00\x00\x00\x00", 1, 1, undef, TRUE ],
-
- [ "\x01\x01\x00\x01\x00\x03\x05\x00"
- . "FOO\x00\x00\x00\x00\x00", 1, 1, 'FOO', FALSE ],
-
- [ "\x01\x01\x00\x01\x00\x03\x05\x00"
- . "FOO\x00\x00\x00\x00\x00"
- . "\x01\x01\x00\x01\x00\x00\x00\x00", 1, 1, 'FOO', TRUE ],
-);
-
-foreach my $test (@tests) {
- my $expected = $test->[0];
- my $got = build_stream(@$test[1..4]);
- is_hexstr($got, $expected, 'build_stream()');
-}
-
-{
- my $header = "\x01\x01\x00\x01\x7F\xF8\x00\x00";
- my $content = "x" x 32760;
- my $trailer = "\x01\x01\x00\x01\x00\x00\x00\x00";
-
- {
- my $expected = $header . $content;
- my $got = build_stream(1,1, $content);
- is_hexstr($got, $expected, 'build_stream(content_length: 32760 terminate:false)');
- }
-
- {
- my $expected = $header . $content . $trailer;
- my $got = build_stream(1,1, $content, 1);
- is_hexstr($got, $expected, 'build_stream(content_length: 32760 terminate:true)');
- }
-}
-
-{
- my $records = "\x01\x01\x00\x01\x7F\xF8\x00\x00" # H1
- . "x" x 32760 # C1
- . "\x01\x01\x00\x01\x00\x08\x00\x00" # H2
- . "x" x 8 # C2
- ;
- my $content = "x" x 32768;
- my $trailer = "\x01\x01\x00\x01\x00\x00\x00\x00";
-
- {
- my $expected = $records;
- my $got = build_stream(1,1, $content);
- is_hexstr($got, $records, 'build_stream(content_length: 32768 terminate:false)');
- }
-
- {
- my $expected = $records . $trailer;
- my $got = build_stream(1,1, $content, 1);
- is_hexstr($got, $expected, 'build_stream(content_length: 32768 terminate:true)');
- }
-}
-
-throws_ok { build_stream() } qr/^Usage: /;
-