From 52b75bf1dc759e8d9eda9a71caa52e458e57e4ff Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Sun, 21 Jul 2019 08:13:58 -0600 Subject: [PATCH] Add test that "file" shows "main" This adds a new test that checks that the "file" command will show the program's "main". gdb/testsuite/ChangeLog 2019-07-27 Tom Tromey * gdb.tui/main.exp: New file. --- gdb/testsuite/ChangeLog | 4 ++++ gdb/testsuite/gdb.tui/main.exp | 34 ++++++++++++++++++++++++++++++++++ 2 files changed, 38 insertions(+) create mode 100644 gdb/testsuite/gdb.tui/main.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 3b39375..1b6520c 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2019-07-27 Tom Tromey + * gdb.tui/main.exp: New file. + +2019-07-27 Tom Tromey + * lib/tuiterm.exp (Term::clean_restart): Make "executable" optional. * gdb.tui/empty.exp: New file. diff --git a/gdb/testsuite/gdb.tui/main.exp b/gdb/testsuite/gdb.tui/main.exp new file mode 100644 index 0000000..eab28de --- /dev/null +++ b/gdb/testsuite/gdb.tui/main.exp @@ -0,0 +1,34 @@ +# Copyright 2019 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 . + +# Test that "file" shows "main". + +load_lib "tuiterm.exp" + +standard_testfile tui-layout.c + +if {[build_executable "failed to prepare" ${testfile} ${srcfile}] == -1} { + return -1 +} + +# Note: don't pass the executable here +Term::clean_restart 24 80 + +if {![Term::enter_tui]} { + unsupported "TUI not supported" +} + +Term::command "file [standard_output_file $testfile]" +Term::check_contents "show main after file" ">|21 *return 0" -- 2.7.4