From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 6792 invoked by alias); 27 May 2002 13:18:57 -0000 Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 6785 invoked from network); 27 May 2002 13:18:54 -0000 Received: from unknown (HELO waller.constant.com) (217.167.220.90) by sources.redhat.com with SMTP; 27 May 2002 13:18:54 -0000 Received: (from bkoz@localhost) by waller.constant.com (8.11.6/8.11.6) id g4RDInI11869; Mon, 27 May 2002 06:18:49 -0700 Date: Mon, 27 May 2002 06:20:00 -0000 Message-Id: <200205271318.g4RDInI11869@waller.constant.com> To: gdb-patches@sources.redhat.com, mec@shout.net Subject: gdb.c++ testsuite 2.1: try_catch.exp From: Benjamin Kosnik X-Organization: Red Hat/Paris X-URL: http://gcc.gnu.org/libstdc++ X-SW-Source: 2002-05/txt/msg00927.txt.bz2 tested x86/linux. This test also current fails for shared builds, although stepping through it with the static binary seems fine. -benjamin ----- # Copyright 2002 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. # Tests for member data # 2002-05-27 Benjamin Kosnik # This file is part of the gdb testsuite if $tracelevel then { strace $tracelevel } if { [skip_cplus_tests] } { continue } # # test running programs # set prms_id 0 set bug_id 0 set testfile "try_catch" set srcfile ${testfile}.cc 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." } if [get_compiler_info ${binfile} "c++"] { return -1 } gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load ${binfile} if ![runto_main] then { perror "couldn't run to breakpoint" continue } # One. send_gdb "break 61\n" gdb_expect { -re "Breakpoint \[0-9\]*.*line 61\\.\r\n$gdb_prompt $" { pass "set break at 61" } -re ".*$gdb_prompt $" { fail "set break at 61" } timeout { fail "(timeout) set break at 61" } } send_gdb "continue\n" gdb_expect { -re "Continuing\\.\r\n\r\nBreakpoint.*at.*try_catch\\.cc:61\r\n.*$gdb_prompt $" { pass "continue to 61" } -re ".*$gdb_prompt $" { fail "continue to 61" } timeout { fail "(timeout) continue to 61" } } send_gdb "break 66\n" gdb_expect { -re "Breakpoint \[0-9\]*.*line 66\\.\r\n$gdb_prompt $" { pass "set break at 66" } -re ".*$gdb_prompt $" { fail "set break at 66" } timeout { fail "(timeout) set break at 66" } } send_gdb "continue\n" gdb_expect { -re "Continuing\\.\r\n\r\nBreakpoint.*at.*try_catch\\.cc:66\r\n.*$gdb_prompt $" { pass "continue to 66" } -re ".*$gdb_prompt $" { fail "continue to 66" } timeout { fail "(timeout) continue to 66" } } send_gdb "break 80\n" gdb_expect { -re "Breakpoint \[0-9\]*.*line 80\\.\r\n$gdb_prompt $" { pass "set break at 80" } -re ".*$gdb_prompt $" { fail "set break at 80" } timeout { fail "(timeout) set break at 80" } } send_gdb "continue\n" gdb_expect { -re "Continuing\\.\r\n\r\nBreakpoint.*at.*try_catch\\.cc:80\r\n.*$gdb_prompt $" { pass "continue to 80" } -re ".*$gdb_prompt $" { fail "continue to 80" } timeout { fail "(timeout) continue to 80" } } send_gdb "break 83\n" gdb_expect { -re "Breakpoint \[0-9\]*.*line 83\\.\r\n$gdb_prompt $" { pass "set break at 83" } -re ".*$gdb_prompt $" { fail "set break at 83" } timeout { fail "(timeout) set break at 83" } } send_gdb "continue\n" gdb_expect { -re "Continuing\\.\r\n\r\nBreakpoint.*at.*try_catch\\.cc:83\r\n.*$gdb_prompt $" { pass "continue to 83" } -re ".*$gdb_prompt $" { fail "continue to 83" } timeout { fail "(timeout) continue to 83" } } send_gdb "break 87\n" gdb_expect { -re "Breakpoint \[0-9\]*.*line 87\\.\r\n$gdb_prompt $" { pass "set break at 87" } -re ".*$gdb_prompt $" { fail "set break at 87" } timeout { fail "(timeout) set break at 87" } } send_gdb "continue\n" gdb_expect { -re "Continuing\\.\r\n\r\nBreakpoint.*at.*try_catch\\.cc:87\r\n.*$gdb_prompt $" { pass "continue to 87" } -re ".*$gdb_prompt $" { fail "continue to 87" } timeout { fail "(timeout) continue to 87" } } send_gdb "break 92\n" gdb_expect { -re "Breakpoint \[0-9\]*.*line 92\\.\r\n$gdb_prompt $" { pass "set break at 92" } -re ".*$gdb_prompt $" { fail "set break at 92" } timeout { fail "(timeout) set break at 92" } } send_gdb "continue\n" gdb_expect { -re "Continuing\\.\r\n\r\nBreakpoint.*at.*try_catch\\.cc:92\r\n.*$gdb_prompt $" { pass "continue to 92" } -re ".*$gdb_prompt $" { fail "continue to 92" } timeout { fail "(timeout) continue to 92" } } send_gdb "break 118\n" gdb_expect { -re "Breakpoint \[0-9\]*.*line 118\\.\r\n$gdb_prompt $" { pass "set break at 118" } -re ".*$gdb_prompt $" { fail "set break at 118" } timeout { fail "(timeout) set break at 118" } } send_gdb "continue\n" gdb_expect { -re "Continuing\\.\r\n\r\nBreakpoint.*at.*try_catch\\.cc:118\r\n.*$gdb_prompt $" { pass "continue to 118" } -re ".*$gdb_prompt $" { fail "continue to 118" } timeout { fail "(timeout) continue to 118" } } send_gdb "break 122\n" gdb_expect { -re "Breakpoint \[0-9\]*.*line 118\\.\r\n$gdb_prompt $" { pass "set break at 122" } -re ".*$gdb_prompt $" { fail "set break at 122" } timeout { fail "(timeout) set break at 122" } } send_gdb "continue\n" gdb_expect { -re "Continuing\\.\r\n\r\nBreakpoint.*at.*try_catch\\.cc:122\r\n.*$gdb_prompt $" { pass "continue to 122" } -re ".*$gdb_prompt $" { fail "continue to 122" } timeout { fail "(timeout) continue to 122" } } gdb_exit return 0