use ExtUtils::testlib;
use REGTEST;

local $/ = undef;
my $query = "select symbol from SEC where symbol=\'IBM\'\;";
my $queryLen = split//,$query;
my $testHost = "pisas392";
my $testPort = 50071;
my $prodHost = "pisas392";
my $prodPort = 50071;
my ($prodRes,$testRes);
($testRes,$prodRes) = REGTEST::rcv_msg($query,$queryLen,$testHost,$testPort,$pro
dHost,$prodPort,$testRes,$prodRes);