1 #
2 # CDDL HEADER START
3 #
4 # The contents of this file are subject to the terms of the
5 # Common Development and Distribution License (the "License").
6 # You may not use this file except in compliance with the License.
7 #
8 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 # or http://www.opensolaris.org/os/licensing.
10 # See the License for the specific language governing permissions
11 # and limitations under the License.
12 #
13 # When distributing Covered Code, include this CDDL HEADER in each
14 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 # If applicable, add the following below this CDDL HEADER, with the
16 # fields enclosed by brackets "[]" replaced with your own identifying
17 # information: Portions Copyright [yyyy] [name of copyright owner]
18 #
19 # CDDL HEADER END
20 #
21
22 #
23 # Copyright 2006 Sun Microsystems, Inc. All rights reserved.
24 # Use is subject to license terms.
25 #
26 # Setclientid and setclientid_confirm testing.
27
28 # TESTROOT directory; must be set in the environment already
29 set TESTROOT $env(TESTROOT)
30
31 source [file join ${TESTROOT} tcl.init]
32 source [file join ${TESTROOT} testproc]
33 source [file join ${TESTROOT} lcltools]
34
35 # setting local variables
36 set TNAME $argv0
37
38
39 # Start testing
40 # --------------------------------------------------------------
41
42 # a: new unique client
43 set tag $TNAME{a}
44 Connect
45 set expct "OK"
46 set ASSERTION "Setclientid new unique client, expect $expct"
47 putmsg stdout 0 "$tag: $ASSERTION"
48 set verifier "[clock clicks]"
49 set owner "$tag"
50 set clientid ""
51 set cverf ""
52 set st [setclient $verifier $owner clientid cverf res]
53 ckres "Setclientid" $st $expct $res $PASS
54
55 # a1: new unique client
56 set tag $TNAME{a1}
57 set ASSERTION "Setclientid_confirm new unique client,\n\texpect $expct"
58 putmsg stdout 0 "$tag: $ASSERTION"
59 if {$st == "OK"} {
60 set st [setclientconf $clientid $cverf res]
61 set retcode "FAIL"
62 } else {
63 set retcode "UNRESOLVED"
64 }
65 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
66 Disconnect
67
68
69 # b: verifier set to 0s
70 set tag $TNAME{b}
71 Connect
72 set expct "OK"
73 set ASSERTION "Setclientid verifier set to 0s, expect $expct"
74 putmsg stdout 0 "$tag: $ASSERTION"
75 # four words with 0s
76 set verifier [binary format "S4" {0 0 0 0}]
77 set owner "$tag"
78 set clientid ""
79 set cverf ""
80 set st [setclient $verifier $owner clientid cverf res]
81 ckres "Setclientid" $st $expct $res $PASS
82
83 # b1: verifier set to 0s
84 set tag $TNAME{b1}
85 set ASSERTION "Setclientid_confirm verifier set to 0s,\n\texpect $expct"
86 putmsg stdout 0 "$tag: $ASSERTION"
87 if {$st == "OK"} {
88 set st [setclientconf $clientid $cverf res]
89 set retcode "FAIL"
90 } else {
91 set retcode "UNRESOLVED"
92 }
93 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
94 Disconnect
95
96
97 # c: verifier max integer
98 set tag $TNAME{c}
99 Connect
100 set expct "OK"
101 set ASSERTION "Setclientid verifier set to max integer, expect $expct"
102 putmsg stdout 0 "$tag: $ASSERTION"
103 # four words with 1s
104 set verifier [binary format "S4" {65535 65535 65535 65535}]
105 set owner "$tag"
106 set clientid ""
107 set cverf ""
108 set st [setclient $verifier $owner clientid cverf res]
109 ckres "Setclientid" $st $expct $res $PASS
110
111 # c1: verifier max integer
112 set tag $TNAME{c1}
113 set ASSERTION \
114 "Setclientid_confirm verifier set to max integer,\n\texpect $expct"
115 putmsg stdout 0 "$tag: $ASSERTION"
116 if {$st == "OK"} {
117 set st [setclientconf $clientid $cverf res]
118 set retcode "FAIL"
119 } else {
120 set retcode "UNRESOLVED"
121 }
122 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
123 Disconnect
124
125
126 # d: verifier set to alphanumeric characters
127 set tag $TNAME{d}
128 Connect
129 set expct "OK"
130 set ASSERTION "Setclientid verifier set to alphanumeric chars, expect $expct"
131 putmsg stdout 0 "$tag: $ASSERTION"
132 set verifier "ab12ef90"
133 set owner "$tag"
134 set clientid ""
135 set cverf ""
136 set st [setclient $verifier $owner clientid cverf res]
137 ckres "Setclientid" $st $expct $res $PASS
138
139 # d1: verifier set to alphanumeric characters
140 set tag $TNAME{d1}
141 set ASSERTION \
142 "Setclientid_confirm verifier set to alphanumeric chars,\n\t\
143 expect $expct"
144 putmsg stdout 0 "$tag: $ASSERTION"
145 if {$st == "OK"} {
146 set st [setclientconf $clientid $cverf res]
147 set retcode "FAIL"
148 } else {
149 set retcode "UNRESOLVED"
150 }
151 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
152 Disconnect
153
154
155 # e: verifier set to alphabetic characters
156 set tag $TNAME{e}
157 Connect
158 set expct "OK"
159 set ASSERTION "Setclientid verifier set to alphabetic chars, expect $expct"
160 putmsg stdout 0 "$tag: $ASSERTION"
161 set verifier "zyxw&:+/"
162 set owner "$tag"
163 set clientid ""
164 set cverf ""
165 set st [setclient $verifier $owner clientid cverf res]
166 ckres "Setclientid" $st $expct $res $PASS
167
168 # e1: verifier set to alphabetic characters
169 set tag $TNAME{e1}
170 set ASSERTION \
171 "Setclientid_confirm verifier set to alphabetic chars,\n\texpect $expct"
172 putmsg stdout 0 "$tag: $ASSERTION"
173 if {$st == "OK"} {
174 set st [setclientconf $clientid $cverf res]
175 set retcode "FAIL"
176 } else {
177 set retcode "UNRESOLVED"
178 }
179 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
180 Disconnect
181
182
183 # f: verifier with embeded nulls
184 set tag $TNAME{f}
185 Connect
186 set expct "OK"
187 set ASSERTION "Setclientid verifier with embeded nulls, expect $expct"
188 putmsg stdout 0 "$tag: $ASSERTION"
189 # 0000 FFFF 0000 FFFF
190 set verifier [binary format "S4" {0 65535 0 65535}]
191 set owner "$tag"
192 set clientid ""
193 set cverf ""
194 set st [setclient $verifier $owner clientid cverf res]
195 ckres "Setclientid" $st $expct $res $PASS
196
197 # f1: verifier with embeded nulls
198 set tag $TNAME{f1}
199 set ASSERTION \
200 "Setclientid_confirm verifier with embeded nulls,\n\texpect $expct"
201 putmsg stdout 0 "$tag: $ASSERTION"
202 if {$st == "OK"} {
203 set st [setclientconf $clientid $cverf res]
204 set retcode "FAIL"
205 } else {
206 set retcode "UNRESOLVED"
207 }
208 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
209 Disconnect
210
211
212 # g: verifier set to single char
213 set tag $TNAME{g}
214 Connect
215 set expct "OK"
216 set ASSERTION "Setclientid verifier set to single char, expect $expct"
217 putmsg stdout 0 "$tag: $ASSERTION"
218 # char =0xFF
219 set verifier [binary format "c" 255]
220 set owner "$tag"
221 set clientid ""
222 set cverf ""
223 set st [setclient $verifier $owner clientid cverf res]
224 ckres "Setclientid" $st $expct $res $PASS
225
226 # g1: verifier set to single char
227 set tag $TNAME{g1}
228 set ASSERTION \
229 "Setclientid_confirm verifier set to single char,\n\texpect $expct"
230 putmsg stdout 0 "$tag: $ASSERTION"
231 if {$st == "OK"} {
232 set st [setclientconf $clientid $cverf res]
233 set retcode "FAIL"
234 } else {
235 set retcode "UNRESOLVED"
236 }
237 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
238 Disconnect
239
240
241 # h: verifier set to single null char
242 set tag $TNAME{h}
243 Connect
244 set expct "OK"
245 set ASSERTION "Setclientid verifier set to single null char, expect $expct"
246 putmsg stdout 0 "$tag: $ASSERTION"
247 set verifier [binary format "c" 0]
248 set owner "$tag"
249 set clientid ""
250 set cverf ""
251 set st [setclient $verifier $owner clientid cverf res]
252 ckres "Setclientid" $st $expct $res $PASS
253
254 # h1: verifier set to single null char
255 set tag $TNAME{h1}
256 set ASSERTION \
257 "Setclientid_confirm verifier set to single null char, expect $expct"
258 putmsg stdout 0 "$tag: $ASSERTION"
259 if {$st == "OK"} {
260 set st [setclientconf $clientid $cverf res]
261 set retcode "FAIL"
262 } else {
263 set retcode "UNRESOLVED"
264 }
265 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
266 Disconnect
267
268
269 # i: verifier set to binary value (all 1s}
270 set tag $TNAME{i}
271 Connect
272 set expct "OK"
273 set ASSERTION \
274 "Setclientid verifier set to binary value (all 1s},\n\texpect $expct"
275 putmsg stdout 0 "$tag: $ASSERTION"
276 # 70 words all with 1s
277 set verifier [binary format "S70" \
278 [split [string range [string repeat "65535 " 70] 0 end-1] " "]]
279 set owner "$tag"
280 set clientid ""
281 set cverf ""
282 set st [setclient $verifier $owner clientid cverf res]
283 ckres "Setclientid" $st $expct $res $PASS
284
285 # i1: verifier set to binary value (all 1s}
286 set tag $TNAME{i1}
287 set ASSERTION \
288 "Setclientid_confirm verifier set to bin value (all 1s}, \
289 expect $expct"
290 putmsg stdout 0 "$tag: $ASSERTION"
291 if {$st == "OK"} {
292 set st [setclientconf $clientid $cverf res]
293 set retcode "FAIL"
294 } else {
295 set retcode "UNRESOLVED"
296 }
297 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
298 Disconnect
299
300
301 # j: owner set to long string (512 in length)
302 set tag $TNAME{j}
303 Connect
304 set expct "OK"
305 set ASSERTION \
306 "Setclientid owner set to long string (512 in length),\n\t\
307 expect $expct"
308 putmsg stdout 0 "$tag: $ASSERTION"
309 set verifier "[clock clicks]"
310 set owner "[string repeat "a" 512]"
311 set clientid ""
312 set cverf ""
313 set st [setclient $verifier $owner clientid cverf res]
314 ckres "Setclientid" $st $expct $res $PASS
315
316 # j1: owner set to long string (512 in length)
317 set tag $TNAME{j1}
318 set ASSERTION \
319 "Setclientid_confirm owner set to long str (512 length),\n\t\
320 expect $expct"
321 putmsg stdout 0 "$tag: $ASSERTION"
322 if {$st == "OK"} {
323 set st [setclientconf $clientid $cverf res]
324 set retcode "FAIL"
325 } else {
326 set retcode "UNRESOLVED"
327 }
328 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
329 Disconnect
330
331
332 # k: owner set to single char
333 set tag $TNAME{k}
334 Connect
335 set expct "OK"
336 set ASSERTION "Setclientid owner set to single char, expect $expct"
337 putmsg stdout 0 "$tag: $ASSERTION"
338 set verifier "[clock clicks]"
339 # char = 0xFF
340 set owner "[binary format "c" 255]"
341 set clientid ""
342 set cverf ""
343 set st [setclient $verifier $owner clientid cverf res]
344 ckres "Setclientid" $st $expct $res $PASS
345
346 # k1: owner set to single char
347 set tag $TNAME{k1}
348 set ASSERTION "Setclientid_confirm owner set to single char,\n\texpect $expct"
349 putmsg stdout 0 "$tag: $ASSERTION"
350 if {$st == "OK"} {
351 set st [setclientconf $clientid $cverf res]
352 set retcode "FAIL"
353 } else {
354 set retcode "UNRESOLVED"
355 }
356 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
357 Disconnect
358
359
360 # l: owner set to binary value (all 1s}
361 set tag $TNAME{l}
362 Connect
363 set expct "OK"
364 set ASSERTION "Setclientid owner set to binary value (all 1s},\n\texpect $expct"
365 putmsg stdout 0 "$tag: $ASSERTION"
366 set verifier "[clock clicks]"
367 # 70 words all with 1s
368 set owner "[binary format "S70" \
369 [split [string range [string repeat "65535 " 70] 0 end-1] " "]]"
370 set clientid ""
371 set cverf ""
372 set st [setclient $verifier $owner clientid cverf res]
373 ckres "Setclientid" $st $expct $res $PASS
374
375 # l1: owner set to binary value (all 1s}
376 set tag $TNAME{l1}
377 set ASSERTION \
378 "Setclientid_confirm owner set to binary value (all 1s},\n\t\
379 expect $expct"
380 putmsg stdout 0 "$tag: $ASSERTION"
381 if {$st == "OK"} {
382 set st [setclientconf $clientid $cverf res]
383 set retcode "FAIL"
384 } else {
385 set retcode "UNRESOLVED"
386 }
387 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
388
389
390 # m: send duplicate of setclientid
391 set tag $TNAME{m}
392 Connect
393 set expct "OK"
394 set ASSERTION "send duplicate of setclientid, expect $expct"
395 putmsg stdout 0 "$tag: $ASSERTION"
396 set verifier "[clock clicks]"
397 set owner "$tag"
398 set clientid ""
399 putmsg stdout 1 "First Setclientid"
400 set cverf ""
401 set st [setclient $verifier $owner clientid cverf res]
402 putmsg stdout 1 "Second Setclientid"
403 set st [setclient $verifier $owner clientid cverf res]
404 ckres "Setclientid" $st $expct $res $PASS
405
406 # m1: send duplicate of setclientid_confirm
407 set tag $TNAME{m1}
408 set expct "OK"
409 set ASSERTION "send duplicate of setclientid_confirm, expect $expct"
410 putmsg stdout 0 "$tag: $ASSERTION"
411 putmsg stdout 1 "First Setclientid_confirm"
412 if {$st == "OK"} {
413 set st [setclientconf $clientid $cverf res]
414 putmsg stdout 1 "Second Setclientid_confirm"
415 set st [setclientconf $clientid $cverf res]
416 set retcode "FAIL"
417 } else {
418 set retcode "UNRESOLVED"
419 }
420 ckres "Setclientid_confirm" $st $expct $res $PASS $retcode
421
422
423 # --------------------------------------------------------------
424 # exit
425
426 Disconnect
427
428 exit $PASS