OLD | NEW |
1 # Copyright 1992, 2004-2005, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 1992, 2004-2005, 2007-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 |
11 # GNU General Public License for more details. | 11 # GNU General Public License for more details. |
12 # | 12 # |
13 # You should have received a copy of the GNU General Public License | 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/>. */ | 14 # along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
15 | 15 |
16 # Test case for CLLbs15503 | 16 # Test case for CLLbs15503 |
17 # This file was written by Sue Kimura (sue_kimura@hp.com) | 17 # This file was written by Sue Kimura (sue_kimura@hp.com) |
18 # Rewritten by Michael Chastain (mec.gnu@mindspring.com) | 18 # Rewritten by Michael Chastain (mec.gnu@mindspring.com) |
19 | 19 |
20 if $tracelevel { | |
21 strace $tracelevel | |
22 } | |
23 | |
24 if { [skip_stl_tests] } { continue } | 20 if { [skip_stl_tests] } { continue } |
25 | 21 |
26 # On SPU this test fails because the executable exceeds local storage size. | 22 # On SPU this test fails because the executable exceeds local storage size. |
27 if { [istarget "spu*-*-*"] } { | 23 if { [istarget "spu*-*-*"] } { |
28 return 0 | 24 return 0 |
29 } | 25 } |
30 | 26 |
31 set testfile "bs15503" | 27 standard_testfile .cc |
32 set srcfile ${testfile}.cc | |
33 set binfile ${objdir}/${subdir}/${testfile} | |
34 | 28 |
35 if [get_compiler_info ${binfile}] { | 29 if [get_compiler_info] { |
36 return -1 | 30 return -1 |
37 } | 31 } |
38 | 32 |
39 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable "debu
g c++"] != "" } { | 33 if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug c++}]} { |
40 untested bs15503.exp | |
41 return -1 | 34 return -1 |
42 } | 35 } |
43 | 36 |
44 gdb_exit | |
45 gdb_start | |
46 gdb_reinitialize_dir $srcdir/$subdir | |
47 gdb_load ${binfile} | |
48 | |
49 if ![runto_main] then { | 37 if ![runto_main] then { |
50 perror "couldn't run to breakpoint" | 38 perror "couldn't run to breakpoint" |
51 continue | 39 continue |
52 } | 40 } |
53 | 41 |
54 # Set breakpoint on template function | 42 # Set breakpoint on template function |
55 | 43 |
56 gdb_test "break StringTest<wchar_t>::testFunction" \ | 44 gdb_test "break StringTest<wchar_t>::testFunction" \ |
57 "Breakpoint $decimal at $hex: file .*${srcfile}, line $decimal." | 45 "Breakpoint $decimal at $hex: file .*${srcfile}, line $decimal." |
58 | 46 |
(...skipping 38 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
97 gdb_test "print (const char *) (s=s.substr(0,4))" \ | 85 gdb_test "print (const char *) (s=s.substr(0,4))" \ |
98 "\\$\[0-9\]+ = $hex \"I am\"" | 86 "\\$\[0-9\]+ = $hex \"I am\"" |
99 | 87 |
100 # TODO: cannot call overloaded non-member operator again. | 88 # TODO: cannot call overloaded non-member operator again. |
101 # -- chastain 2004-01-07 | 89 # -- chastain 2004-01-07 |
102 # | 90 # |
103 # gdb_test "print (const char *) (s + s)" \ | 91 # gdb_test "print (const char *) (s + s)" \ |
104 # "\\$\[0-9\]+ = $hex \"I amI am\"" | 92 # "\\$\[0-9\]+ = $hex \"I amI am\"" |
105 # gdb_test "print (const char *) (s + \" \" + s)" \ | 93 # gdb_test "print (const char *) (s + \" \" + s)" \ |
106 # "\\$\[0-9\]+ = $hex \"I am I am\"" | 94 # "\\$\[0-9\]+ = $hex \"I am I am\"" |
OLD | NEW |