summaryrefslogtreecommitdiff
path: root/testing/fulltests/perl/T105unix.t
diff options
context:
space:
mode:
Diffstat (limited to 'testing/fulltests/perl/T105unix.t')
-rw-r--r--testing/fulltests/perl/T105unix.t19
1 files changed, 19 insertions, 0 deletions
diff --git a/testing/fulltests/perl/T105unix.t b/testing/fulltests/perl/T105unix.t
new file mode 100644
index 0000000..3c01719
--- /dev/null
+++ b/testing/fulltests/perl/T105unix.t
@@ -0,0 +1,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();