From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 25398 invoked by alias); 9 Feb 2005 18:37:52 -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 25192 invoked from network); 9 Feb 2005 18:37:30 -0000 Received: from unknown (HELO takamaka.act-europe.fr) (205.232.38.116) by sourceware.org with SMTP; 9 Feb 2005 18:37:30 -0000 Received: by takamaka.act-europe.fr (Postfix, from userid 507) id 98BED47DBA; Wed, 9 Feb 2005 13:37:26 -0500 (EST) Date: Wed, 09 Feb 2005 19:07:00 -0000 From: Joel Brobecker To: gdb-patches@sources.redhat.com Subject: [RFA/testsuite/ada] New testcase for "start" command w/ Ada programs Message-ID: <20050209183726.GG18546@adacore.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="wq9mPyueHGvFACwf" Content-Disposition: inline User-Agent: Mutt/1.4i X-SW-Source: 2005-02/txt/msg00067.txt.bz2 --wq9mPyueHGvFACwf Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-length: 510 Hello, Andrew suggested (privately) that a "start" testcase would be nice. So here it is. 2005-02-09 Joel Brobecker * gdb.ada/start/dummy.adb: New file. * gdb.ada/start.exp: New testcase. Tested on x86-linux. The test currently fails, because I have a patch almost approved but not quite, see http://sources.redhat.com/ml/gdb-patches/2004-11/msg00501.html It should pass as soon as the patch mentioned above is approved. OK to commit? Thanks, -- Joel --wq9mPyueHGvFACwf Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="dummy.adb" Content-length: 824 -- Copyright 2005 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. procedure Dummy is begin null; end Dummy; --wq9mPyueHGvFACwf Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="start.exp" Content-length: 1282 # Copyright 2005 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. if $tracelevel then { strace $tracelevel } load_lib "ada.exp" set testdir "start" set testfile "${testdir}/dummy" set srcfile ${srcdir}/${subdir}/${testfile}.adb set binfile ${objdir}/${subdir}/${testfile} if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { return -1 } gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load ${binfile} # Verify that "start" lands inside the right procedure. gdb_test "start" \ "dummy \\(\\) at .*dummy.adb.*" \ "start" --wq9mPyueHGvFACwf--