testing/fulltests/perl/T105unix.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl

# HEADER Perl Unix Domain Socket 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 => "bogus");
$test->require_feature("NETSNMP_TRANSPORT_UNIX_DOMAIN");
$test->{'agentaddress'} = "unix:" . $test->{'dir'} . "/unixtestsocket";
$test->run_tests();