testing/fulltests/perl/T102tcp.t

#!/usr/bin/perl

# HEADER Perl TCP IPv4 Test

BEGIN {
    if (exists($ENV{'srcdir'})) {
	push @INC, "$ENV{'srcdir'}/testing/fulltests/perl";
    } elsif (-d "fulltests/perl") {
	push @INC, "fulltests/perl";
    } elsif (-d "../perl") {
	push @INC, "../perl";
    }
}
use NetSNMPTestTransport;

my $test = new NetSNMPTestTransport(agentaddress => "tcp:localhost:9875");
$test->require_feature("NETSNMP_TRANSPORT_TCP_DOMAIN");
$test->run_tests();