1# This testcase is part of GDB, the GNU debugger.
2
3# Copyright 2005, 2007 Free Software Foundation, Inc.
4
5# This program is free software; you can redistribute it and/or modify
6# it under the terms of the GNU General Public License as published by
7# the Free Software Foundation; either version 3 of the License, or
8# (at your option) any later version.
9#
10# This program is distributed in the hope that it will be useful,
11# but WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13# GNU General Public License for more details.
14#
15# You should have received a copy of the GNU General Public License
16# along with this program.  If not, see <http://www.gnu.org/licenses/>.
17
18# Test GDB's "source" command - reads in a GDB script.
19
20
21# Please email any bugs, comments, and/or additions to this file to:
22# bug-gdb@prep.ai.mit.edu
23
24if $tracelevel then {
25	strace $tracelevel
26}
27
28set prms_id 0
29set bug_id 0
30
31set testfile "structs"
32set srcfile ${testfile}.c
33set binfile ${objdir}/${subdir}/${testfile}
34
35gdb_start
36
37gdb_test "source ${srcdir}/${subdir}/source-error.gdb" \
38    "source-error.gdb:22: Error in sourced command file:\[\r\n\]*Cannot access memory at address 0x0.*" \
39    "script contains error"
40
41gdb_exit
42