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