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