1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
#!./perl
use strict;
use warnings;
use Test;
my %tests;
BEGIN {
# Force a flush after every print statement.
$| = 1;
%tests = (
"NETSNMP_DS_MAX_IDS" => 3,
"NETSNMP_DS_MAX_SUBIDS" => 48,
"NETSNMP_DS_LIBRARY_ID" => 0,
"NETSNMP_DS_APPLICATION_ID" => 1,
"NETSNMP_DS_TOKEN_ID" => 2,
"NETSNMP_DS_LIB_MIB_ERRORS" => 0,
"NETSNMP_DS_LIB_SAVE_MIB_DESCRS" => 1,
"NETSNMP_DS_LIB_MIB_COMMENT_TERM" => 2,
"NETSNMP_DS_LIB_MIB_PARSE_LABEL" => 3,
"NETSNMP_DS_LIB_DUMP_PACKET" => 4,
"NETSNMP_DS_LIB_LOG_TIMESTAMP" => 5,
"NETSNMP_DS_LIB_DONT_READ_CONFIGS" => 6,
"NETSNMP_DS_LIB_MIB_REPLACE" => 7,
"NETSNMP_DS_LIB_PRINT_NUMERIC_ENUM" => 8,
"NETSNMP_DS_LIB_PRINT_NUMERIC_OIDS" => 9,
"NETSNMP_DS_LIB_DONT_BREAKDOWN_OIDS" => 10,
"NETSNMP_DS_LIB_ALARM_DONT_USE_SIG" => 11,
"NETSNMP_DS_LIB_PRINT_FULL_OID" => 12,
"NETSNMP_DS_LIB_QUICK_PRINT" => 13,
"NETSNMP_DS_LIB_RANDOM_ACCESS" => 14,
"NETSNMP_DS_LIB_REGEX_ACCESS" => 15,
"NETSNMP_DS_LIB_DONT_CHECK_RANGE" => 16,
"NETSNMP_DS_LIB_NO_TOKEN_WARNINGS" => 17,
"NETSNMP_DS_LIB_NUMERIC_TIMETICKS" => 18,
"NETSNMP_DS_LIB_ESCAPE_QUOTES" => 19,
"NETSNMP_DS_LIB_REVERSE_ENCODE" => 20,
"NETSNMP_DS_LIB_PRINT_BARE_VALUE" => 21,
"NETSNMP_DS_LIB_EXTENDED_INDEX" => 22,
"NETSNMP_DS_LIB_PRINT_HEX_TEXT" => 23,
"NETSNMP_DS_LIB_PRINT_UCD_STYLE_OID" => 24,
"NETSNMP_DS_LIB_READ_UCD_STYLE_OID" => 25,
"NETSNMP_DS_LIB_HAVE_READ_PREMIB_CONFIG" => 26,
"NETSNMP_DS_LIB_HAVE_READ_CONFIG" => 27,
"NETSNMP_DS_LIB_QUICKE_PRINT" => 28,
"NETSNMP_DS_LIB_DONT_PRINT_UNITS" => 29,
"NETSNMP_DS_LIB_NO_DISPLAY_HINT" => 30,
"NETSNMP_DS_LIB_16BIT_IDS" => 31,
"NETSNMP_DS_LIB_DONT_PERSIST_STATE" => 32,
"NETSNMP_DS_LIB_2DIGIT_HEX_OUTPUT" => 33,
"NETSNMP_DS_LIB_IGNORE_NO_COMMUNITY" => 34,
"NETSNMP_DS_LIB_DISABLE_PERSISTENT_LOAD" => 35,
"NETSNMP_DS_LIB_DISABLE_PERSISTENT_SAVE" => 36,
"NETSNMP_DS_LIB_APPEND_LOGFILES" => 37,
"NETSNMP_DS_LIB_CLIENT_ADDR_USES_PORT" => 42,
"NETSNMP_DS_LIB_MIB_WARNINGS" => 0,
"NETSNMP_DS_LIB_SECLEVEL" => 1,
"NETSNMP_DS_LIB_SNMPVERSION" => 2,
"NETSNMP_DS_LIB_DEFAULT_PORT" => 3,
"NETSNMP_DS_LIB_OID_OUTPUT_FORMAT" => 4,
"NETSNMP_DS_LIB_STRING_OUTPUT_FORMAT" => 5,
"NETSNMP_DS_LIB_HEX_OUTPUT_LENGTH" => 6,
"NETSNMP_DS_LIB_SERVERSENDBUF" => 7,
"NETSNMP_DS_LIB_SERVERRECVBUF" => 8,
"NETSNMP_DS_LIB_CLIENTSENDBUF" => 9,
"NETSNMP_DS_LIB_CLIENTRECVBUF" => 10,
"NETSNMP_DS_SNMP_VERSION_1" => 128,
"NETSNMP_DS_SNMP_VERSION_2c" => 1,
"NETSNMP_DS_SNMP_VERSION_3" => 3,
"NETSNMP_DS_LIB_SECNAME" => 0,
"NETSNMP_DS_LIB_CONTEXT" => 1,
"NETSNMP_DS_LIB_PASSPHRASE" => 2,
"NETSNMP_DS_LIB_AUTHPASSPHRASE" => 3,
"NETSNMP_DS_LIB_PRIVPASSPHRASE" => 4,
"NETSNMP_DS_LIB_OPTIONALCONFIG" => 5,
"NETSNMP_DS_LIB_APPTYPE" => 6,
"NETSNMP_DS_LIB_COMMUNITY" => 7,
"NETSNMP_DS_LIB_PERSISTENT_DIR" => 8,
"NETSNMP_DS_LIB_CONFIGURATION_DIR" => 9,
"NETSNMP_DS_LIB_SECMODEL" => 10,
"NETSNMP_DS_LIB_MIBDIRS" => 11,
"NETSNMP_DS_LIB_OIDSUFFIX" => 12,
"NETSNMP_DS_LIB_OIDPREFIX" => 13,
"NETSNMP_DS_LIB_CLIENT_ADDR" => 14,
"NETSNMP_DS_LIB_TEMP_FILE_PATTERN" => 15,
"NETSNMP_DS_LIB_AUTHMASTERKEY" => 16,
"NETSNMP_DS_LIB_PRIVMASTERKEY" => 17,
"NETSNMP_DS_LIB_AUTHLOCALIZEDKEY" => 18,
"NETSNMP_DS_LIB_PRIVLOCALIZEDKEY" => 19,
"NETSNMP_DS_LIB_APPTYPES" => 20,
"NETSNMP_DS_LIB_KSM_KEYTAB" => 21,
"NETSNMP_DS_LIB_KSM_SERVICE_NAME" => 22,
);
plan tests => scalar(keys(%tests)) + 10;
}
use NetSNMP::default_store (':all');
ok(1);
######################### End of black magic.
ok(netsnmp_ds_set_string(1, 1, "hi there") == 0);
ok(netsnmp_ds_get_string(1, 1) eq "hi there");
ok(netsnmp_ds_set_int(1, 1, 42) == 0);
ok(netsnmp_ds_get_int(1, 1) == 42);
ok(netsnmp_ds_get_int(1, 2) == 0);
ok(NETSNMP_DS_LIB_REGEX_ACCESS == 15);
ok(netsnmp_ds_get_int(NETSNMP_DS_APPLICATION_ID, 1) == 42);
ok(netsnmp_ds_set_int(NETSNMP_DS_LIBRARY_ID, NETSNMP_DS_LIB_DEFAULT_PORT, 9161) == 0);
ok(netsnmp_ds_get_int(NETSNMP_DS_LIBRARY_ID, NETSNMP_DS_LIB_DEFAULT_PORT) == 9161);
foreach my $i (keys(%tests)) {
my $val = eval("NetSNMP::default_store::$i");
# print "$i -> $val -> $tests{$i}\n";
ok($val eq $tests{$i});
}
|
