1 files changed, 0 insertions, 105 deletions
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/t/020_protocol/065_record_type.t b/debian/vendor-h2o/misc/p5-net-fastcgi/t/020_protocol/065_record_type.t
deleted file mode 100644
index 5836a05..0000000
--- a/debian/vendor-h2o/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: /;
-