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
|
#######################################################
#
# Test join()
#
#######################################################
body common control
{
inputs => { "../../default.cf.sub" };
bundlesequence => { default("$(this.promise_filename)") };
version => "1.0";
}
#######################################################
bundle agent init
{
vars:
"dummy" string => "dummy";
}
#######################################################
bundle agent test
{
vars:
"dummy" string => "dummy";
}
#######################################################
bundle agent check
{
vars:
"zeros" slist => { "solo" };
"zero" string => join("NOISE", "zeros");
"ones" slist => { "a", "bb", "ccc" };
"one" string => join(":", "ones");
"twos" slist => { "xx", "xx", "xx" };
"two" string => join("..", "twos");
"threes" slist => { "" };
"three" string => join("", "threes");
"fours" slist => { "1", "", "3" };
"four" string => join("", "fours");
"fives" slist => { "1", "", "3" };
"five" string => join(",", "fives");
"sixs" slist => { "one ", " two ", " three" };
"six" string => join(" and ", "sixs");
classes:
"ok1" expression => strcmp("solo", "$(zero)");
"ok2" expression => strcmp("a:bb:ccc", "$(one)");
"ok3" expression => strcmp("xx..xx..xx", "$(two)");
"ok4" expression => strcmp("", "$(three)");
"ok5" expression => strcmp("13", "$(four)");
"ok6" expression => strcmp("1,,3", "$(five)");
"ok7" expression => strcmp("one and two and three", "$(six)");
"ok" and => { ok1, ok2, ok3, ok4, ok5, ok6, ok7 };
reports:
DEBUG.ok1:: "ok1";
DEBUG.ok2:: "ok2";
DEBUG.ok3:: "ok3";
DEBUG.ok4:: "ok4";
DEBUG.ok5:: "ok5";
DEBUG.ok6:: "ok6";
DEBUG.ok7:: "ok7";
DEBUG::
'strcmp("solo", "$(zero)")';
'strcmp("a:bb:ccc", "$(one)")';
'strcmp("xx..xx..xx", "$(two)")';
'strcmp("", "$(three)")';
'strcmp("13", "$(four)")';
'strcmp("1,,3", "$(five)")';
'strcmp("one and two and three", "$(six)")';
ok::
"$(this.promise_filename) Pass";
!ok::
"$(this.promise_filename) FAIL";
}
|
