1 # Copyright 2019 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
16 # This test checks how GDB handles missing source files around the
17 # 'list' and 'info source' commands.
21 # Create a source file in the output directory.
22 set srcfile [standard_output_file main.c]
23 set fd [open "$srcfile" w]
33 # Compile the source file.
35 if { [gdb_compile "${srcfile}" "${binfile}" \
36 executable $options] != "" } {
37 untested "failed to compile"
41 # Now delete the source file.
44 # Now start GDB, run to main and try to list the source.
45 clean_restart ${binfile}
47 if ![runto_main] then {
48 fail "can't run to main"
52 gdb_test "list" "1\[ \t\]+in\[ \t\]+$srcfile"
54 gdb_test "info source" \
57 "Current source file is $srcfile\(" \
58 "Compilation directory is \[^\n\r\]+)?" \
59 "Source language is c." \
60 "Producer is \[^\n\r\]+" \
61 "Compiled with DWARF $decimal debugging format." \
62 "Does not include preprocessor macro info." ]