Attachment 'match-rule-test.scm'
Download 1 (use-modules
2 (oop goops)
3 (oop goops describe))
4
5 (load "collection.scm")
6
7 ;;;;;;;;;;;;;;;;;;;;;;; Example / Tests;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8
9 ;; NB.
10 ;; -All accesibles have STATE_ACTIVE plus anyother defined at creation time
11 ;; -Run-test will execute whatever test is specified
12
13 (define (run-test n)
14 (print-children
15 (eval-string (string-append "(get-children app mr"
16 (number->string n)
17 " #f #f #f)"))))
18
19 (define sal (list "STATE_ACTIVE"))
20
21 (define buttons (map (lambda (n s a) (button-new n (append s sal) a ""))
22 '("button1" "button2" "button3"
23 "button4" "button5" "button6")
24 '(("STATE_FOCUSED" "STATE_BUSY")
25 ("STATE_ENABLED")
26 ("STATE_SHOWING" "STATE_PRESSED")
27 ("STATE_FOCUSED" "STATE_PRESSED" "STATE_ENABLED")
28 ("STATE_VISIBLE" "STATE_BUSY")
29 ("STATE_BUSY"))
30 '("foo=bar;id=sonic;flag=false;" "foo=zar;id=tux;flag=true;"
31 "foo=var;id=tails;flag=true;" "foo=car;id=knuckles;flag=none;"
32 "foo=tar;id=silver;flag=false;" "foo=par;id=shadow;flag=false;")))
33
34 (define texts (map (lambda (n s a) (text-new n (append s sal) a ""))
35 '("text1" "text2" "text3"
36 "text4" "text5" "text6")
37 '(("STATE_ENABLED" "STATE_BUSY")
38 ("STATE_ENABLED" "STATE_PRESSED")
39 ("STATE_SHOWING" "STATE_VISIBLE")
40 ("STATE_PRESSED")
41 ("STATE_VISIBLE" )
42 ("STATE_VISIBLE" "STATE_BUSY"))
43 '("foo=bar;id=ryu;flag=false;" "foo=gar;id=chunli;flag=true;"
44 "foo=far;id=blanka;flag=none;" "foo=rar;id=cody;flag=none;"
45 "foo=lar;id=zangief;flag=null;" "foo=sar;id=vega;flag=false;")))
46
47
48 (define app (app-new "APP" '("STATE_ACTIVE") '() "" (append texts buttons)))
49
50
51 ;;; MATCH RULES
52
53
54 (define mr1 (create-match-rule '("STATE_ENABLED") 'MATCH_ANY
55 '() 'MATCH_ANY
56 '("ROLE_PUSH_BUTTON") 'MATCH_ANY
57 '() 'MATCH_ANY
58 #f))
59
60
61 (define mr2 (create-match-rule '("STATE_ENABLED") 'MATCH_NONE
62 '() 'MATCH_ANY
63 '("ROLE_PUSH_BUTTON") 'MATCH_ANY
64 '() 'MATCH_ANY
65 #f))
66
67 (define mr3 (create-match-rule '("STATE_ENABLED") 'MATCH_NONE
68 '() 'MATCH_ANY
69 '("ROLE_PUSH_BUTTON") 'MATCH_NONE
70 '() 'MATCH_ANY
71 #f))
72
73 (define mr4 (create-match-rule '("STATE_ENABLED") 'MATCH_ALL
74 '() 'MATCH_ANY
75 '("ROLE_PUSH_BUTTON") 'MATCH_NONE
76 '() 'MATCH_ANY
77 #f))
78
79 (define mr5 (create-match-rule '("STATE_ENABLED" "STATE_ACTIVE") 'MATCH_ALL
80 '() 'MATCH_ANY
81 '("ROLE_PUSH_BUTTON") 'MATCH_NONE
82 '() 'MATCH_ANY
83 #f))
84
85 (define mr5 (create-match-rule '("STATE_ENABLED" "STATE_ACTIVE") 'MATCH_ANY
86 '() 'MATCH_ANY
87 '("ROLE_PUSH_BUTTON") 'MATCH_NONE
88 '() 'MATCH_ANY
89 #f))
90
91 (define mr6 (create-match-rule '("STATE_ENABLED" "STATE_ACTIVE") 'MATCH_ANY
92 '() 'MATCH_ANY
93 '("ROLE_PUSH_BUTTON" "ROLE_TEXT") 'MATCH_ANY
94 '() 'MATCH_ANY
95 #f))
96
97 (define mr7 (create-match-rule '("STATE_ENABLED" "STATE_PRESSED") 'MATCH_NONE
98 '() 'MATCH_ANY
99 '("ROLE_PUSH_BUTTON" "ROLE_TEXT") 'MATCH_ANY
100 '() 'MATCH_ANY
101 #f))
102
103 (define mr8 (create-match-rule '("STATE_ENABLED" "STATE_FOCUSED" "STATE_VISIBLE") 'MATCH_ANY
104 '() 'MATCH_ANY
105 '() 'MATCH_ANY
106 '() 'MATCH_ANY
107 #f))
108
109 (define mr9 (create-match-rule '("STATE_ENABLED" "STATE_FOCUSED" "STATE_VISIBLE") 'MATCH_NONE
110 '() 'MATCH_ANY
111 '() 'MATCH_ANY
112 '() 'MATCH_ANY
113 #f))
114
115 (define mr10 (create-match-rule '() 'MATCH_ANY
116 '() 'MATCH_ANY
117 '() 'MATCH_ANY
118 '() 'MATCH_ANY
119 #f))
120
121
122 (define mr11 (create-match-rule '() 'MATCH_ANY
123 "foo=bar;id=sonic" 'MATCH_ALL
124 '() 'MATCH_ALL
125 '() 'MATCH_ANY
126 #f))
127
128
129 (define mr12 (create-match-rule '() 'MATCH_ANY
130 "foo=bar;id=sonic" 'MATCH_ANY
131 '() 'MATCH_ALL
132 '() 'MATCH_ANY
133 #f))
134
135 (define mr13 (create-match-rule '() 'MATCH_ANY
136 "foo=bar;id=sonic" 'MATCH_NONE
137 '() 'MATCH_ANY
138 '() 'MATCH_ANY
139 #f))
140
141 (define mr14 (create-match-rule '() 'MATCH_ANY
142 "id=shadow;id=sonic;id=tails;id=silver;id=tux" 'MATCH_ANY
143 '() 'MATCH_ANY
144 '() 'MATCH_ANY
145 #f))
146
147 (define mr15 (create-match-rule '("STATE_ENABLED" "STATE_FOCUSED" "STATE_VISIBLE") 'MATCH_ANY
148 "id=shadow;id=sonic;id=tails;id=silver;id=tux" 'MATCH_ANY
149 '() 'MATCH_ANY
150 '() 'MATCH_ANY
151 #f))
152
153 (define mr16 (create-match-rule '("STATE_ENABLED" "STATE_FOCUSED" "STATE_VISIBLE") 'MATCH_ANY
154 "id=shadow;id=sonic;id=tails;id=silver;id=tux;id=ruy;id=chunli" 'MATCH_ANY
155 '() 'MATCH_ANY
156 '() 'MATCH_ANY
157 #f))
158
159 (define mr17 (create-match-rule '("STATE_ENABLED" "STATE_FOCUSED" "STATE_VISIBLE") 'MATCH_ANY
160 "id=shadow;id=sonic;id=tails;id=silver;id=tux;id=ruy;id=chunli" 'MATCH_NONE
161 '() 'MATCH_ANY
162 '() 'MATCH_ANY
163 #f))
164
165 (define mr18 (create-match-rule '("STATE_ENABLED" "STATE_FOCUSED" "STATE_VISIBLE") 'MATCH_NONE
166 "id=shadow;id=sonic;id=tails;id=silver;id=tux;id=ruy;id=chunli" 'MATCH_NONE
167 '() 'MATCH_ANY
168 '() 'MATCH_ANY
169 #f))
170
171 (define mr18 (create-match-rule '("STATE_FOCUSED" "STATE_VISIBLE") 'MATCH_ANY
172 "id=shadow;id=sonic;id=tails;id=silver;id=tux;id=ruy;id=chunli" 'MATCH_NONE
173 '() 'MATCH_ANY
174 '() 'MATCH_ANY
175 #f))
Attached Files
To refer to attachments on a page, use attachment:filename, as shown below in the list of files. Do NOT use the URL of the [get] link, since this is subject to change and can break easily.You are not allowed to attach a file to this page.