OLD | NEW |
1 # Copyright (C) 2010-2012 Free Software Foundation, Inc. | 1 # Copyright (C) 2010-2012 Free Software Foundation, Inc. |
2 | 2 |
3 # This program is free software; you can redistribute it and/or modify | 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 | 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 | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
(...skipping 11 matching lines...) Expand all Loading... |
22 && ![istarget *-*-gnu*] | 22 && ![istarget *-*-gnu*] |
23 && ![istarget *-*-elf*] | 23 && ![istarget *-*-elf*] |
24 && ![istarget *-*-openbsd*] | 24 && ![istarget *-*-openbsd*] |
25 && ![istarget arm*-*-eabi*] | 25 && ![istarget arm*-*-eabi*] |
26 && ![istarget arm*-*-symbianelf*] | 26 && ![istarget arm*-*-symbianelf*] |
27 && ![istarget powerpc-*-eabi*]} { | 27 && ![istarget powerpc-*-eabi*]} { |
28 verbose "Skipping py-section-script.exp because of lack of support." | 28 verbose "Skipping py-section-script.exp because of lack of support." |
29 return | 29 return |
30 } | 30 } |
31 | 31 |
32 if $tracelevel then { | 32 standard_testfile |
33 strace $tracelevel | |
34 } | |
35 | 33 |
36 set testfile "py-section-script" | 34 if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} { |
37 set srcfile ${testfile}.c | |
38 set binfile ${objdir}/${subdir}/${testfile} | |
39 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debu
g}] != "" } { | |
40 untested "Couldn't compile ${srcfile}" | |
41 return -1 | 35 return -1 |
42 } | 36 } |
43 | 37 |
44 # Start with a fresh gdb. | 38 # Start with a fresh gdb. |
45 gdb_exit | 39 gdb_exit |
46 gdb_start | 40 gdb_start |
47 | 41 |
48 # Skip all tests if Python scripting is not enabled. | 42 # Skip all tests if Python scripting is not enabled. |
49 if { [skip_python_tests] } { continue } | 43 if { [skip_python_tests] } { continue } |
50 | 44 |
51 # Make this available to gdb before the program starts, it is | 45 # Make this available to gdb before the program starts, it is |
52 # automagically loaded by gdb. | 46 # automagically loaded by gdb. |
53 set remote_python_file [remote_download host ${srcdir}/${subdir}/${testfile}.py] | 47 set remote_python_file [remote_download host ${srcdir}/${subdir}/${testfile}.py] |
54 | 48 |
55 gdb_reinitialize_dir $srcdir/$subdir | 49 gdb_reinitialize_dir $srcdir/$subdir |
| 50 gdb_test_no_output "set auto-load safe-path ${remote_python_file}" "set auto-loa
d safe-path" |
56 gdb_load ${binfile} | 51 gdb_load ${binfile} |
57 | 52 |
58 # Verify gdb loaded the script. | 53 # Verify gdb loaded the script. |
59 gdb_test "info auto-load-scripts" "Yes.*${testfile}.py.*full name: .*/${testfile
}.py.*" | 54 gdb_test "info auto-load python-scripts" "Yes.*${testfile}.py.*full name: .*/${t
estfile}.py.*" |
60 # Again, with a regexp this time. | 55 # Again, with a regexp this time. |
61 gdb_test "info auto-load-scripts ${testfile}" "Yes.*${testfile}.py.*full name: .
*/${testfile}.py.*" | 56 gdb_test "info auto-load python-scripts ${testfile}" "Yes.*${testfile}.py.*full
name: .*/${testfile}.py.*" |
62 # Again, with a regexp that matches no scripts. | 57 # Again, with a regexp that matches no scripts. |
63 gdb_test "info auto-load-scripts no-script-matches-this" \ | 58 gdb_test "info auto-load python-scripts no-script-matches-this" \ |
64 "No auto-load scripts matching no-script-matches-this." | 59 "No auto-load scripts matching no-script-matches-this." |
65 | 60 |
66 if ![runto_main] { | 61 if ![runto_main] { |
67 perror "couldn't run to main" | 62 perror "couldn't run to main" |
68 return | 63 return |
69 } | 64 } |
70 | 65 |
71 gdb_test "b [gdb_get_line_number {break to inspect} ${testfile}.c ]" \ | 66 gdb_test "b [gdb_get_line_number {break to inspect} ${testfile}.c ]" \ |
72 ".*Breakpoint.*" | 67 ".*Breakpoint.*" |
73 gdb_test "continue" ".*Breakpoint.*" | 68 gdb_test "continue" ".*Breakpoint.*" |
74 | 69 |
75 gdb_test "print ss" " = a=<1> b=<2>" | 70 gdb_test "print ss" " = a=<1> b=<2>" |
76 | 71 |
77 remote_file host delete ${remote_python_file} | 72 remote_file host delete ${remote_python_file} |
OLD | NEW |