1####################################################### 2# 3# Test readreallist() issue 364 4# 5####################################################### 6 7body common control 8{ 9 inputs => { "../../default.cf.sub" }; 10 bundlesequence => { default("$(this.promise_filename)") }; 11 version => "1.0"; 12} 13 14bundle agent init 15{ 16 files: 17 "$(G.testfile)" 18 delete => init_delete; 19 20 "$(G.testfile)" 21 create => "true", 22 edit_line => init_fill_in; 23} 24 25bundle edit_line init_fill_in 26{ 27 insert_lines: 28 "123 456"; 29 "789"; 30} 31 32body delete init_delete 33{ 34 dirlinks => "delete"; 35 rmdirs => "true"; 36} 37 38####################################################### 39 40bundle agent test 41{ 42 vars: 43 "nums" rlist => readreallist("$(G.testfile)","NoComment","\s+",5,100); 44 "sum" real => sum("nums"); 45} 46 47####################################################### 48 49bundle agent check 50{ 51 vars: 52 "nums" rlist => { @{test.nums} }; 53 54 classes: 55 "ok_list" not => strcmp("won't match", "$(nums)"); 56 "ok123" expression => strcmp("123", "$(nums)"); 57 "ok456" expression => strcmp("456", "$(nums)"); 58 "ok789" expression => strcmp("789", "$(nums)"); 59 "ok" and => { "ok_list", "ok123", "ok456", "ok789", 60 islessthan("$(test.sum)", "1368.1"), 61 isgreaterthan("$(test.sum)", "1367.9") 62 }; 63 64 reports: 65 DEBUG:: 66 "nums: $(nums)"; 67 "sum: $(test.sum)"; 68 ok:: 69 "$(this.promise_filename) Pass"; 70 71 !ok:: 72 "$(this.promise_filename) FAIL"; 73} 74