[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / list-missing-source.exp

# Copyright 2019-2020 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 <http://www.gnu.org/licenses/>.

# This test checks how GDB handles missing source files around the
# 'list' and 'info source' commands.

standard_testfile

# Create a source file in the output directory.
set srcfile [standard_output_file main.c]
set fd [open "$srcfile" w]
puts $fd {
int
main ()
{
  return 0;
}
}
close $fd

# Compile the source file.
set options "debug"
if  { [gdb_compile "${srcfile}" "${binfile}" \
	   executable $options] != "" } {
    untested "failed to compile"
    return -1
}

# Now delete the source file.
file delete $srcfile

# Now start GDB, run to main and try to list the source.
clean_restart ${binfile}

if ![runto_main] then {
    fail "can't run to main"
    return 0
}

gdb_test "list" "1\[ \t\]+in\[ \t\]+$srcfile"

gdb_test "info source" \
    [multi_line \
	 "info source" \
	 "Current source file is $srcfile\(" \
	 "Compilation directory is \[^\n\r\]+)?" \
	 "Source language is c." \
	 "Producer is \[^\n\r\]+" \
	 "Compiled with DWARF $decimal debugging format." \
	 "Does not include preprocessor macro info." ]
Commit	Line	Data
b811d2c2	1	# Copyright 2019-2020 Free Software Foundation, Inc.
67f3ed6a AB	2
	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.
	7	#
	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.
	12	#
	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/>.
	15
	16	# This test checks how GDB handles missing source files around the
	17	# 'list' and 'info source' commands.
	18
	19	standard_testfile
	20
	21	# Create a source file in the output directory.
	22	set srcfile [standard_output_file main.c]
	23	set fd [open "$srcfile" w]
	24	puts $fd {
	25	int
	26	main ()
	27	{
	28	return 0;
	29	}
	30	}
	31	close $fd
	32
	33	# Compile the source file.
	34	set options "debug"
	35	if { [gdb_compile "${srcfile}" "${binfile}" \
	36	executable $options] != "" } {
	37	untested "failed to compile"
	38	return -1
	39	}
	40
	41	# Now delete the source file.
	42	file delete $srcfile
	43
	44	# Now start GDB, run to main and try to list the source.
	45	clean_restart ${binfile}
	46
	47	if ![runto_main] then {
	48	fail "can't run to main"
	49	return 0
	50	}
	51
	52	gdb_test "list" "1\[ \t\]+in\[ \t\]+$srcfile"
	53
	54	gdb_test "info source" \
	55	[multi_line \
	56	"info source" \
3a56ed86 TV	57	"Current source file is $srcfile\(" \
3a56ed86 TV	58	"Compilation directory is \[^\n\r\]+)?" \
67f3ed6a AB	59	"Source language is c." \
	60	"Producer is \[^\n\r\]+" \
	61	"Compiled with DWARF $decimal debugging format." \
	62	"Does not include preprocessor macro info." ]
	63