1 # Copyright
2014-2023 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
/>.
18 require
{!is_remote host
}
20 set targetdir
"${binfile}.dir"
21 set sourcescript
"${srcdir}/${subdir}/${testfile}-script"
22 set targetscriptdir
"${targetdir}/[file dirname ${binfile}]"
23 set targetscript
"${targetscriptdir}/${testfile}-gdb.gdb"
25 remote_exec host
"rm -rf ${targetdir}"
27 if { [prepare_for_testing
"failed to prepare" ${testfile} ${srcfile}] } {
31 remote_exec host
"mkdir -p ${targetscriptdir}"
32 remote_exec host
"cp ${sourcescript} ${targetscript}"
34 gdb_test_no_output
"set auto-load scripts-directory ${targetdir}" "set auto-load scripts-directory"
35 gdb_test_no_output
"set auto-load safe-path ${targetscript}" "set auto-load safe-path"
39 gdb_test
{print $script_loaded
} " = 42"