1 files changed, 105 insertions, 0 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
new file mode 100644
index 00000000..5836a05b
--- /dev/null
+++ b/web/server/h2o/libh2o/misc/p5-net-fastcgi/t/020_protocol/065_record_type.t
@@ -0,0 +1,105 @@
+#!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: /;
+