#!/usr/bin/perl -w
use strict;
use lib 't/lib';
use Test::More tests => 1;
use Test::HexString;
use TestFCGI;
is_hexstr( fcgi_trans( type => 1, id => 1, data => "ABCDEFGH" ),
"\1\1\0\1\0\x08\0\0ABCDEFGH",
'Testing fcgi_trans() internal function' );