projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* gdb.base/help.exp: Replace most of docstring for "define" with ".*".
[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / setvar.exp
CommitLineData
ef44eed1
SS		 1# Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
2
3# This program is free software; you can redistribute it and/or modify
4# it under the terms of the GNU General Public License as published by
5# the Free Software Foundation; either version 2 of the License, or
6# (at your option) any later version.
7#
8# This program is distributed in the hope that it will be useful,
9# but WITHOUT ANY WARRANTY; without even the implied warranty of
10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11# GNU General Public License for more details.
12#
13# You should have received a copy of the GNU General Public License
14# along with this program; if not, write to the Free Software
15# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
16
17# Please email any bugs, comments, and/or additions to this file to:
18# bug-gdb@prep.ai.mit.edu
19
20# This file was written by Rob Savoye. (rob@cygnus.com)
21
22if $tracelevel then {
23 strace $tracelevel
24 }
25
26#
27# test running programs
28#
29set prms_id 0
30set bug_id 0
31
32set binfile "setvar"
33
34if ![file exists $objdir/$subdir/$binfile] then {
35 perror "$objdir/$subdir/$binfile does not exist."
36 return 0
37}
38
39gdb_exit
40gdb_start
41gdb_reinitialize_dir $srcdir/$subdir
42gdb_load $objdir/$subdir/$binfile
43
44#
45# set it up at a breakpoint so we canplay with the variable values
46#
47send "set print sevenbit-strings\n" ; expect -re "$prompt $"
48
49if ![runto main] then {
50 perror "couldn't run to breakpoint"
51 continue
52}
53
54# Determine expected output for unsigned long variables,
55# the output varies with sizeof (unsigned long).
56
57set ulong_minus_1 4294967295
58set ulong_minus_456 4294966840
59send "print sizeof (unsigned long)\n"
60expect {
61 -re ".\[0-9\]* = 4.*$prompt $" {}
62 -re ".\[0-9\]* = 8.*$prompt $" {
63 set ulong_minus_1 18446744073709551615
64 set ulong_minus_456 18446744073709551160
65 }
66 -re ".*$prompt $" {
67 fail "getting sizeof unsigned long"
68 }
69 default { fail "(timeout) getting sizeof unsigned long" }
70}
71
72#
73# test "set variable" for type "char"
74#
75# Because bare char types can be either signed or unsigned, we just test the
76# range of values that are common to both (0-127).
77#
78send "set variable v_char=0\n"
79expect {
80 -re "$prompt $"\
81 {
82 send "print v_char\n"
83 expect {
84 -re ".\[0-9\]* = 0 \'.000\'.*$prompt $" { pass "set variable char=0" }
85 -re "$prompt $" { fail "set variable char=0" }
86 timeout { fail "(timeout) set variable char=0" }
87 }
88 }
89 -re "$prompt $" { fail "set variable char=0" }
90 timeout { fail "(timeout) set variable char=0" }
91}
92
93
94send "set variable v_char=1\n"
95expect {
96 -re "$prompt $"\
97 {
98 send "print v_char\n"
99 expect {
100 -re ".\[0-9\]* = 1 \'.001\'.*$prompt $" { pass "set variable char=1" }
101 -re "$prompt $" { fail "set variable char=1" }
102 timeout { fail "(timeout) set variable char=1" }
103 }
104 }
105 -re "$prompt $" { fail "set variable char=1" }
106 timeout { fail "(timeout) set variable char=1" }
107}
108
109
110send "set variable v_char=27\n"
111expect {
112 -re "$prompt $"\
113 {
114 send "print v_char\n"
115 expect {
116 -re ".\[0-9\]* = 27 \'.e\'.*$prompt $" { pass "set variable char=27 (Esc)" }
117 -re "$prompt $" { fail "set variable char=27 (Esc)" }
118 timeout { fail "(timeout) set variable char=27 (Esc)" }
119 }
120 }
121 -re "$prompt $" { fail "set variable char=27 (Esc)" }
122 timeout { fail "(timeout) set variable char=27 (Esc)" }
123}
124
125
126send "set variable v_char=32\n"
127expect {
128 -re "$prompt $"\
129 {
130 send "print v_char\n"
131 expect {
132 -re ".\[0-9\]* = 32 \' \'.*$prompt $" { pass "set variable char=32 (SPC)" }
133 -re "$prompt $" { fail "set variable char=32 (SPC)" }
134 timeout { fail "(timeout) set variable char=32 (SPC)" }
135 }
136 }
137 -re "$prompt $" { fail "set variable char=32 (SPC)" }
138 timeout { fail "(timeout) set variable char=32 (SPC)" }
139}
140
141
142send "set variable v_char=65\n"
143expect {
144 -re "$prompt $"\
145 {
146 send "print v_char\n"
147 expect {
148 -re ".\[0-9\]* = 65 \'A\'.*$prompt $" { pass "set variable char=65 ('A')" }
149 -re "$prompt $" { fail "set variable char=65 ('A')" }
150 timeout { fail "(timeout) set variable char=65 ('A')" }
151 }
152 }
153 -re "$prompt $" { fail "set variable char=65 ('A')" }
154 timeout { fail "(timeout) set variable char=65 ('A')" }
155}
156
157
158send "set variable v_char=97\n"
159expect {
160 -re "$prompt $"\
161 {
162 send "print v_char\n"
163 expect {
164 -re ".\[0-9\]* = 97 \'a\'.*$prompt $" { pass "set variable char=97 ('a')" }
165 -re "$prompt $" { fail "set variable char=97 ('a')" }
166 timeout { fail "(timeout) set variable char=97 ('a')" }
167 }
168 }
169 -re "$prompt $" { fail "set variable char=97 ('a')" }
170 timeout { fail "(timeout) set variable char=97 ('a')" }
171}
172
173
174send "set variable v_char=126\n"
175expect {
176 -re "$prompt $"\
177 {
178 send "print v_char\n"
179 expect {
180 -re ".\[0-9\]* = 126 \'~\'.*$prompt $" { pass "set variable char=126 ('~')" }
181 -re "$prompt $" { fail "set variable char=126 ('~')" }
182 timeout { fail "(timeout) set variable char=126 ('~')" }
183 }
184 }
185 -re "$prompt $" { fail "set variable char=126 ('~')" }
186 timeout { fail "(timeout) set variable char=126 ('~')" }
187}
188
189
190send "set variable v_char=127\n"
191expect {
192 -re "$prompt $"\
193 {
194 send "print v_char\n"
195 expect {
196 -re ".\[0-9\]* = 127 \'.177\'.*$prompt $" { pass "set variable char=127 (8-bit)" }
197 -re "$prompt $" { fail "set variable char=127 (8-bit)" }
198 timeout { fail "(timeout) set variable char=127 (8-bit)" }
199 }
200 }
201 -re "$prompt $" { fail "set variable char=127 (8-bit)" }
202 timeout { fail "(timeout) set variable char=127 (8-bit)" }
203}
204
205
206#
207# test "set variable" for type "signed char"
208#
209send "set variable v_char=0\n"
210expect {
211 -re "$prompt $"\
212 {
213 send "print v_signed_char\n"
214 expect {
215 -re ".\[0-9\]* = 0 \'.000\'.*$prompt $" { pass "set variable signed char=0" }
216 -re "$prompt $" { fail "set variable signed char=0" }
217 timeout { fail "(timeout) set variable signed char=0" }
218 }
219 }
220 -re "$prompt $" { fail "set variable signed char=0" }
221 timeout { fail "(timeout) set variable signed char=0" }
222}
223
224
225send "set variable v_signed_char=1\n"
226expect {
227 -re "$prompt $"\
228 {
229 send "print v_signed_char\n"
230 expect {
231 -re ".\[0-9\]* = 1 \'.001\'.*$prompt $" { pass "set variable signed char=1" }
232 -re "$prompt $" { fail "set variable signed char=1" }
233 timeout { fail "(timeout) set variable signed char=1" }
234 }
235 }
236 -re "$prompt $" { fail "set variable signed char=1" }
237 timeout { fail "(timeout) set variable signed char=1" }
238}
239
240
241send "set variable v_signed_char=27\n"
242expect {
243 -re "$prompt $"\
244 {
245 send "print v_signed_char\n"
246 expect {
247 -re ".\[0-9\]* = 27 \'.e\'.*$prompt $" { pass "set variable signed char=27 (Esc)" }
248 -re "$prompt $" { fail "set variable signed char=27 (Esc)" }
249 timeout { fail "(timeout) set variable signed char=27 (Esc)" }
250 }
251 }
252 -re "$prompt $" { fail "set variable signed char=27 (Esc)" }
253 timeout { fail "(timeout) set variable signed char=27 (Esc)" }
254}
255
256
257send "set variable v_signed_char=32\n"
258expect {
259 -re "$prompt $"\
260 {
261 send "print v_signed_char\n"
262 expect {
263 -re ".\[0-9\]* = 32 \' \'.*$prompt $" { pass "set variable signed char=32 (SPC)" }
264 -re "$prompt $" { fail "set variable signed char=32 (SPC)" }
265 timeout { fail "(timeout) set variable signed char=32 (SPC)" }
266 }
267 }
268 -re "$prompt $" { fail "set variable signed char=32 (SPC)" }
269 timeout { fail "(timeout) set variable signed char=32 (SPC)" }
270}
271
272
273send "set variable v_signed_char=65\n"
274expect {
275 -re "$prompt $"\
276 {
277 send "print v_signed_char\n"
278 expect {
279 -re ".\[0-9\]* = 65 \'A\'.*$prompt $" { pass "set variable signed char=65 ('A')" }
280 -re "$prompt $" { fail "set variable signed char=65 ('A')" }
281 timeout { fail "(timeout) set variable signed char=65 ('A')" }
282 }
283 }
284 -re "$prompt $" { fail "set variable signed char=65 ('A')" }
285 timeout { fail "(timeout) set variable signed char=65 ('A')" }
286}
287
288
289send "set variable v_signed_char=97\n"
290expect {
291 -re "$prompt $"\
292 {
293 send "print v_signed_char\n"
294 expect {
295 -re ".\[0-9\]* = 97 \'a\'.*$prompt $" { pass "set variable signed char=97 ('a')" }
296 -re "$prompt $" { fail "set variable signed char=97 ('a')" }
297 timeout { fail "(timeout) set variable signed char=97 ('a')" }
298 }
299 }
300 -re "$prompt $" { fail "set variable signed char=97 ('a')" }
301 timeout { fail "(timeout) set variable signed char=97 ('a')" }
302}
303
304
305send "set variable v_signed_char=126\n"
306expect {
307 -re "$prompt $"\
308 {
309 send "print v_signed_char\n"
310 expect {
311 -re ".\[0-9\]* = 126 \'~\'.*$prompt $" { pass "set variable signed char=126 ('~')" }
312 -re "$prompt $" { fail "set variable signed char=126 ('~')" }
313 timeout { fail "(timeout) set variable signed char=126 ('~')" }
314 }
315 }
316 -re "$prompt $" { fail "set variable signed char=126 ('~')" }
317 timeout { fail "(timeout) set variable signed char=126 ('~')" }
318}
319
320
321send "set variable v_signed_char=127\n"
322expect {
323 -re "$prompt $"\
324 {
325 send "print v_signed_char\n"
326 expect {
327 -re ".\[0-9\]* = 127 \'.177\'.*$prompt $" { pass "set variable signed char=127 (8-bit)" }
328 -re "$prompt $" { fail "set variable signed char=127 (8-bit)" }
329 timeout { fail "(timeout) set variable signed char=127 (8-bit)" }
330 }
331 }
332 -re "$prompt $" { fail "set variable signed char=127 (8-bit)" }
333 timeout { fail "(timeout) set variable signed char=127 (8-bit)" }
334}
335
336
337send "set variable v_signed_char=-1\n"
338expect {
339 -re "$prompt $"\
340 {
341 send "print v_signed_char\n"
342 expect {
343 -re ".\[0-9\]* = -1 \'.377\'.*$prompt $" { pass "set variable signed char=-1 (-1)" }
344 -re "$prompt $" { fail "set variable signed char=-1 (minus)" }
345 timeout { fail "(timeout) set variable signed char=-1 (minus)" }
346 }
347 }
348 -re "$prompt $" { fail "set variable signed char=-1 (minus)" }
349 timeout { fail "(timeout) set variable signed char=-1 (minus)" }
350}
351
352
353send "set variable v_signed_char=0xFF\n"
354expect {
355 -re "$prompt $"\
356 {
357 send "print v_signed_char\n"
358 expect {
359 -re ".\[0-9\]* = -1 \'.377\'.*$prompt $" { pass "set variable signed char=0xFF (0xFF)" }
360 -re "$prompt $" { fail "set variable signed char=0xFF (hex)" }
361 timeout { fail "(timeout) set variable signed char=0xFF (hex)" }
362 }
363 }
364 -re "$prompt $" { fail "set variable signed char=0xFF (hex)" }
365 timeout { fail "(timeout) set variable signed char=0xFF (hex)" }
366}
367
368
369#
370# test "set variable" for type "unsigned char"
371#
372send "set variable v_unsigned_char=0\n"
373expect {
374 -re "$prompt $"\
375 {
376 send "print v_unsigned_char\n"
377 expect {
378 -re ".\[0-9\]* = 0 \'.000\'.*$prompt $" { pass "set variable unsigned char=0" }
379 -re "$prompt $" { fail "set variable unsigned char=0" }
380 timeout { fail "(timeout) set variable unsigned char=0" }
381 }
382 }
383 -re "$prompt $" { fail "set variable unsigned char=0" }
384 timeout { fail "(timeout) set variable unsigned char=0" }
385}
386
387
388send "set variable v_unsigned_char=1\n"
389expect {
390 -re "$prompt $"\
391 {
392 send "print v_unsigned_char\n"
393 expect {
394 -re ".\[0-9\]* = 1 \'.001\'.*$prompt $" { pass "set variable unsigned char=1" }
395 -re "$prompt $" { fail "set variable unsigned char=1" }
396 timeout { fail "(timeout) set variable unsigned char=1" }
397 }
398 }
399 -re "$prompt $" { fail "set variable unsigned char=1" }
400 timeout { fail "(timeout) set variable unsigned char=1" }
401}
402
403
404send "set variable v_unsigned_char=27\n"
405expect {
406 -re "$prompt $"\
407 {
408 send "print v_unsigned_char\n"
409 expect {
410 -re ".\[0-9\]* = 27 \'.e\'.*$prompt $" { pass "set variable unsigned char=27 (Esc)" }
411 -re "$prompt $" { fail "set variable unsigned char=27 (Esc)" }
412 timeout { fail "(timeout) set variable unsigned char=27 (Esc)" }
413 }
414 }
415 -re "$prompt $" { fail "set variable unsigned char=27 (Esc)" }
416 timeout { fail "(timeout) set variable unsigned char=27 (Esc)" }
417}
418
419
420send "set variable v_unsigned_char=32\n"
421expect {
422 -re "$prompt $"\
423 {
424 send "print v_unsigned_char\n"
425 expect {
426 -re ".\[0-9\]* = 32 \' \'.*$prompt $" { pass "set variable unsigned char=32 (SPC)" }
427 -re "$prompt $" { fail "set variable unsigned char=32 (SPC)" }
428 timeout { fail "(timeout) set variable unsigned char=32 (SPC)" }
429 }
430 }
431 -re "$prompt $" { fail "set variable unsigned char=32 (SPC)" }
432 timeout { fail "(timeout) set variable unsigned char=32 (SPC)" }
433}
434
435
436send "set variable v_unsigned_char=65\n"
437expect {
438 -re "$prompt $"\
439 {
440 send "print v_unsigned_char\n"
441 expect {
442 -re ".\[0-9\]* = 65 \'A\'.*$prompt $" { pass "set variable unsigned char=65 ('A')" }
443 -re "$prompt $" { fail "set variable unsigned char=65 ('A')" }
444 timeout { fail "(timeout) set variable unsigned char=65 ('A')" }
445 }
446 }
447 -re "$prompt $" { fail "set variable unsigned char=65 ('A')" }
448 timeout { fail "(timeout) set variable unsigned char=65 ('A')" }
449}
450
451
452send "set variable v_unsigned_char=97\n"
453expect {
454 -re "$prompt $"\
455 {
456 send "print v_unsigned_char\n"
457 expect {
458 -re ".\[0-9\]* = 97 \'a\'.*$prompt $" { pass "set variable unsigned char=97 ('a')" }
459 -re "$prompt $" { fail "set variable unsigned char=97 ('a')" }
460 timeout { fail "(timeout) set variable unsigned char=97 ('a')" }
461 }
462 }
463 -re "$prompt $" { fail "set variable unsigned char=97 ('a')" }
464 timeout { fail "(timeout) set variable unsigned char=97 ('a')" }
465}
466
467
468send "set variable v_unsigned_char=126\n"
469expect {
470 -re "$prompt $"\
471 {
472 send "print v_unsigned_char\n"
473 expect {
474 -re ".\[0-9\]* = 126 \'~\'.*$prompt $" { pass "set variable unsigned char=126 ('~')" }
475 -re "$prompt $" { fail "set variable unsigned char=126 ('~')" }
476 timeout { fail "(timeout) set variable unsigned char=126 ('~')" }
477 }
478 }
479 -re "$prompt $" { fail "set variable unsigned char=126 ('~')" }
480 timeout { fail "(timeout) set variable unsigned char=126 ('~')" }
481}
482
483
484send "set variable v_unsigned_char=~0\n"
485expect {
486 -re "$prompt $"\
487 {
488 send "print v_unsigned_char\n"
489 expect {
490 -re ".\[0-9\]* = 255 \'.377\'.*$prompt $" { pass "set variable unsigned char=255 (8-bit)" }
491 -re "$prompt $" { fail "set variable unsigned char=255 (8-bit)" }
492 timeout { fail "(timeout) set variable unsigned char=255 (8-bit)" }
493 }
494 }
495 -re "$prompt $" { fail "set variable unsigned char=255 (8-bit)" }
496 timeout { fail "(timeout) set variable unsigned char=255 (8-bit)" }
497}
498
499
500#
501# test "set variable" for type "short"
502#
503send "set variable v_short=0\n"
504expect {
505 -re "$prompt $"\
506 {
507 send "print v_short\n"
508 expect {
509 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable short=0" }
510 -re "$prompt $" { fail "set variable short=0" }
511 timeout { fail "(timeout) set variable short=0" }
512 }
513 }
514 -re "$prompt $" { fail "set variable short=0" }
515 timeout { fail "(timeout) set variable short=0" }
516}
517
518
519send "set variable v_short=1\n"
520expect {
521 -re "$prompt $"\
522 {
523 send "print v_short\n"
524 expect {
525 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable short=1" }
526 -re "$prompt $" { fail "set variable short=1" }
527 timeout { fail "(timeout) set variable short=1" }
528 }
529 }
530 -re "$prompt $" { fail "set variable short=1" }
531 timeout { fail "(timeout) set variable short=1" }
532}
533
534
535send "set variable v_short=-1\n"
536expect {
537 -re "$prompt $"\
538 {
539 send "print v_short\n"
540 expect {
541 -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable short=-1 (minus)" }
542 -re "$prompt $" { fail "set variable short=-1 (minus)" }
543 timeout { fail "(timeout) set variable signed short=-1 (minus)" }
544 }
545 }
546 -re "$prompt $" { fail "set variable short=-1 (minus)" }
547 timeout { fail "(timeout) set variable short=-1 (minus)" }
548}
549
550
551#
552# test "set variable" for type "signed short"
553#
554send "set variable v_signed_short=0\n"
555expect {
556 -re "$prompt $"\
557 {
558 send "print v_signed_short\n"
559 expect {
560 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable signed short=0" }
561 -re "$prompt $" { fail "set variable signed short=0" }
562 timeout { fail "(timeout) set variable signed short=0" }
563 }
564 }
565 -re "$prompt $" { fail "set variable signed short=0" }
566 timeout { fail "(timeout) set variable signed short=0" }
567}
568
569
570send "set variable v_signed_short=1\n"
571expect {
572 -re "$prompt $"\
573 {
574 send "print v_signed_short\n"
575 expect {
576 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable signed short=1" }
577 -re "$prompt $" { fail "set variable signed short=1" }
578 timeout { fail "(timeout) set variable signed short=1" }
579 }
580 }
581 -re "$prompt $" { fail "set variable signed short=1" }
582 timeout { fail "(timeout) set variable signed short=1" }
583}
584
585
586send "set variable v_signed_short=-1\n"
587expect {
588 -re "$prompt $"\
589 {
590 send "print v_signed_short\n"
591 expect {
592 -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable signed short=-1 (minus)" }
593 -re "$prompt $" { fail "set variable signed short=-1 (minus)" }
594 timeout { fail "(timeout) set variable signed short=-1 (minus)" }
595 }
596 }
597 -re "$prompt $" { fail "set variable signed short=-1 (minus)" }
598 timeout { fail "(timeout) set variable signed short=-1 (minus)" }
599}
600
601
602#
603# test "set variable" for type "unsigned short"
604#
605send "set variable v_unsigned_short=0\n"
606expect {
607 -re "$prompt $"\
608 {
609 send "print v_unsigned_short\n"
610 expect {
611 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable unsigned short=0" }
612 -re "$prompt $" { fail "set variable unsigned short=0" }
613 timeout { fail "(timeout) set variable unsigned short=0" }
614 }
615 }
616 -re "$prompt $" { fail "set variable unsigned short=0" }
617 timeout { fail "(timeout) set variable unsigned short=0" }
618}
619
620
621send "set variable v_unsigned_short=1\n"
622expect {
623 -re "$prompt $"\
624 {
625 send "print v_unsigned_short\n"
626 expect {
627 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable unsigned short=1" }
628 -re "$prompt $" { fail "set variable unsigned short=1" }
629 timeout { fail "(timeout) set variable unsigned short=1" }
630 }
631 }
632 -re "$prompt $" { fail "set variable unsigned short=1" }
633 timeout { fail "(timeout) set variable unsigned short=1" }
634}
635
636
637send "set variable v_unsigned_short=~0\n"
638expect {
639 -re "$prompt $"\
640 {
641 send "print v_unsigned_short\n"
642 expect {
643 -re ".\[0-9\]* = 65535.*$prompt $" { pass "set variable unsigned short=~0 (minus)" }
644 -re "$prompt $" { fail "set variable unsigned short=~0 (minus)" }
645 timeout { fail "(timeout) set variable unsigned short=~0 (minus)" }
646 }
647 }
648 -re "$prompt $" { fail "set variable unsigned short=~0 (minus)" }
649 timeout { fail "(timeout) set variable unsigned short=~0 (minus)" }
650}
651
652
653#
654# test "set variable" for type "int"
655#
656send "set variable v_int=0\n"
657expect {
658 -re "$prompt $"\
659 {
660 send "print v_int\n"
661 expect {
662 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable int=0" }
663 -re "$prompt $" { fail "set variable int=0" }
664 timeout { fail "(timeout) set variable int=0" }
665 }
666 }
667 -re "$prompt $" { fail "set variable int=0" }
668 timeout { fail "(timeout) set variable int=0" }
669}
670
671
672send "set variable v_int=1\n"
673expect {
674 -re "$prompt $"\
675 {
676 send "print v_int\n"
677 expect {
678 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable int=1" }
679 -re "$prompt $" { fail "set variable int=1" }
680 timeout { fail "(timeout) set variable int=1" }
681 }
682 }
683 -re "$prompt $" { fail "set variable int=1" }
684 timeout { fail "(timeout) set variable int=1" }
685}
686
687
688send "set variable v_int=-1\n"
689expect {
690 -re "$prompt $"\
691 {
692 send "print v_int\n"
693 expect {
694 -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable int=-1 (minus)" }
695 -re "$prompt $" { fail "set variable int=-1 (minus)" }
696 timeout { fail "(timeout) set variable signed int=-1 (minus)" }
697 }
698 }
699 -re "$prompt $" { fail "set variable int=-1 (minus)" }
700 timeout { fail "(timeout) set variable int=-1 (minus)" }
701}
702
703
704#
705# test "set variable" for type "signed int"
706#
707send "set variable v_signed_int=0\n"
708expect {
709 -re "$prompt $"\
710 {
711 send "print v_signed_int\n"
712 expect {
713 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable signed int=0" }
714 -re "$prompt $" { fail "set variable signed int=0" }
715 timeout { fail "(timeout) set variable signed int=0" }
716 }
717 }
718 -re "$prompt $" { fail "set variable signed int=0" }
719 timeout { fail "(timeout) set variable signed int=0" }
720}
721
722
723send "set variable v_signed_int=1\n"
724expect {
725 -re "$prompt $"\
726 {
727 send "print v_signed_int\n"
728 expect {
729 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable signed int=1" }
730 -re "$prompt $" { fail "set variable signed int=1" }
731 timeout { fail "(timeout) set variable signed int=1" }
732 }
733 }
734 -re "$prompt $" { fail "set variable signed int=1" }
735 timeout { fail "(timeout) set variable signed int=1" }
736}
737
738
739send "set variable v_signed_int=-1\n"
740expect {
741 -re "$prompt $"\
742 {
743 send "print v_signed_int\n"
744 expect {
745 -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable signed int=-1 (minus)" }
746 -re "$prompt $" { fail "set variable signed int=-1 (minus)" }
747 timeout { fail "(timeout) set variable signed int=-1 (minus)" }
748 }
749 }
750 -re "$prompt $" { fail "set variable signed int=-1 (minus)" }
751 timeout { fail "(timeout) set variable signed int=-1 (minus)" }
752}
753
754
755#
756# test "set variable" for type "unsigned int"
757#
758send "set variable v_unsigned_int=0\n"
759expect {
760 -re "$prompt $"\
761 {
762 send "print v_unsigned_int\n"
763 expect {
764 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable unsigned int=0" }
765 -re "$prompt $" { fail "set variable unsigned int=0" }
766 timeout { fail "(timeout) set variable unsigned int=0" }
767 }
768 }
769 -re "$prompt $" { fail "set variable unsigned int=0" }
770 timeout { fail "(timeout) set variable unsigned int=0" }
771}
772
773
774send "set variable v_unsigned_int=1\n"
775expect {
776 -re "$prompt $"\
777 {
778 send "print v_unsigned_int\n"
779 expect {
780 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable unsigned int=1" }
781 -re "$prompt $" { fail "set variable unsigned int=1" }
782 timeout { fail "(timeout) set variable unsigned int=1" }
783 }
784 }
785 -re "$prompt $" { fail "set variable unsigned int=1" }
786 timeout { fail "(timeout) set variable unsigned int=1" }
787}
788
789
790send "set variable v_unsigned_int=~0\n"
791expect {
792 -re "$prompt $"\
793 {
794 send "print v_unsigned_int\n"
795 expect {
796 -re ".\[0-9\]* = 4294967295.*$prompt $" { pass "set variable unsigned int=~0 (minus)" }
797 -re "$prompt $" { fail "set variable unsigned int=~0 (minus)" }
798 timeout { fail "(timeout) set variable unsigned int=~0 (minus)" }
799 }
800 }
801 -re "$prompt $" { fail "set variable unsigned int=~0 (minus)" }
802 timeout { fail "(timeout) set variable unsigned int=~0 (minus)" }
803}
804
805
806#
807# test "set variable" for type "long"
808#
809send "set variable v_long=0\n"
810expect {
811 -re "$prompt $"\
812 {
813 send "print v_long\n"
814 expect {
815 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable long=0" }
816 -re "$prompt $" { fail "set variable long=0" }
817 timeout { fail "(timeout) set variable long=0" }
818 }
819 }
820 -re "$prompt $" { fail "set variable long=0" }
821 timeout { fail "(timeout) set variable long=0" }
822}
823
824
825send "set variable v_long=1\n"
826expect {
827 -re "$prompt $"\
828 {
829 send "print v_long\n"
830 expect {
831 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable long=1" }
832 -re "$prompt $" { fail "set variable long=1" }
833 timeout { fail "(timeout) set variable long=1" }
834 }
835 }
836 -re "$prompt $" { fail "set variable long=1" }
837 timeout { fail "(timeout) set variable long=1" }
838}
839
840
841send "set variable v_long=-1\n"
842expect {
843 -re "$prompt $"\
844 {
845 send "print v_long\n"
846 expect {
847 -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable long=-1 (minus)" }
848 -re "$prompt $" { fail "set variable long=-1 (minus)" }
849 timeout { fail "(timeout) set variable signed long=-1 (minus)" }
850 }
851 }
852 -re "$prompt $" { fail "set variable long=-1 (minus)" }
853 timeout { fail "(timeout) set variable long=-1 (minus)" }
854}
855
856
857#
858# test "set variable" for type "signed long"
859#
860send "set variable v_signed_long=0\n"
861expect {
862 -re "$prompt $"\
863 {
864 send "print v_signed_long\n"
865 expect {
866 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable signed long=0" }
867 -re "$prompt $" { fail "set variable signed long=0" }
868 timeout { fail "(timeout) set variable signed long=0" }
869 }
870 }
871 -re "$prompt $" { fail "set variable signed long=0" }
872 timeout { fail "(timeout) set variable signed long=0" }
873}
874
875
876send "set variable v_signed_long=1\n"
877expect {
878 -re "$prompt $"\
879 {
880 send "print v_signed_long\n"
881 expect {
882 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable signed long=1" }
883 -re "$prompt $" { fail "set variable signed long=1" }
884 timeout { fail "(timeout) set variable signed long=1" }
885 }
886 }
887 -re "$prompt $" { fail "set variable signed long=1" }
888 timeout { fail "(timeout) set variable signed long=1" }
889}
890
891
892send "set variable v_signed_long=-1\n"
893expect {
894 -re "$prompt $"\
895 {
896 send "print v_signed_long\n"
897 expect {
898 -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable signed long=-1 (minus)" }
899 -re "$prompt $" { fail "set variable signed long=-1 (minus)" }
900 timeout { fail "(timeout) set variable signed long=-1 (minus)" }
901 }
902 }
903 -re "$prompt $" { fail "set variable signed long=-1 (minus)" }
904 timeout { fail "(timeout) set variable signed long=-1 (minus)" }
905}
906
907
908#
909# test "set variable" for type "unsigned long"
910#
911send "set variable v_unsigned_long=0\n"
912expect {
913 -re "$prompt $"\
914 {
915 send "print v_unsigned_long\n"
916 expect {
917 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable unsigned long=0" }
918 -re "$prompt $" { fail "set variable unsigned long=0" }
919 timeout { fail "(timeout) set variable unsigned long=0" }
920 }
921 }
922 -re "$prompt $" { fail "set variable unsigned long=0" }
923 timeout { fail "(timeout) set variable unsigned long=0" }
924}
925
926
927send "set variable v_unsigned_long=1\n"
928expect {
929 -re "$prompt $"\
930 {
931 send "print v_unsigned_long\n"
932 expect {
933 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable unsigned long=1" }
934 -re "$prompt $" { fail "set variable unsigned long=1" }
935 timeout { fail "(timeout) set variable unsigned long=1" }
936 }
937 }
938 -re "$prompt $" { fail "set variable unsigned long=1" }
939 timeout { fail "(timeout) set variable unsigned long=1" }
940}
941
942
943send "set variable v_unsigned_long=~0\n"
944expect {
945 -re "$prompt $"\
946 {
947 send "print v_unsigned_long\n"
948 expect {
949 -re ".\[0-9\]* = $ulong_minus_1.*$prompt $" { pass "set variable unsigned long=~0 (minus)" }
950 -re "$prompt $" { fail "set variable unsigned long=~0 (minus)" }
951 timeout { fail "(timeout) set variable unsigned long=~0 (minus)" }
952 }
953 }
954 -re "$prompt $" { fail "set variable unsigned long=~0 (minus)" }
955 timeout { fail "(timeout) set variable unsigned long=~0 (minus)" }
956}
957
958
959#
960# test "set variable" for type "float"
961#
962send "set variable v_float=0.0\n"
963expect {
964 -re "$prompt $"\
965 {
966 send "print v_float\n"
967 expect {
968 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable float=0" }
969 -re "$prompt $" { fail "set variable float=0" }
970 timeout { fail "(timeout) set variable float=0" }
971 }
972 }
973 -re "$prompt $" { fail "set variable float=0" }
974 timeout { fail "(timeout) set variable float=0" }
975}
976
977
978send "set variable v_float=1.0\n"
979expect {
980 -re "$prompt $"\
981 {
982 send "print v_float\n"
983 expect {
984 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable float=1" }
985 -re "$prompt $" { fail "set variable float=1" }
986 timeout { fail "(timeout) set variable float=1" }
987 }
988 }
989 -re "$prompt $" { fail "set variable float=1" }
990 timeout { fail "(timeout) set variable float=1" }
991}
992
993
994send "set variable v_float=-1.0\n"
995expect {
996 -re "$prompt $"\
997 {
998 send "print v_float\n"
999 expect {
1000 -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable float=-1 (minus)" }
1001 -re "$prompt $" { fail "set variable float=-1 (minus)" }
1002 timeout { fail "(timeout) set variable signed float=-1 (minus)" }
1003 }
1004 }
1005 -re "$prompt $" { fail "set variable float=-1 (minus)" }
1006 timeout { fail "(timeout) set variable float=-1 (minus)" }
1007}
1008
1009
1010#
1011# test "set variable" for type "double"
1012#
1013send "set variable v_double=0.0\n"
1014expect {
1015 -re "$prompt $"\
1016 {
1017 send "print v_double\n"
1018 expect {
1019 -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable double=0" }
1020 -re "$prompt $" { fail "set variable double=0" }
1021 timeout { fail "(timeout) set variable double=0" }
1022 }
1023 }
1024 -re "$prompt $" { fail "set variable double=0" }
1025 timeout { fail "(timeout) set variable double=0" }
1026}
1027
1028
1029send "set variable v_double=1.0\n"
1030expect {
1031 -re "$prompt $"\
1032 {
1033 send "print v_double\n"
1034 expect {
1035 -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable double=1" }
1036 -re "$prompt $" { fail "set variable double=1" }
1037 timeout { fail "(timeout) set variable double=1" }
1038 }
1039 }
1040 -re "$prompt $" { fail "set variable double=1" }
1041 timeout { fail "(timeout) set variable double=1" }
1042}
1043
1044
1045send "set variable v_double=-1.0\n"
1046expect {
1047 -re "set.*$prompt $"\
1048 {
1049 send "print v_double\n"
1050 expect {
1051 -re "print.*.\[0-9\]* = -1.*$prompt $" { pass "set variable double=-1 (minus)" }
1052 -re "$prompt $" { fail "set variable double=-1 (minus)" }
1053 timeout { fail "(timeout) set variable double=-1 (minus)" }
1054 }
1055 }
1056 -re "$prompt $" { fail "set variable double=-1 (minus)" }
1057 timeout { fail "(timeout) set variable double=-1 (minus)" }
1058}
1059
1060
1061#
1062# test "set variable" for "char array[2]"
1063#
1064send "set variable v_char_array\[0\]='h'\n"
1065expect -re "$prompt $"
1066send "set variable v_char_array\[1\]='i'\n"
1067expect {
1068 -re "set.*$prompt $"\
1069 {
1070 send "print v_char_array\n"
1071 expect {
1072 -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" { pass "set variable char array=\"hi\" (string)" }
1073 -re "$prompt $" { fail "set variable char array=\"hi\" (string)" }
1074 timeout { fail "(timeout) set variable char array=\"hi\" (string)" }
1075 }
1076 }
1077 -re "$prompt $" { fail "set variable char array=\"hi\" (string)" }
1078 timeout { fail "(timeout) set variable char array=\"hi\" (string)" }
1079}
1080
1081
1082#
1083# test "set variable" for "signed char array[2]"
1084#
1085send "set variable v_signed_char_array\[0\]='h'\n"
1086expect -re "$prompt $"
1087send "set variable v_signed_char_array\[1\]='i'\n"
1088expect {
1089 -re "set.*$prompt $"\
1090 {
1091 send "print v_signed_char_array\n"
1092 expect {
1093 -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" { pass "set variable signed char array=\"hi\" (string)" }
1094 -re "$prompt $" { fail "set variable signed char array=\"hi\" (string)" }
1095 timeout { fail "(timeout) set variable signed char array=\"hi\" (string)" }
1096 }
1097 }
1098 -re "$prompt $" { fail "set variable signed char array=\"hi\" (string)" }
1099 timeout { fail "(timeout) set variable signed char array=\"hi\" (string)" }
1100}
1101
1102
1103#
1104# test "set variable" for "unsigned char array[2]"
1105#
1106send "set variable v_unsigned_char_array\[0\]='h'\n"
1107expect -re "$prompt $"
1108send "set variable v_unsigned_char_array\[1\]='i'\n"
1109expect {
1110 -re "set.*$prompt $"\
1111 {
1112 send "print v_unsigned_char_array\n"
1113 expect {
1114 -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" { pass "set variable unsigned char array=\"hi\" (string)" }
1115 -re "$prompt $" { fail "set variable unsigned char array=\"hi\" (string)" }
1116 timeout { fail "(timeout) set variable unsigned char array=\"hi\" (string)" }
1117 }
1118 }
1119 -re "$prompt $" { fail "set variable unsigned char array=\"hi\" (string)" }
1120 timeout { fail "(timeout) set variable unsigned char array=\"hi\" (string)" }
1121}
1122
1123
1124#
1125# test "set variable" for "short array[2]"
1126#
1127send "set variable v_short_array\[0\]=123\n"
1128expect -re "$prompt $"
1129send "set variable v_short_array\[1\]=-456\n"
1130expect {
1131 -re "set.*$prompt $"\
1132 {
1133 send "print v_short_array\n"
1134 expect {
1135 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable short array" }
1136 -re "$prompt $" { fail "set variable short array" }
1137 timeout { fail "(timeout) set variable short array" }
1138 }
1139 }
1140 -re "$prompt $" { fail "set variable short array" }
1141 timeout { fail "(timeout) set variable short array" }
1142}
1143
1144
1145#
1146# test "set variable" for "signed short array[2]"
1147#
1148send "set variable v_signed_short_array\[0\]=123\n"
1149expect -re "$prompt $"
1150send "set variable v_signed_short_array\[1\]=-456\n"
1151expect {
1152 -re "set.*$prompt $"\
1153 {
1154 send "print v_signed_short_array\n"
1155 expect {
1156 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable signed short array" }
1157 -re "$prompt $" { fail "set variable signed short array" }
1158 timeout { fail "(timeout) set variable signed short array" }
1159 }
1160 }
1161 -re "$prompt $" { fail "set variable signed short array" }
1162 timeout { fail "(timeout) set variable signed short array" }
1163}
1164
1165
1166#
1167# test "set variable" for "unsigned short array[2]"
1168#
1169send "set variable v_unsigned_short_array\[0\]=123\n"
1170expect -re "$prompt $"
1171send "set variable v_unsigned_short_array\[1\]=-456\n"
1172expect {
1173 -re "set.*$prompt $"\
1174 {
1175 send "print v_unsigned_short_array\n"
1176 expect {
1177 -re "print.*.\[0-9\]* =.*\{123,.*65080\}.*$prompt $" { pass "set variable unsigned short array" }
1178 -re "$prompt $" { fail "set variable unsigned short array" }
1179 timeout { fail "(timeout) set variable unsigned short array" }
1180 }
1181 }
1182 -re "$prompt $" { fail "set variable unsigned short array" }
1183 timeout { fail "(timeout) set variable unsigned short array" }
1184}
1185
1186
1187#
1188# test "set variable" for "int array[2]"
1189#
1190send "set variable v_int_array\[0\]=123\n"
1191expect -re "$prompt $"
1192send "set variable v_int_array\[1\]=-456\n"
1193expect {
1194 -re "set.*$prompt $"\
1195 {
1196 send "print v_int_array\n"
1197 expect {
1198 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable int array" }
1199 -re "$prompt $" { fail "set variable int array" }
1200 timeout { fail "(timeout) set variable int array" }
1201 }
1202 }
1203 -re "$prompt $" { fail "set variable int array" }
1204 timeout { fail "(timeout) set variable int array" }
1205}
1206
1207
1208#
1209# test "set variable" for "signed int array[2]"
1210#
1211send "set variable v_signed_int_array\[0\]=123\n"
1212expect -re "$prompt $"
1213send "set variable v_signed_int_array\[1\]=-456\n"
1214expect {
1215 -re "set.*$prompt $"\
1216 {
1217 send "print v_signed_int_array\n"
1218 expect {
1219 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable signed int array" }
1220 -re "$prompt $" { fail "set variable signed int array" }
1221 timeout { fail "(timeout) set variable signed int array" }
1222 }
1223 }
1224 -re "$prompt $" { fail "set variable signed int array" }
1225 timeout { fail "(timeout) set variable signed int array" }
1226}
1227
1228
1229
1230#
1231# test "set variable" for "unsigned int array[2]"
1232#
1233send "set variable v_unsigned_int_array\[0\]=123\n"
1234expect -re "$prompt $"
1235send "set variable v_unsigned_int_array\[1\]=-456\n"
1236expect {
1237 -re "set.*$prompt $"\
1238 {
1239 send "print v_unsigned_int_array\n"
1240 expect {
1241 -re "print.*.\[0-9\]* =.*\{123,.*4294966840\}.*$prompt $" { pass "set variable unsigned int array" }
1242 -re "$prompt $" { fail "set variable unsigned int array" }
1243 timeout { fail "(timeout) set variable unsigned int array" }
1244 }
1245 }
1246 -re "$prompt $" { fail "set variable unsigned int array" }
1247 timeout { fail "(timeout) set variable unsigned int array" }
1248}
1249
1250
1251#
1252# test "set variable" for "long array[2]"
1253#
1254send "set variable v_long_array\[0\]=123\n"
1255expect -re "$prompt $"
1256send "set variable v_long_array\[1\]=-456\n"
1257expect {
1258 -re "set.*$prompt $"\
1259 {
1260 send "print v_long_array\n"
1261 expect {
1262 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable long array" }
1263 -re "$prompt $" { fail "set variable long array" }
1264 timeout { fail "(timeout) set variable long array" }
1265 }
1266 }
1267 -re "$prompt $" { fail "set variable long array" }
1268 timeout { fail "(timeout) set variable long array" }
1269}
1270
1271
1272#
1273# test "set variable" for "signed long array[2]"
1274#
1275send "set variable v_signed_long_array\[0\]=123\n"
1276expect -re "$prompt $"
1277send "set variable v_signed_long_array\[1\]=-456\n"
1278expect {
1279 -re "set.*$prompt $"\
1280 {
1281 send "print v_signed_long_array\n"
1282 expect {
1283 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable signed long array" }
1284 -re "$prompt $" { fail "set variable signed long array" }
1285 timeout { fail "(timeout) set variable signed long array" }
1286 }
1287 }
1288 -re "$prompt $" { fail "set variable signed long array" }
1289 timeout { fail "(timeout) set variable signed long array" }
1290}
1291
1292
1293
1294#
1295# test "set variable" for "unsigned long array[2]"
1296#
1297send "set variable v_unsigned_long_array\[0\]=123\n"
1298expect -re "$prompt $"
1299send "set variable v_unsigned_long_array\[1\]=-456\n"
1300expect {
1301 -re "$prompt $"\
1302 {
1303 send "print v_unsigned_long_array\n"
1304 expect {
1305 -re "print.*.\[0-9\]* =.*\{123,.*$ulong_minus_456\}.*$prompt $" { pass "set variable unsigned long array" }
1306 -re "$prompt $" { fail "set variable unsigned long array" }
1307 timeout { fail "(timeout) set variable unsigned long array" }
1308 }
1309 }
1310 -re "$prompt $" { fail "set variable unsigned long array" }
1311 timeout { fail "(timeout) set variable unsigned long array" }
1312}
1313
1314
1315#
1316# test "set variable" for "float array[2]"
1317#
1318send "set variable v_float_array\[0\]=123.0\n"
1319expect -re "$prompt $"
1320send "set variable v_float_array\[1\]=-456.0\n"
1321expect {
1322 -re "$prompt $"\
1323 {
1324 send "print v_float_array\n"
1325 expect {
1326 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable float array" }
1327 -re "$prompt $" { fail "set variable float array" }
1328 timeout { fail "(timeout) set variable float array" }
1329 }
1330 }
1331 -re "$prompt $" { fail "set variable float array" }
1332 timeout { fail "(timeout) set variable float array" }
1333}
1334
1335
1336#
1337# test "set variable" for "double array[2]"
1338#
1339send "set variable v_double_array\[0\]=123.0\n"
1340expect -re "$prompt $"
1341send "set variable v_double_array\[1\]=-456.0\n"
1342expect {
1343 -re "$prompt $"\
1344 {
1345 send "print v_double_array\n"
1346 expect {
1347 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable double array" }
1348 -re "$prompt $" { fail "set variable double array" }
1349 timeout { fail "(timeout) set variable double array" }
1350 }
1351 }
1352 -re "$prompt $" { fail "set variable double array" }
1353 timeout { fail "(timeout) set variable double array" }
1354}
1355
1356
1357#
1358# test "set variable" for type "char *"
1359#
1360send "set v_char_pointer=v_char_array\n"
1361expect -re "set.*$prompt $"
1362send "set variable *(v_char_pointer)='h'\n"
1363expect -re "set.*$prompt $"
1364send "set variable *(v_char_pointer+1)='i'\n"
1365expect {
1366 -re "set.*$prompt $" {
1367 send "print v_char_array\n"
1368 expect {
1369 -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" {
1370 send "print *(v_char_pointer+1)\n"
1371 expect {
1372 -re "print.*.\[0-9\]* = 105 \'i\'.*$prompt $" { pass "set variable char pointer=\"hi\" (string)" }
1373 -re "$prompt $" { fail "set variable char pointer=\"hi\" (string)" }
1374 timeout { fail "(timeout) set variable char pointer=\"hi\" (string)" }
1375
1376 }
1377 }
1378 -re "$prompt $" { fail "set variable char pointer=\"hi\" (string)" }
1379 timeout { fail "(timeout) set variable char pointer=\"hi\" (string)" }
1380 }
1381 }
1382 -re "$prompt $" { fail "set variable char pointer=\"hi\" (string)" }
1383 timeout { fail "(timeout) set variable char pointer=\"hi\" (string)" }
1384}
1385
1386
1387#
1388# test "set variable" for type "signed char *"
1389#
1390send "set v_signed_char_pointer=v_signed_char_array\n"
1391expect -re "set.*$prompt $"
1392send "set variable *(v_signed_char_pointer)='h'\n"
1393expect -re "set.*$prompt $"
1394send "set variable *(v_signed_char_pointer+1)='i'\n"
1395expect {
1396 -re "set.*$prompt $" {
1397 send "print v_signed_char_array\n"
1398 expect {
1399 -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" {
1400 send "print *(v_signed_char_pointer+1)\n"
1401 expect {
1402 -re "print.*.\[0-9\]* = 105 \'i\'.*$prompt $" { pass "set variable signed char pointer=\"hi\" (string)" }
1403 -re "$prompt $" { fail "set variable signed char pointer=\"hi\" (string)" }
1404 timeout { fail "(timeout) set variable signed char pointer=\"hi\" (string)" }
1405
1406 }
1407 }
1408 -re "$prompt $" { fail "set variable signed char pointer=\"hi\" (string)" }
1409 timeout { fail "(timeout) set variable signed char pointer=\"hi\" (string)" }
1410 }
1411 }
1412 -re "$prompt $" { fail "set variable signed char pointer=\"hi\" (string)" }
1413 timeout { fail "(timeout) set variable signed char pointer=\"hi\" (string)" }
1414}
1415
1416
1417#
1418# test "set variable" for type "unsigned char *"
1419#
1420send "set v_unsigned_char_pointer=v_unsigned_char_array\n"
1421expect -re "set.*$prompt $"
1422send "set variable *(v_unsigned_char_pointer)='h'\n"
1423expect -re "set.*$prompt $"
1424send "set variable *(v_unsigned_char_pointer+1)='i'\n"
1425expect {
1426 -re "set.*$prompt $" {
1427 send "print v_unsigned_char_array\n"
1428 expect {
1429 -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" {
1430 send "print *(v_unsigned_char_pointer+1)\n"
1431 expect {
1432 -re "print.*.\[0-9\]* = 105 \'i\'.*$prompt $" { pass "set variable unsigned char pointer=\"hi\" (string)" }
1433 -re "$prompt $" { fail "set variable unsigned char pointer=\"hi\" (string)" }
1434 timeout { fail "(timeout) set variable unsigned char pointer=\"hi\" (string)" }
1435
1436 }
1437 }
1438 -re "$prompt $" { fail "set variable unsigned char pointer=\"hi\" (string)" }
1439 timeout { fail "(timeout) set variable unsigned char pointer=\"hi\" (string)" }
1440 }
1441 }
1442 -re "$prompt $" { fail "set variable unsigned char pointer=\"hi\" (string)" }
1443 timeout { fail "(timeout) set variable unsigned char pointer=\"hi\" (string)" }
1444}
1445
1446
1447#
1448# test "set variable" for type "short *"
1449#
1450send "set v_short_pointer=v_short_array\n"
1451expect -re "set.*$prompt $"
1452send "set variable *(v_short_pointer)=123\n"
1453expect -re "set.*$prompt $"
1454send "set variable *(v_short_pointer+1)=-456\n"
1455expect {
1456 -re "set.*$prompt $" {
1457 send "print v_short_array\n"
1458 expect {
1459 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
1460 send "print *(v_short_pointer+1)\n"
1461 expect {
1462 -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable short pointer" }
1463 -re "$prompt $" { fail "set variable short pointer" }
1464 timeout { fail "(timeout) set variable short pointer" }
1465
1466 }
1467 }
1468 -re "$prompt $" { fail "set variable short pointer" }
1469 timeout { fail "(timeout) set variable short pointer" }
1470 }
1471 }
1472 -re "$prompt $" { fail "set variable short pointer" }
1473 timeout { fail "(timeout) set variable short pointer" }
1474}
1475
1476
1477#
1478# test "set variable" for type "signed short *"
1479#
1480send "set v_signed_short_pointer=v_signed_short_array\n"
1481expect -re "set.*$prompt $"
1482send "set variable *(v_signed_short_pointer)=123\n"
1483expect -re "set.*$prompt $"
1484send "set variable *(v_signed_short_pointer+1)=-456\n"
1485expect {
1486 -re "set.*$prompt $" {
1487 send "print v_signed_short_array\n"
1488 expect {
1489 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
1490 send "print *(v_signed_short_pointer+1)\n"
1491 expect {
1492 -re "print.*.\[0-9\]*.*=.*-456.*$prompt $" { pass "set variable signed short pointer" }
1493 -re "$prompt $" { fail "set variable signed short pointer (FIXME)" }
1494 timeout { fail "(timeout) set variable signed short pointer (FIXME)" }
1495
1496 }
1497 }
1498 -re "$prompt $" { fail "set variable signed short pointer (FIXME)" }
1499 timeout { fail "(timeout) set variable signed short pointer (FIXME)" }
1500 }
1501 }
1502 -re "$prompt $" { fail "set variable signed short pointer (FIXME)" }
1503 timeout { fail "(timeout) set variable signed short pointer (FIXME)" }
1504}
1505
1506
1507#
1508# test "set variable" for type "unsigned short *"
1509#
1510send "set v_unsigned_short_pointer=v_unsigned_short_array\n"
1511expect -re "set.*$prompt $"
1512send "set variable *(v_unsigned_short_pointer)=123\n"
1513expect -re "set.*$prompt $"
1514send "set variable *(v_unsigned_short_pointer+1)=-456\n"
1515expect {
1516 -re "set.*$prompt $" {
1517 send "print v_unsigned_short_array\n"
1518 expect {
1519 -re "print.*.\[0-9\]* =.*\{123,.*65080\}.*$prompt $" {
1520 send "print *(v_unsigned_short_pointer+1)\n"
1521 expect {
1522 -re "print.*.\[0-9\]* = 65080.*$prompt $" { pass "set variable unsigned short pointer" }
1523 -re "$prompt $" { fail "set variable unsigned short pointer (FIXME)" }
1524 timeout { fail "(timeout) set variable unsigned short pointer (FIXME)" }
1525
1526 }
1527 }
1528 -re "$prompt $" { fail "set variable unsigned short pointer (FIXME)" }
1529 timeout { fail "(timeout) set variable unsigned short pointer (FIXME)" }
1530 }
1531 }
1532 -re "$prompt $" { fail "set variable unsigned short pointer (FIXME)" }
1533 timeout { fail "(timeout) set variable unsigned short pointer (FIXME)" }
1534}
1535
1536
1537#
1538# test "set variable" for type "int *"
1539#
1540send "set v_int_pointer=v_int_array\n"
1541expect -re "set.*$prompt $"
1542send "set variable *(v_int_pointer)=123\n"
1543expect -re "set.*$prompt $"
1544send "set variable *(v_int_pointer+1)=-456\n"
1545expect {
1546 -re "set.*$prompt $" {
1547 send "print v_int_array\n"
1548 expect {
1549 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
1550 send "print *(v_int_pointer+1)\n"
1551 expect {
1552 -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable int pointer" }
1553 -re "$prompt $" { fail "set variable int pointer" }
1554 timeout { fail "(timeout) set variable int pointer" }
1555
1556 }
1557 }
1558 -re "$prompt $" { fail "set variable int pointer" }
1559 timeout { fail "(timeout) set variable int pointer" }
1560 }
1561 }
1562 -re "$prompt $" { fail "set variable int pointer" }
1563 timeout { fail "(timeout) set variable int pointer" }
1564}
1565
1566
1567#
1568# test "set variable" for type "signed int *"
1569#
1570send "set v_signed_int_pointer=v_signed_int_array\n"
1571expect -re "set.*$prompt $"
1572send "set variable *(v_signed_int_pointer)=123\n"
1573expect -re "set.*$prompt $"
1574send "set variable *(v_signed_int_pointer+1)=-456\n"
1575expect {
1576 -re "set.*$prompt $" {
1577 send "print v_signed_int_array\n"
1578 expect {
1579 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
1580 send "print *(v_signed_int_pointer+1)\n"
1581 expect {
1582 -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable signed int pointer" }
1583 -re "$prompt $" { fail "set variable signed int pointer" }
1584 timeout { fail "(timeout) set variable signed int pointer" }
1585
1586 }
1587 }
1588 -re "$prompt $" { fail "set variable signed int pointer" }
1589 timeout { fail "(timeout) set variable signed int pointer" }
1590 }
1591 }
1592 -re "$prompt $" { fail "set variable signed int pointer" }
1593 timeout { fail "(timeout) set variable signed int pointer" }
1594}
1595
1596
1597#
1598# test "set variable" for type "unsigned int *"
1599#
1600send "set v_unsigned_int_pointer=v_unsigned_int_array\n"
1601expect -re "set.*$prompt $"
1602send "set variable *(v_unsigned_int_pointer)=123\n"
1603expect -re "set.*$prompt $"
1604send "set variable *(v_unsigned_int_pointer+1)=-456\n"
1605expect {
1606 -re "set.*$prompt $" {
1607 send "print v_unsigned_int_array\n"
1608 expect {
1609 -re "print.*.\[0-9\]* =.*\{123,.*4294966840\}.*$prompt $" {
1610 send "print *(v_unsigned_int_pointer+1)\n"
1611 expect {
1612 -re "print.*.\[0-9\]* = 4294966840.*$prompt $" { pass "set variable unsigned int pointer" }
1613 -re "$prompt $" { fail "set variable unsigned int pointer" }
1614 timeout { fail "(timeout) set variable unsigned int pointer" }
1615
1616 }
1617 }
1618 -re "$prompt $" { fail "set variable unsigned int pointer" }
1619 timeout { fail "(timeout) set variable unsigned int pointer" }
1620 }
1621 }
1622 -re "$prompt $" { fail "set variable unsigned int pointer" }
1623 timeout { fail "(timeout) set variable unsigned int pointer" }
1624}
1625
1626
1627#
1628# test "set variable" for type "long *"
1629#
1630send "set v_long_pointer=v_long_array\n"
1631expect -re "set.*$prompt $"
1632send "set variable *(v_long_pointer)=123\n"
1633expect -re "set.*$prompt $"
1634send "set variable *(v_long_pointer+1)=-456\n"
1635expect {
1636 -re "set.*$prompt $" {
1637 send "print v_long_array\n"
1638 expect {
1639 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
1640 send "print *(v_long_pointer+1)\n"
1641 expect {
1642 -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable long pointer" }
1643 -re "$prompt $" { fail "set variable long pointer" }
1644 timeout { fail "(timeout) set variable long pointer" }
1645
1646 }
1647 }
1648 -re "$prompt $" { fail "set variable long pointer" }
1649 timeout { fail "(timeout) set variable long pointer" }
1650 }
1651 }
1652 -re "$prompt $" { fail "set variable long pointer" }
1653 timeout { fail "(timeout) set variable long pointer" }
1654}
1655
1656
1657#
1658# test "set variable" for type "signed long *"
1659#
1660send "set v_signed_long_pointer=v_signed_long_array\n"
1661expect -re "set.*$prompt $"
1662send "set variable *(v_signed_long_pointer)=123\n"
1663expect -re "set.*$prompt $"
1664send "set variable *(v_signed_long_pointer+1)=-456\n"
1665expect {
1666 -re "set.*$prompt $" {
1667 send "print v_signed_long_array\n"
1668 expect {
1669 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
1670 send "print *(v_signed_long_pointer+1)\n"
1671 expect {
1672 -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable signed long pointer" }
1673 -re "$prompt $" { fail "set variable signed long pointer" }
1674 timeout { fail "(timeout) set variable signed long pointer" }
1675
1676 }
1677 }
1678 -re "$prompt $" { fail "set variable signed long pointer" }
1679 timeout { fail "(timeout) set variable signed long pointer" }
1680 }
1681 }
1682 -re "$prompt $" { fail "set variable signed long pointer" }
1683 timeout { fail "(timeout) set variable signed long pointer" }
1684}
1685
1686
1687#
1688# test "set variable" for type "unsigned long *"
1689#
1690send "set v_unsigned_long_pointer=v_unsigned_long_array\n"
1691expect -re "set.*$prompt $"
1692send "set variable *(v_unsigned_long_pointer)=123\n"
1693expect -re "set.*$prompt $"
1694send "set variable *(v_unsigned_long_pointer+1)=-456\n"
1695expect {
1696 -re "set.*$prompt $" {
1697 send "print v_unsigned_long_array\n"
1698 expect {
1699 -re "print.*.\[0-9\]* =.*\{123,.*$ulong_minus_456\}.*$prompt $" {
1700 send "print *(v_unsigned_long_pointer+1)\n"
1701 expect {
1702 -re "print.*.\[0-9\]* = $ulong_minus_456.*$prompt $" { pass "set variable unsigned long pointer" }
1703 -re "$prompt $" { fail "set variable unsigned long pointer" }
1704 timeout { fail "(timeout) set variable unsigned long pointer" }
1705
1706 }
1707 }
1708 -re "$prompt $" { fail "set variable unsigned long pointer" }
1709 timeout { fail "(timeout) set variable unsigned long pointer" }
1710 }
1711 }
1712 -re "$prompt $" { fail "set variable unsigned long pointer" }
1713 timeout { fail "(timeout) set variable unsigned long pointer" }
1714}
1715
1716
1717#
1718# test "set variable" for type "float *"
1719#
1720send "set v_float_pointer=v_float_array\n"
1721expect -re "set.*$prompt $"
1722send "set variable *(v_float_pointer)=123.0\n"
1723expect -re "set.*$prompt $"
1724send "set variable *(v_float_pointer+1)=-456.0\n"
1725expect {
1726 -re "set.*$prompt $" {
1727 send "print v_float_array\n"
1728 expect {
1729 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
1730 send "print *(v_float_pointer+1)\n"
1731 expect {
1732 -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable float pointer" }
1733 -re "$prompt $" { fail "set variable float pointer" }
1734 timeout { fail "(timeout) set variable float pointer" }
1735
1736 }
1737 }
1738 -re "$prompt $" { fail "set variable float pointer" }
1739 timeout { fail "(timeout) set variable float pointer" }
1740 }
1741 }
1742 -re "$prompt $" { fail "set variable float pointer" }
1743 timeout { fail "(timeout) set variable float pointer" }
1744}
1745
1746
1747#
1748# test "set variable" for type "double *"
1749#
1750send "set v_double_pointer=v_double_array\n"
1751expect -re "set.*$prompt $"
1752send "set variable *(v_double_pointer)=123.0\n"
1753expect -re "set.*$prompt $"
1754send "set variable *(v_double_pointer+1)=-456.0\n"
1755expect {
1756 -re "set.*$prompt $" {
1757 send "print v_double_array\n"
1758 expect {
1759 -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
1760 send "print *(v_double_pointer+1)\n"
1761 expect {
1762 -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable double pointer" }
1763 -re "$prompt $" { fail "set variable double pointer" }
1764 timeout { fail "(timeout) set variable double pointer" }
1765
1766 }
1767 }
1768 -re "$prompt $" { fail "set variable double pointer" }
1769 timeout { fail "(timeout) set variable double pointer" }
1770 }
1771 }
1772 -re "$prompt $" { fail "set variable double pointer" }
1773 timeout { fail "(timeout) set variable double pointer" }
1774}
1775
1776
1777#
1778# test "set variable" for struct members
1779#
1780send "set variable v_struct1.v_char_member='h'\n"
1781expect {
1782 -re "set.*$prompt $"\
1783 {
1784 send "print v_struct1.v_char_member\n"
1785 expect {
1786 -re "print.*.\[0-9\]* = 104 \'h\'.*$prompt $" { pass "set variable structure char member" }
1787 -re "$prompt $" { fail "set variable structure char member" }
1788 timeout { fail "(timeout) set variable structure char member" }
1789 }
1790 }
1791 -re "$prompt $" { fail "set variable structure char member" }
1792 timeout { fail "(timeout) set variable structure char member" }
1793}
1794
1795
1796send "set variable v_struct1.v_short_member=1\n"
1797expect {
1798 -re "set.*$prompt $"\
1799 {
1800 send "print v_struct1.v_short_member\n"
1801 expect {
1802 -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "set variable structure short member" }
1803 -re "$prompt $" { fail "set variable structure short member" }
1804 timeout { fail "(timeout) set variable structure short member" }
1805 }
1806 }
1807 -re "$prompt $" { fail "set variable structure short member" }
1808 timeout { fail "(timeout) set variable structure short member" }
1809}
1810
1811
1812send "set variable v_struct1.v_int_member=2\n"
1813expect {
1814 -re "set.*$prompt $"\
1815 {
1816 send "print v_struct1.v_int_member\n"
1817 expect {
1818 -re "print.*.\[0-9\]* = 2.*$prompt $" { pass "set variable structure int member" }
1819 -re "$prompt $" { fail "set variable structure int member" }
1820 timeout { fail "(timeout) set variable structure int member" }
1821 }
1822 }
1823 -re "$prompt $" { fail "set variable structure int member" }
1824 timeout { fail "(timeout) set variable structure int member" }
1825}
1826
1827
1828send "set variable v_struct1.v_long_member=3\n"
1829expect {
1830 -re "set.*$prompt $"\
1831 {
1832 send "print v_struct1.v_long_member\n"
1833 expect {
1834 -re "print.*.\[0-9\]* = 3.*$prompt $" { pass "set variable structure long member" }
1835 -re "$prompt $" { fail "set variable structure long member" }
1836 timeout { fail "(timeout) set variable structure long member" }
1837 }
1838 }
1839 -re "$prompt $" { fail "set variable structure long member" }
1840 timeout { fail "(timeout) set variable structure long member" }
1841}
1842
1843
1844send "set variable v_struct1.v_float_member=4.0\n"
1845expect {
1846 -re "set.*$prompt $"\
1847 {
1848 send "print v_struct1.v_float_member\n"
1849 expect {
1850 -re "print.*.\[0-9\]* = 4.*$prompt $" { pass "set variable structure float member" }
1851 -re "$prompt $" { fail "set variable structure float member" }
1852 timeout { fail "(timeout) set variable structure float member" }
1853 }
1854 }
1855 -re "$prompt $" { fail "set variable structure float member" }
1856 timeout { fail "(timeout) set variable structure float member" }
1857}
1858
1859
1860send "set variable v_struct1.v_double_member=5.0\n"
1861expect {
1862 -re "set.*$prompt $"\
1863 {
1864 send "print v_struct1.v_double_member\n"
1865 expect {
1866 -re "print.*.\[0-9\]* = 5.*$prompt $" { pass "set variable structure double member" }
1867 -re "$prompt $" { fail "set variable structure double member" }
1868 timeout { fail "(timeout) set variable structure double member" }
1869 }
1870 }
1871 -re "$prompt $" { fail "set variable structure double member" }
1872 timeout { fail "(timeout) set variable structure double member" }
1873}
1874
1875
1876
1877send "print v_struct1\n"
1878expect {
1879 -re "print.*.\[0-9\]* = \{.*v_char_member = 104 \'h\',.*v_short_member = 1,.*v_int_member = 2,.*\
1880v_long_member = 3,.*v_float_member = 4,.*v_double_member = 5.*\}.*$prompt $"\
1881 { pass "set print structure" }
1882 -re "$prompt $" { fail "set print structure" }
1883 timeout { fail "(timeout) set print structure" }
1884}
1885
1886if [istarget "a29k-*-udi"] then {
1887 # FIXME: If PR 2415 is fixed, this is not needed.
1888 gdb_target_udi
1889}
GDB Binutils - Deliverables
This page took 0.116119 seconds and 4 git commands to generate.