From: Jan Kratochvil Date: Thu, 17 Jul 2014 11:59:03 +0000 (+0200) Subject: PR 17170 - testcase for GDB global --statistics regression - fix up. X-Git-Tag: binutils-2_25~795 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e6cf2ae8bb4c675ebfafb137bf13e92ba96225e8;p=external%2Fbinutils.git PR 17170 - testcase for GDB global --statistics regression - fix up. Add missing file to previous entry. --- diff --git a/gdb/testsuite/gdb.base/statistics.exp b/gdb/testsuite/gdb.base/statistics.exp new file mode 100644 index 0000000..22d6f04 --- /dev/null +++ b/gdb/testsuite/gdb.base/statistics.exp @@ -0,0 +1,29 @@ +# Copyright 2014 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 3 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, see . + +standard_testfile + +gdb_exit + +# Inlined default_gdb_start. +set use_gdb_stub [target_info exists use_gdb_stub] +set res [remote_spawn host "$GDB $INTERNAL_GDBFLAGS $GDBFLAGS [host_info gdb_opts] -statistics"] +if { $res < 0 || $res == "" } { + perror "Spawning $GDB failed." + return +} +set gdb_spawn_id -1 +gdb_test "" "Startup time: \[0-9.\]+ \\(cpu\\), \[0-9.\]+ \\(wall\\)\r\nSpace used: \[0-9.\]+ \\(\\+\[0-9.\]+ during startup\\)" "startup time and space" +gdb_exit