1 # Before `make install' is performed this script should be runnable with
2 # `make test'. After `make install' it should work as `perl test.pl'
4 ######################### We start with some black magic to print on failure.
6 # Change 1..1 below to 1..last_test_to_print .
7 # (It may become useful if the test is moved to ./t subdirectory.)
12 "NETSNMP_DS_MAX_IDS" => 3,
13 "NETSNMP_DS_MAX_SUBIDS" => 32,
14 "NETSNMP_DS_LIBRARY_ID" => 0,
15 "NETSNMP_DS_APPLICATION_ID" => 1,
16 "NETSNMP_DS_TOKEN_ID" => 2,
17 "NETSNMP_DS_LIB_MIB_ERRORS" => 0,
18 "NETSNMP_DS_LIB_SAVE_MIB_DESCRS" => 1,
19 "NETSNMP_DS_LIB_MIB_COMMENT_TERM" => 2,
20 "NETSNMP_DS_LIB_MIB_PARSE_LABEL" => 3,
21 "NETSNMP_DS_LIB_DUMP_PACKET" => 4,
22 "NETSNMP_DS_LIB_LOG_TIMESTAMP" => 5,
23 "NETSNMP_DS_LIB_DONT_READ_CONFIGS" => 6,
24 "NETSNMP_DS_LIB_MIB_REPLACE" => 7,
25 "NETSNMP_DS_LIB_PRINT_NUMERIC_ENUM" => 8,
26 "NETSNMP_DS_LIB_PRINT_NUMERIC_OIDS" => 9,
27 "NETSNMP_DS_LIB_DONT_BREAKDOWN_OIDS" => 10,
28 "NETSNMP_DS_LIB_ALARM_DONT_USE_SIG" => 11,
29 "NETSNMP_DS_LIB_PRINT_FULL_OID" => 12,
30 "NETSNMP_DS_LIB_QUICK_PRINT" => 13,
31 "NETSNMP_DS_LIB_RANDOM_ACCESS" => 14,
32 "NETSNMP_DS_LIB_REGEX_ACCESS" => 15,
33 "NETSNMP_DS_LIB_DONT_CHECK_RANGE" => 16,
34 "NETSNMP_DS_LIB_NO_TOKEN_WARNINGS" => 17,
35 "NETSNMP_DS_LIB_NUMERIC_TIMETICKS" => 18,
36 "NETSNMP_DS_LIB_ESCAPE_QUOTES" => 19,
37 "NETSNMP_DS_LIB_REVERSE_ENCODE" => 20,
38 "NETSNMP_DS_LIB_PRINT_BARE_VALUE" => 21,
39 "NETSNMP_DS_LIB_EXTENDED_INDEX" => 22,
40 "NETSNMP_DS_LIB_PRINT_HEX_TEXT" => 23,
41 "NETSNMP_DS_LIB_PRINT_UCD_STYLE_OID" => 24,
42 "NETSNMP_DS_LIB_READ_UCD_STYLE_OID" => 25,
43 "NETSNMP_DS_LIB_HAVE_READ_PREMIB_CONFIG" => 26,
44 "NETSNMP_DS_LIB_HAVE_READ_CONFIG" => 27,
45 "NETSNMP_DS_LIB_QUICKE_PRINT" => 28,
46 "NETSNMP_DS_LIB_MIB_WARNINGS" => 0,
47 "NETSNMP_DS_LIB_SECLEVEL" => 1,
48 "NETSNMP_DS_LIB_SNMPVERSION" => 2,
49 "NETSNMP_DS_LIB_DEFAULT_PORT" => 3,
50 "NETSNMP_DS_LIB_OID_OUTPUT_FORMAT" => 4,
51 "NETSNMP_DS_SNMP_VERSION_1" => 128,
52 "NETSNMP_DS_SNMP_VERSION_2c" => 1,
53 "NETSNMP_DS_SNMP_VERSION_3" => 3,
54 "NETSNMP_DS_LIB_SECNAME" => 0,
55 "NETSNMP_DS_LIB_CONTEXT" => 1,
56 "NETSNMP_DS_LIB_PASSPHRASE" => 2,
57 "NETSNMP_DS_LIB_AUTHPASSPHRASE" => 3,
58 "NETSNMP_DS_LIB_PRIVPASSPHRASE" => 4,
59 "NETSNMP_DS_LIB_OPTIONALCONFIG" => 5,
60 "NETSNMP_DS_LIB_APPTYPE" => 6,
61 "NETSNMP_DS_LIB_COMMUNITY" => 7,
62 "NETSNMP_DS_LIB_PERSISTENT_DIR" => 8,
63 "NETSNMP_DS_LIB_CONFIGURATION_DIR" => 9,
64 "NETSNMP_DS_LIB_SECMODEL" => 10,
65 "NETSNMP_DS_LIB_MIBDIRS" => 11,
68 print "1.." . (scalar(keys(%tests)) + 10) . "\n";
70 END {print "not ok 1\n" unless $loaded;}
71 use NetSNMP::default_store (':all');
75 ######################### End of black magic.
77 # Insert your test code below (better if it prints "ok 13"
78 # (correspondingly "not ok 13") depending on the success of chunk 13
81 print ((netsnmp_ds_set_string(1, 1, "hi there") == 0) ? "ok 2\n" : "not ok 2\n");
82 print ((netsnmp_ds_get_string(1, 1) eq "hi there") ? "ok 3\n" : "not ok 3\n");
83 print ((netsnmp_ds_set_int(1, 1, 42) == 0) ? "ok 4\n" : "not ok 4\n");
84 print ((netsnmp_ds_get_int(1, 1) == 42) ? "ok 5\n" : "not ok 5\n");
85 print ((netsnmp_ds_get_int(1, 2) == 0) ? "ok 6\n" : "not ok 6\n");
86 print ((NETSNMP_DS_LIB_REGEX_ACCESS == 15) ? "ok 7\n" : "not ok 7\n");
87 print ((netsnmp_ds_get_int(NETSNMP_DS_APPLICATION_ID, 1) == 42) ? "ok 8\n" : "not ok 8\n");
88 print ((netsnmp_ds_set_int(NETSNMP_DS_LIBRARY_ID, DS_LIB_DEFAULT_PORT, 9161) == 0) ? "ok 9\n" : "not ok 9\n");
89 print ((netsnmp_ds_get_int(NETSNMP_DS_LIBRARY_ID, DS_LIB_DEFAULT_PORT) == 9161) ? "ok 10\n" : "not ok 10\n");
92 foreach my $i (keys(%tests)) {
93 my $str = "NetSNMP::default_store::$i";
95 # print "$i -> $val -> $tests{$i}\n";
97 print (($val eq $tests{$i})?"ok $c\n" : "not ok $c\n# error: name=$i value_expected=$tests{$i} value_got=$val \n");