diff options
Diffstat (limited to 'web/server/h2o/libh2o/misc/p5-net-fastcgi/t/020_protocol/065_record_type.t')
-rw-r--r-- | web/server/h2o/libh2o/misc/p5-net-fastcgi/t/020_protocol/065_record_type.t | 105 |
1 files changed, 0 insertions, 105 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-net-fastcgi/t/020_protocol/065_record_type.t b/web/server/h2o/libh2o/misc/p5-net-fastcgi/t/020_protocol/065_record_type.t deleted file mode 100644 index 5836a05bc..000000000 --- a/web/server/h2o/libh2o/misc/p5-net-fastcgi/t/020_protocol/065_record_type.t +++ /dev/null @@ -1,105 +0,0 @@ -#!perl - -use strict; -use warnings; - -use lib 't/lib', 'lib'; -use myconfig; - -use Test::More tests => 55; -use Test::Exception; - -BEGIN { - use_ok('Net::FastCGI::Constant', qw[ :type ] ); - use_ok('Net::FastCGI::Protocol', qw[ is_discrete_type - is_known_type - is_management_type - is_stream_type ] ); -} - -sub TRUE () { !!1 } -sub FALSE () { !!0 } - -{ - my @known = ( - FCGI_BEGIN_REQUEST, - FCGI_ABORT_REQUEST, - FCGI_END_REQUEST, - FCGI_PARAMS, - FCGI_STDIN, - FCGI_STDOUT, - FCGI_STDERR, - FCGI_DATA, - FCGI_GET_VALUES, - FCGI_GET_VALUES_RESULT, - FCGI_UNKNOWN_TYPE, - FCGI_MAXTYPE, - ); - - foreach my $type (@known) { - is( is_known_type($type), TRUE, qq/is_known_type($type) = true/ ); - } -} - -{ - my @discrete = ( - FCGI_BEGIN_REQUEST, - FCGI_ABORT_REQUEST, - FCGI_END_REQUEST, - FCGI_GET_VALUES, - FCGI_GET_VALUES_RESULT, - FCGI_UNKNOWN_TYPE, - ); - - foreach my $type ( @discrete ) { - is( is_stream_type($type), FALSE, qq/is_stream_type($type) = false/ ); - is( is_discrete_type($type), TRUE, qq/is_discrete_type($type) = true/ ); - } -} - -{ - my @management = ( - FCGI_GET_VALUES, - FCGI_GET_VALUES_RESULT, - FCGI_UNKNOWN_TYPE, - ); - - foreach my $type (@management) { - is( is_management_type($type), TRUE, qq/is_management_type($type) = true/ ); - } -} - -{ - my @stream = ( - FCGI_PARAMS, - FCGI_STDIN, - FCGI_STDOUT, - FCGI_STDERR, - FCGI_DATA, - ); - - foreach my $type (@stream) { - is( is_stream_type($type), TRUE, qq/is_stream_type($type) = true/ ); - is( is_discrete_type($type), FALSE, qq/is_discrete_type($type) = false/ ); - } -} - -{ - my @subnames = qw( - is_known_type - is_discrete_type - is_management_type - is_stream_type - ); - - foreach my $name (@subnames) { - my $sub = __PACKAGE__->can($name); - is($sub->($_), FALSE, qq/$name($_) = false/) for (-10, 0, 12); - } -} - -throws_ok { is_known_type() } qr/^Usage: /; -throws_ok { is_discrete_type() } qr/^Usage: /; -throws_ok { is_management_type() } qr/^Usage: /; -throws_ok { is_stream_type() } qr/^Usage: /; - |