perl/SNMP/t/dump-session.t

#!./perl

use strict;
use Test;

BEGIN {
    unless(grep /blib/, @INC) {
        chdir 't' if -d 't';
        @INC = '../lib' if -d '../lib';
    }
    eval "use Cwd qw(abs_path)";
    $ENV{'SNMPCONFPATH'} = 'nopath';
    $ENV{'MIBDIRS'} = '+' . abs_path("../../mibs");
    plan tests => 1;
}

use SNMP;
use Data::Dumper;
use vars qw($agent_port $comm $agent_host);
require "t/startagent.pl";

# See also https://sourceforge.net/p/net-snmp/bugs/2488/

my $s = new SNMP::Session(DestHost=>$agent_host, Version=>1, Community=>$comm,
                          RemotePort=>$agent_port);

print Dumper($s->get('anything'));

ok(1);