1 # Copyright
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 standard_testfile .pas
20 if {[gdb_compile_pascal
"${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } {
24 clean_restart $
{testfile
}
26 if { ![runto_main
] } {
30 gdb_breakpoint $
{srcfile
}:[gdb_get_line_number
"set breakpoint 1 here"]
32 gdb_continue_to_breakpoint
"continue to breakpoint"
34 gdb_test
"print message" " = 'abcdefghijklmnopqrstuvwxyz'" \
35 "print message with the default settings"
37 gdb_test_no_output
"set print elements 10"
38 gdb_test
"print message" " = 'abcdefghij'\\.\\.\\." \
39 "print message with 'print elements' set to 10"
41 gdb_test_no_output
"set print characters 20"
42 gdb_test
"print message" " = 'abcdefghijklmnopqrst'\\.\\.\\." \
43 "print message with 'print characters' set to 20"
45 gdb_test_no_output
"set print elements 15"
46 gdb_test
"print message" " = 'abcdefghijklmnopqrst'\\.\\.\\." \
47 "print message with 'print elements' set to 15"
49 gdb_test_no_output
"set print characters unlimited"
50 gdb_test
"print message" " = 'abcdefghijklmnopqrstuvwxyz'" \
51 "print message with 'print characters' set to unlimited"
53 gdb_test_no_output
"set print characters elements"
54 gdb_test
"print message" " = 'abcdefghijklmno'\\.\\.\\." \
55 "print message with 'print characters' set to elements"