1####################################################### 2# 3# Test readstringarray(), introduce a singleton with no other fields 4# 5# The 4xx tests are all related, and 400-419 are the readstringarray tests, 6# 420-439 the same for readstringarrayidx, 440-459 parsestringarray, and 7# 460-479 parsestringarrayidx 8# 9####################################################### 10 11body common control 12{ 13 inputs => { "../../default.cf.sub" }; 14 bundlesequence => { default("$(this.promise_filename)") }; 15 version => "1.0"; 16} 17 18bundle agent init 19{ 20 files: 21 "$(G.testfile)" 22 delete => init_delete; 23 24 "$(G.testfile)" 25 create => "true", 26 edit_line => init_fill_in; 27} 28 29bundle edit_line init_fill_in 30{ 31 insert_lines: 32 33 "0:1:2 34singleton 351:2:3"; 36 37} 38 39body delete init_delete 40{ 41 dirlinks => "delete"; 42 rmdirs => "true"; 43} 44 45####################################################### 46 47bundle agent test 48{ 49 vars: 50 "cnt" int => readstringarray("ary", "$(G.testfile)","NoComment",":",10,1000); 51 "num" int => "3"; 52} 53 54####################################################### 55 56bundle agent check 57{ 58 vars: 59 "idx" slist => getindices("test.ary"); 60 61 classes: 62 "good" and => { 63 strcmp("$(test.num)", "$(test.cnt)"), 64 65 strcmp("$(test.ary[0][0])", "0"), 66 strcmp("$(test.ary[0][1])", "1"), 67 strcmp("$(test.ary[0][2])", "2"), 68 69 strcmp("$(test.ary[singleton][0])", "singleton"), 70 71 strcmp("$(test.ary[1][0])", "1"), 72 strcmp("$(test.ary[1][1])", "2"), 73 strcmp("$(test.ary[1][2])", "3"), 74 }; 75 76 # Make sure there are no trailing elements 77 "bad" or => { 78 isvariable("test.ary[0][3]"), 79 isvariable("test.ary[singleton][1]"), 80 isvariable("test.ary[1][3]"), 81 }; 82 83 "ok" expression => "good&!bad"; 84 85 reports: 86 DEBUG:: 87 "expected $(test.num) entries, saw $(test.cnt)"; 88 89 "saw array indices '$(idx)'"; 90 91 "expected test.ary[0][0] = '0', saw '$(test.ary[0][0])'"; 92 "expected test.ary[0][1] = '1', saw '$(test.ary[0][1])'"; 93 "expected test.ary[0][2] = '2', saw '$(test.ary[0][2])'"; 94 95 "expected test.ary[singleton][0] = 'singleton', saw '$(test.ary[singleton][0])'"; 96 97 "expected test.ary[1][0] = '1', saw '$(test.ary[1][0])'"; 98 "expected test.ary[1][1] = '2', saw '$(test.ary[1][1])'"; 99 "expected test.ary[1][2] = '3', saw '$(test.ary[1][2])'"; 100 101 ok:: 102 "$(this.promise_filename) Pass"; 103 104 !ok:: 105 "$(this.promise_filename) FAIL"; 106} 107