From 071ea11e85eb9d529cc5eb3d35f6247466a21b99 Mon Sep 17 00:00:00 2001 From: Stan Shebs Date: Fri, 16 Apr 1999 01:34:07 +0000 Subject: Initial creation of sourceware repository --- gdb/testsuite/gdb.base/constvars.exp | 963 ----------------------------------- 1 file changed, 963 deletions(-) delete mode 100644 gdb/testsuite/gdb.base/constvars.exp (limited to 'gdb/testsuite/gdb.base/constvars.exp') diff --git a/gdb/testsuite/gdb.base/constvars.exp b/gdb/testsuite/gdb.base/constvars.exp deleted file mode 100644 index e587487..0000000 --- a/gdb/testsuite/gdb.base/constvars.exp +++ /dev/null @@ -1,963 +0,0 @@ -# Copyright (C) 1997, 1998 Free Software Foundation, Inc. - -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ - -# Please email any bugs, comments, and/or additions to this file to: -# bug-gdb@prep.ai.mit.edu - -# written by Elena Zannoni (elz@apollo.hp.com) -# -# This file is part of the gdb testsuite -# -# tests for const variables -# const pointers to vars -# pointers to const variables -# const pointers to const vars -# with mixed types - -if $tracelevel then { - strace $tracelevel - } - -# -# test running programs -# -set prms_id 0 -set bug_id 0 - -set testfile "constvars" -set srcfile ${testfile}.c -set binfile ${objdir}/${subdir}/${testfile} - -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } { - gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." -} - - -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} - - -# -# set it up at a breakpoint so we can play with the variable values -# -if ![runto_main] then { - perror "couldn't run to breakpoint" - continue -} - -send_gdb "break marker1\n" ; gdb_expect -re ".*$gdb_prompt $" - - send_gdb "cont\n" - gdb_expect { - -re "Break.* marker1 \\(\\) at .*:$decimal.*$gdb_prompt $" { - send_gdb "up\n" - gdb_expect { - -re ".*$gdb_prompt $" {} - timeout { fail "up from marker1" } - } - } - -re "Break.* marker1__.* \\(\\) at .*:$decimal.*$gdb_prompt $" { - fail "continue to marker1 (demangling)" - send_gdb "up\n" - gdb_expect { - -re ".*$gdb_prompt $" {} - timeout { fail "up from marker1" } - } - } - -re "$gdb_prompt $" { fail "continue to marker1" } - timeout { fail "(timeout) continue to marker1" } - } - -# test function parameters -send_gdb "ptype qux1\n" -gdb_expect { - -re "type = int \\(const char, const char &, const char \\*, char \\* const\\).*$gdb_prompt $" { - pass "ptype qux1" - } - -re ".*$gdb_prompt $" { fail "ptype qux1" } - timeout { fail "(timeout) ptype qux1" } - } - -# test vars and pointers - -send_gdb "print lave\n" -gdb_expect { - -re ".\[0-9\]* = 66 \'B\'.*$gdb_prompt $" { - pass "print value of lave" - } - -re ".*$gdb_prompt $" { fail "print value of lave" } - timeout { fail "(timeout) print value of lave" } - } - - -send_gdb "ptype lave\n" -gdb_expect { - -re "type = char.*$gdb_prompt $" { pass "ptype lave" } - -re ".*$gdb_prompt $" { fail "ptype lave" } - timeout { fail "(timeout) ptype lave" } -} - - -send_gdb "print lavish\n" -gdb_expect { - -re ".\[0-9\]* = 10 \'\\\\n\'.*$gdb_prompt $" { - pass "print value of lavish" - } - -re ".*$gdb_prompt $" { fail "print value of lavish" } - timeout { fail "(timeout) print value of lavish" } - } - - -send_gdb "ptype lavish\n" -gdb_expect { - -re "type = unsigned char.*$gdb_prompt $" { pass "ptype lavish" } - -re ".*$gdb_prompt $" { fail "ptype lavish " } - timeout { fail "(timeout) ptype lavish " } -} - - -send_gdb "print lax\n" -gdb_expect { - -re ".\[0-9\]* = 20.*$gdb_prompt $" { - pass "print value of lax" - } - -re ".*$gdb_prompt $" { fail "print value of lax" } - timeout { fail "(timeout) print value of lax" } - } - - -send_gdb "ptype lax\n" -gdb_expect { - -re "type = short.*$gdb_prompt $" { pass "ptype lax" } - -re ".*$gdb_prompt $" { fail "ptype lax" } - timeout { fail "(timeout) ptype lax" } -} - - -send_gdb "print lecherous\n" -gdb_expect { - -re ".\[0-9\]* = 30.*$gdb_prompt $" { - pass "print value of lecherous" - } - -re ".*$gdb_prompt $" { fail "print value of lecherous" } - timeout { fail "(timeout) print value of lecherous" } - } - - -send_gdb "ptype lecherous\n" -gdb_expect { - -re "type = unsigned short.*$gdb_prompt $" { pass "ptype lecherous" } - -re "type = short unsigned.*$gdb_prompt $" { pass "ptype lecherous" } - -re ".*$gdb_prompt $" { fail "ptype lecherous" } - timeout { fail "(timeout) ptype lecherous" } -} - - -send_gdb "print lechery\n" -gdb_expect { - -re ".\[0-9\]* = 40.*$gdb_prompt $" { - pass "print value of lechery" - } - -re ".*$gdb_prompt $" { fail "print value of lechery" } - timeout { fail "(timeout) print value of lechery" } - } - - -send_gdb "ptype lechery\n" -gdb_expect { - -re "type = long.*$gdb_prompt $" { pass "ptype lechery" } - -re ".*$gdb_prompt $" { fail "ptype lechery" } - timeout { fail "(timeout) ptype lechery" } -} - - -send_gdb "print lectern\n" -gdb_expect { - -re ".\[0-9\]* = 50.*$gdb_prompt $" { - pass "print value of lectern" - } - -re ".*$gdb_prompt $" { fail "print value of lectern" } - timeout { fail "(timeout) print value of lectern " } - } - - -send_gdb "ptype lectern\n" -gdb_expect { - -re "type = unsigned long.*$gdb_prompt $" { pass "ptype lectern" } - -re "type = long unsigned.*$gdb_prompt $" { pass "ptype lectern" } - -re ".*$gdb_prompt $" { fail "ptype lectern" } - timeout { fail "(timeout) ptype lectern" } -} - - -send_gdb "print leeway\n" -gdb_expect { - -re ".\[0-9\]* = 60.*$gdb_prompt $" { - pass "print value of leeway" - } - -re ".*$gdb_prompt $" { fail "print value of leeway" } - timeout { fail "(timeout) print value of leeway" } - } - - -send_gdb "ptype leeway\n" -gdb_expect { - -re "type = float.*$gdb_prompt $" { pass "ptype leeway" } - -re ".*$gdb_prompt $" { fail "ptype leeway" } - timeout { fail "(timeout) ptype leeway" } -} - - -send_gdb "print legacy\n" -gdb_expect { - -re ".\[0-9\]* = 70.*$gdb_prompt $" { - pass "print value of legacy" - } - -re ".*$gdb_prompt $" { fail "print value of legacy" } - timeout { fail "(timeout) print value of legacy" } - } - - -send_gdb "ptype legacy\n" -gdb_expect { - -re "type = double.*$gdb_prompt $" { pass "ptype legacy" } - -re ".*$gdb_prompt $" { fail "ptype legacy" } - timeout { fail "(timeout) ptype legacy" } -} - - -send_gdb "print laconic\n" -gdb_expect { - -re ".\[0-9\]* = 65 \'A\'.*$gdb_prompt $" { - pass "print value of laconic" - } - -re ".*$gdb_prompt $" { fail "print value of laconic" } - timeout { fail "(timeout) print value of laconic" } - } - - -send_gdb "ptype laconic\n" -gdb_expect { - -re "type = const char.*$gdb_prompt $" { pass "ptype laconic" } - -re ".*$gdb_prompt $" { fail "ptype laconic" } - timeout { fail "(timeout) ptype laconic" } -} - - -send_gdb "print laggard\n" -gdb_expect { - -re ".\[0-9\]* = 1 \'.001\'.*$gdb_prompt $" { - pass "print value of laggard" - } - -re ".*$gdb_prompt $" { fail "print value of laggard" } - timeout { fail "(timeout) print value of laggard" } - } - - -send_gdb "ptype laggard\n" -gdb_expect { - -re "type = const unsigned char.*$gdb_prompt $" { pass "ptype laggard" } - -re ".*$gdb_prompt $" { fail "ptype laggard" } - timeout { fail "(timeout) ptype laggard" } -} - - -send_gdb "print lagoon\n" -gdb_expect { - -re ".\[0-9\]* = 2.*$gdb_prompt $" { - pass "print value of lagoon" - } - -re ".*$gdb_prompt $" { fail "print value of lagoon" } - timeout { fail "(timeout) print value of lagoon" } - } - - -send_gdb "ptype lagoon\n" -gdb_expect { - -re "type = const short.*$gdb_prompt $" { pass "ptype lagoon" } - -re ".*$gdb_prompt $" { fail "ptype lagoon" } - timeout { fail "(timeout) ptype lagoon" } -} - - -send_gdb "print laity\n" -gdb_expect { - -re ".\[0-9\]* = 3.*$gdb_prompt $" { - pass "print value of laity" - } - -re ".*$gdb_prompt $" { fail "print value of laity" } - timeout { fail "(timeout) print value of laity" } - } - - -send_gdb "ptype laity\n" -gdb_expect { - -re "type = const unsigned short.*$gdb_prompt $" { pass "ptype laity" } - -re ".*$gdb_prompt $" { fail "ptype laity" } - timeout { fail "(timeout) ptype "laity } -} - - -send_gdb "print lambent\n" -gdb_expect { - -re ".\[0-9\]* = 4.*$gdb_prompt $" { - pass "print value of lambent" - } - -re ".*$gdb_prompt $" { fail "print value of lambent" } - timeout { fail "(timeout) print value of lambent" } - } - - -send_gdb "ptype lambent\n" -gdb_expect { - -re "type = const long.*$gdb_prompt $" { pass "ptype lambent" } - -re ".*$gdb_prompt $" { fail "ptype lambent" } - timeout { fail "(timeout) ptype lambent" } -} - - -send_gdb "print laminated\n" -gdb_expect { - -re ".\[0-9\]* = 5.*$gdb_prompt $" { - pass "print value of laminated" - } - -re ".*$gdb_prompt $" { fail "print value of laminated" } - timeout { fail "(timeout) print value of laminated" } - } - - -send_gdb "ptype laminated\n" -gdb_expect { - -re "type = const unsigned long.*$gdb_prompt $" { pass "ptype laminated" } - -re ".*$gdb_prompt $" { fail "ptype laminated" } - timeout { fail "(timeout) ptype laminated" } -} - - -send_gdb "print lampoon\n" -gdb_expect { - -re ".\[0-9\]* = 6.*$gdb_prompt $" { - pass "print value of lampoon" - } - -re ".*$gdb_prompt $" { fail "print value of lampoon" } - timeout { fail "(timeout) print value of lampoon" } - } - - -send_gdb "ptype lampoon\n" -gdb_expect { - -re "type = const float.*$gdb_prompt $" { pass "ptype lampoon" } - -re ".*$gdb_prompt $" { fail "ptype lampoon" } - timeout { fail "(timeout) ptype lampoon" } -} - - -send_gdb "print languid\n" -gdb_expect { - -re ".\[0-9\]* = 7.*$gdb_prompt $" { - pass "print value of languid" - } - -re ".*$gdb_prompt $" { fail "print value of languid" } - timeout { fail "(timeout) print value of languid" } - } - - -send_gdb "ptype languid\n" -gdb_expect { - -re "type = const double.*$gdb_prompt $" { pass "ptype languid" } - -re ".*$gdb_prompt $" { fail "ptype languid" } - timeout { fail "(timeout) ptype languid" } -} - - -send_gdb "print *legend\n" -gdb_expect { - -re ".\[0-9\]* = 66 \'B\'.*$gdb_prompt $" { - pass "print value of *legend" - } - -re ".*$gdb_prompt $" { fail "print value of *legend" } - timeout { fail "(timeout) print value of *legend" } - } - - -send_gdb "ptype legend\n" -gdb_expect { - -re "type = const char \\*.*$gdb_prompt $" { pass "ptype legend" } - -re ".*$gdb_prompt $" { fail "ptype legend" } - timeout { fail "(timeout) ptype legend" } -} - - -send_gdb "print *legerdemain\n" -gdb_expect { - -re ".\[0-9\]* = 10 \'\\\\n\'.*$gdb_prompt $" { - pass "print value of *legerdemain" - } - -re ".*$gdb_prompt $" { fail "print value of *legerdemain" } - timeout { fail "(timeout) print value of *legerdemain" } - } - - -send_gdb "ptype legerdemain\n" -gdb_expect { - -re "type = const unsigned char \\*.*$gdb_prompt $" { pass "ptype legerdemain" } - -re ".*$gdb_prompt $" { fail "ptype legerdemain" } - timeout { fail "(timeout) ptype legerdemain" } -} - - -send_gdb "print *leniency\n" -gdb_expect { - -re ".\[0-9\]* = 20.*$gdb_prompt $" { - pass "print value of *leniency" - } - -re ".*$gdb_prompt $" { fail "print value of *leniency" } - timeout { fail "(timeout) print value of *leniency" } - } - - -send_gdb "ptype leniency\n" -gdb_expect { - -re "type = const short \\*.*$gdb_prompt $" { pass "ptype leniency" } - -re ".*$gdb_prompt $" { fail "ptype leniency " } - timeout { fail "(timeout) ptype leniency" } -} - - -send_gdb "print *leonine\n" -gdb_expect { - -re ".\[0-9\]* = 30.*$gdb_prompt $" { - pass "print value of *leonine" - } - -re ".*$gdb_prompt $" { fail "print value of *leonine" } - timeout { fail "(timeout) print value of *leonine" } - } - - -send_gdb "ptype leonine\n" -gdb_expect { - -re "type = const unsigned short \\*.*$gdb_prompt $" { pass "ptype leonine" } - -re ".*$gdb_prompt $" { fail "ptype leonine" } - timeout { fail "(timeout) ptype leonine" } -} - - -send_gdb "print *lesion\n" -gdb_expect { - -re ".\[0-9\]* = 40.*$gdb_prompt $" { - pass "print value of *lesion" - } - -re ".*$gdb_prompt $" { fail "print value of *lesion" } - timeout { fail "(timeout) print value of *lesion" } - } - - -send_gdb "ptype lesion\n" -gdb_expect { - -re "type = const long \\*.*$gdb_prompt $" { pass "ptype lesion" } - -re ".*$gdb_prompt $" { fail "ptype lesion" } - timeout { fail "(timeout) ptype lesion" } -} - - -send_gdb "print *lethal\n" -gdb_expect { - -re ".\[0-9\]* = 50.*$gdb_prompt $" { - pass "print value of *lethal" - } - -re ".*$gdb_prompt $" { fail "print value of *lethal" } - timeout { fail "(timeout) print value of *lethal" } - } - - -send_gdb "ptype lethal\n" -gdb_expect { - -re "type = const unsigned long \\*.*$gdb_prompt $" { pass "ptype lethal" } - -re ".*$gdb_prompt $" { fail "ptype lethal" } - timeout { fail "(timeout) ptype lethal" } -} - - -send_gdb "print *lethargic\n" -gdb_expect { - -re ".\[0-9\]* = 60.*$gdb_prompt $" { - pass "print value of *lethargic" - } - -re ".*$gdb_prompt $" { fail "print value of *lethargic" } - timeout { fail "(timeout) print value of *lethargic" } - } - - -send_gdb "ptype lethargic\n" -gdb_expect { - -re "type = const float \\*.*$gdb_prompt $" { pass "ptype lethargic" } - -re ".*$gdb_prompt $" { fail "ptype lethargic" } - timeout { fail "(timeout) ptype lethargic" } -} - - -send_gdb "print *levity\n" -gdb_expect { - -re ".\[0-9\]* = 70.*$gdb_prompt $" { - pass "print value of *levity" - } - -re ".*$gdb_prompt $" { fail "print value of *levity" } - timeout { fail "(timeout) print value of *levity" } - } - - -send_gdb "ptype levity\n" -gdb_expect { - -re "type = const double \\*.*$gdb_prompt $" { pass "ptype levity" } - -re ".*$gdb_prompt $" { fail "ptype levity" } - timeout { fail "(timeout) ptype levity" } -} - - -send_gdb "print *lewd\n" -gdb_expect { - -re ".\[0-9\]* = 65 \'A\'.*$gdb_prompt $" { - pass "print value of *lewd" - } - -re ".*$gdb_prompt $" { fail "print value of *lewd" } - timeout { fail "(timeout) print value of *lewd" } - } - - -send_gdb "ptype lewd\n" -gdb_expect { - -re "type = const char \\* const.*$gdb_prompt $" { pass "ptype lewd" } - -re ".*$gdb_prompt $" { fail "ptype lewd" } - timeout { fail "(timeout) ptype lewd" } -} - - -send_gdb "print *lexicographer\n" -gdb_expect { - -re ".\[0-9\]* = 1 \'.001\'.*$gdb_prompt $" { - pass "print value of *lexicographer" - } - -re ".*$gdb_prompt $" { fail "print value of *lexicographer" } - timeout { fail "(timeout) print value of *lexicographer" } - } - - -send_gdb "ptype lexicographer\n" -gdb_expect { - -re "type = const unsigned char \\* const.*$gdb_prompt $" { pass "ptype lexicographer" } - -re ".*$gdb_prompt $" { fail "ptype lexicographer" } - timeout { fail "(timeout) ptype lexicographer" } -} - - -send_gdb "print *lexicon\n" -gdb_expect { - -re ".\[0-9\]* = 2.*$gdb_prompt $" { - pass "print value of *lexicon" - } - -re ".*$gdb_prompt $" { fail "print value of *lexicon" } - timeout { fail "(timeout) print value of *lexicon" } - } - - -send_gdb "ptype lexicon\n" -gdb_expect { - -re "type = const short \\* const.*$gdb_prompt $" { pass "ptype lexicon" } - -re ".*$gdb_prompt $" { fail "ptype lexicon" } - timeout { fail "(timeout) ptype lexicon" } -} - - -send_gdb "print *liaison\n" -gdb_expect { - -re ".\[0-9\]* = 3.*$gdb_prompt $" { - pass "print value of *liaison" - } - -re ".*$gdb_prompt $" { fail "print value of *liaison" } - timeout { fail "(timeout) print value of *liaison" } - } - - -send_gdb "ptype liaison\n" -gdb_expect { - -re "type = const unsigned short \\* const.*$gdb_prompt $" { pass "ptype liaison" } - -re ".*$gdb_prompt $" { fail "ptype liaison" } - timeout { fail "(timeout) ptype liaison" } -} - - -send_gdb "print *libation\n" -gdb_expect { - -re ".\[0-9\]* = 4.*$gdb_prompt $" { - pass "print value of *libation" - } - -re ".*$gdb_prompt $" { fail "print value of *libation" } - timeout { fail "(timeout) print value of *libation" } - } - - -send_gdb "ptype libation\n" -gdb_expect { - -re "type = const long \\* const.*$gdb_prompt $" { pass "ptype libation" } - -re ".*$gdb_prompt $" { fail "ptype libation" } - timeout { fail "(timeout) ptype libation" } -} - - -send_gdb "print *libelous\n" -gdb_expect { - -re ".\[0-9\]* = 5.*$gdb_prompt $" { - pass "print value of *libelous" - } - -re ".*$gdb_prompt $" { fail "print value of *libelous" } - timeout { fail "(timeout) print value of *libelous" } - } - - -send_gdb "ptype libelous\n" -gdb_expect { - -re "type = const unsigned long \\* const.*$gdb_prompt $" { pass "ptype libelous" } - -re ".*$gdb_prompt $" { fail "ptype libelous" } - timeout { fail "(timeout) ptype libelous" } -} - - -send_gdb "print *libertine\n" -gdb_expect { - -re ".\[0-9\]* = 6.*$gdb_prompt $" { - pass "print value of *libertine" - } - -re ".*$gdb_prompt $" { fail "print value of *libertine" } - timeout { fail "(timeout) print value of *libertine" } - } - - -send_gdb "ptype libertine\n" -gdb_expect { - -re "type = const float \\* const.*$gdb_prompt $" { pass "ptype libertine" } - -re ".*$gdb_prompt $" { fail "ptype libertine" } - timeout { fail "(timeout) ptype libertine" } -} - - -send_gdb "print *libidinous\n" -gdb_expect { - -re ".\[0-9\]* = 7.*$gdb_prompt $" { - pass "print value of *libidinous" - } - -re ".*$gdb_prompt $" { fail "print value of *libidinous" } - timeout { fail "(timeout) print value of *libidinous" } - } - - -send_gdb "ptype libidinous\n" -gdb_expect { - -re "type = const double \\* const.*$gdb_prompt $" { pass "ptype libidinous" } - -re ".*$gdb_prompt $" { fail "ptype libidinous" } - timeout { fail "(timeout) ptype libidinous" } -} - - -send_gdb "print *languish\n" -gdb_expect { - -re ".\[0-9\]* = 65 \'A\'.*$gdb_prompt $" { - pass "print value of *languish" - } - -re ".*$gdb_prompt $" { fail "print value of *languish" } - timeout { fail "(timeout) print value of *languish" } - } - - -send_gdb "ptype languish\n" -gdb_expect { - -re "type = const char \\*.*$gdb_prompt $" { pass "ptype languish" } - -re ".*$gdb_prompt $" { fail "ptype languish" } - timeout { fail "(timeout) ptype languish" } -} - - -send_gdb "print *languor\n" -gdb_expect { - -re ".\[0-9\]* = 1 \'.001\'.*$gdb_prompt $" { - pass "print value of *languor" - } - -re ".*$gdb_prompt $" { fail "print value of *languor" } - timeout { fail "(timeout) print value of *languor" } - } - - -send_gdb "ptype languor\n" -gdb_expect { - -re "type = const unsigned char \\*.*$gdb_prompt $" { pass "ptype languor" } - -re ".*$gdb_prompt $" { fail "ptype languor" } - timeout { fail "(timeout) ptype languor" } -} - - -send_gdb "print *lank\n" -gdb_expect { - -re ".\[0-9\]* = 2.*.*$gdb_prompt $" { - pass "print value of *lank" - } - -re ".*$gdb_prompt $" { fail "print value of *lank" } - timeout { fail "(timeout) print value of *lank" } - } - - -send_gdb "ptype lank\n" -gdb_expect { - -re "type = const short \\*.*$gdb_prompt $" { pass "ptype lank" } - -re ".*$gdb_prompt $" { fail "ptype lank" } - timeout { fail "(timeout) ptype lank" } -} - - -send_gdb "print *lapidary\n" -gdb_expect { - -re ".\[0-9\]* = 3.*$gdb_prompt $" { - pass "print value of *lapidary" - } - -re ".*$gdb_prompt $" { fail "print value of *lapidary" } - timeout { fail "(timeout) print value of *lapidary" } - } - - -send_gdb "ptype lapidary\n" -gdb_expect { - -re "type = const unsigned short \\*.*$gdb_prompt $" { pass "ptype lapidary" } - -re ".*$gdb_prompt $" { fail "ptype lapidary" } - timeout { fail "(timeout) ptype lapidary" } -} - - -send_gdb "print *larceny\n" -gdb_expect { - -re ".\[0-9\]* = 4.*$gdb_prompt $" { - pass "print value of *larceny" - } - -re ".*$gdb_prompt $" { fail "print value of *larceny" } - timeout { fail "(timeout) print value of *larceny" } - } - - -send_gdb "ptype larceny\n" -gdb_expect { - -re "type = const long \\*.*$gdb_prompt $" { pass "ptype larceny" } - -re ".*$gdb_prompt $" { fail "ptype larceny" } - timeout { fail "(timeout) ptype larceny" } -} - - -send_gdb "print *largess\n" -gdb_expect { - -re ".\[0-9\]* = 5.*$gdb_prompt $" { - pass "print value of *largess" - } - -re ".*$gdb_prompt $" { fail "print value of *largess" } - timeout { fail "(timeout) print value of *largess" } - } - - -send_gdb "ptype largess\n" -gdb_expect { - -re "type = const unsigned long \\*.*$gdb_prompt $" { pass "ptype largess" } - -re ".*$gdb_prompt $" { fail "ptype largess" } - timeout { fail "(timeout) ptype largess" } -} - - -send_gdb "print *lascivious\n" -gdb_expect { - -re ".\[0-9\]* = 6.*$gdb_prompt $" { - pass "print value of *lascivious" - } - -re ".*$gdb_prompt $" { fail "print value of *lascivious" } - timeout { fail "(timeout) print value of *lascivious" } - } - - -send_gdb "ptype lascivious\n" -gdb_expect { - -re "type = const float \\*.*$gdb_prompt $" { pass "ptype lascivious" } - -re ".*$gdb_prompt $" { fail "ptype lascivious" } - timeout { fail "(timeout) ptype lascivious" } -} - - -send_gdb "print *lassitude\n" -gdb_expect { - -re ".\[0-9\]* = 7.*$gdb_prompt $" { - pass "print value of *lassitude" - } - -re ".*$gdb_prompt $" { fail "print value of *lassitude" } - timeout { fail "(timeout) print value of *lassitude" } - } - - -send_gdb "ptype lassitude\n" -gdb_expect { - -re "type = const double \\*.*$gdb_prompt $" { pass "ptype lassitude" } - -re ".*$gdb_prompt $" { fail "ptype lassitude" } - timeout { fail "(timeout) ptype lassitude" } -} - - -send_gdb "print *lamprey\n" -gdb_expect { - -re ".\[0-9\]* = 66 \'B\'.*$gdb_prompt $" { - pass "print value of *lamprey" - } - -re ".*$gdb_prompt $" { fail "print value of *lamprey" } - timeout { fail "(timeout) print value of *lamprey" } - } - - -send_gdb "ptype lamprey\n" -gdb_expect { - -re "type = char \\* const.*$gdb_prompt $" { pass "ptype lamprey" } - -re ".*$gdb_prompt $" { fail "ptype lamprey" } - timeout { fail "(timeout) ptype lamprey" } -} - -send_gdb "print *lariat\n" -gdb_expect { - -re ".\[0-9\]* = 10 \'\\\\n\'.*$gdb_prompt $" { - pass "print value of *lariat" - } - -re ".*$gdb_prompt $" { fail "print value of *lariat" } - timeout { fail "(timeout) print value of *lariat" } - } - - -send_gdb "ptype lariat\n" -gdb_expect { - -re "type = unsigned char \\* const.*$gdb_prompt $" { pass "ptype lariat" } - -re ".*$gdb_prompt $" { fail "ptype lariat" } - timeout { fail "(timeout) ptype lariat" } -} - -send_gdb "print *laudanum\n" -gdb_expect { - -re ".\[0-9\]* = 20.*$gdb_prompt $" { - pass "print value of *laudanum" - } - -re ".*$gdb_prompt $" { fail "print value of *laudanum" } - timeout { fail "(timeout) print value of *laudanum" } - } - - -send_gdb "ptype laudanum\n" -gdb_expect { - -re "type = short \\* const.*$gdb_prompt $" { pass "ptype laudanum" } - -re ".*$gdb_prompt $" { fail "ptype laudanum" } - timeout { fail "(timeout) ptype laudanum" } -} - -send_gdb "print *lecithin\n" -gdb_expect { - -re ".\[0-9\]* = 30.*$gdb_prompt $" { - pass "print value of *lecithin" - } - -re ".*$gdb_prompt $" { fail "print value of *lecithin" } - timeout { fail "(timeout) print value of *lecithin" } - } - - -send_gdb "ptype lecithin\n" -gdb_expect { - -re "type = unsigned short \\* const.*$gdb_prompt $" { pass "ptype lecithin" } - -re ".*$gdb_prompt $" { fail "ptype lecithin" } - timeout { fail "(timeout) ptype lecithin" } -} - -send_gdb "print *leviathan\n" -gdb_expect { - -re ".\[0-9\]* = 40.*$gdb_prompt $" { - pass "print value of *leviathan" - } - -re ".*$gdb_prompt $" { fail "print value of *leviathan" } - timeout { fail "(timeout) print value of *leviathan" } - } - - -send_gdb "ptype leviathan\n" -gdb_expect { - -re "type = long \\* const.*$gdb_prompt $" { pass "ptype leviathan" } - -re ".*$gdb_prompt $" { fail "ptype leviathan" } - timeout { fail "(timeout) ptype leviathan" } -} - -send_gdb "print *libretto\n" -gdb_expect { - -re ".\[0-9\]* = 50.*$gdb_prompt $" { - pass "print value of *libretto" - } - -re ".*$gdb_prompt $" { fail "print value of *libretto" } - timeout { fail "(timeout) print value of *libretto" } - } - - -send_gdb "ptype libretto\n" -gdb_expect { - -re "type = unsigned long \\* const.*$gdb_prompt $" { pass "ptype libretto" } - -re ".*$gdb_prompt $" { fail "ptype libretto" } - timeout { fail "(timeout) ptype libretto" } -} - - -send_gdb "print *lissome\n" -gdb_expect { - -re ".\[0-9\]* = 60.*$gdb_prompt $" { - pass "print value of *lissome" - } - -re ".*$gdb_prompt $" { fail "print value of *lissome" } - timeout { fail "(timeout) print value of *lissome" } - } - - -send_gdb "ptype lissome\n" -gdb_expect { - -re "type = float \\* const.*$gdb_prompt $" { pass "ptype lissome" } - -re ".*$gdb_prompt $" { fail "ptype lissome" } - timeout { fail "(timeout) ptype lissome" } -} - -send_gdb "print *locust\n" -gdb_expect { - -re ".\[0-9\]* = 70.*$gdb_prompt $" { - pass "print value of *locust" - } - -re ".*$gdb_prompt $" { fail "print value of *locust" } - timeout { fail "(timeout) print value of *locust" } - } - - -send_gdb "ptype locust\n" -gdb_expect { - -re "type = double \\* const.*$gdb_prompt $" { pass "ptype locust" } - -re ".*$gdb_prompt $" { fail "ptype locust" } - timeout { fail "(timeout) ptype locust" } -} - -send_gdb "ptype radiation\n" -gdb_expect { - -re "type = const char &.*$gdb_prompt $" { pass "ptype radiation" } - -re ".*$gdb_prompt $" { fail "ptype radiation" } - timeout { fail "(timeout) ptype radiation" } -} - -- cgit v1.1