| OLD | NEW |
| 1 # This testcase is part of GDB, the GNU debugger. | 1 # This testcase is part of GDB, the GNU debugger. |
| 2 | 2 |
| 3 # Copyright 2010-2012 Free Software Foundation, Inc. | 3 # Copyright 2010-2012 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 # This program is free software; you can redistribute it and/or modify | 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 | 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 | 7 # the Free Software Foundation; either version 3 of the License, or |
| 8 # (at your option) any later version. | 8 # (at your option) any later version. |
| 9 # | 9 # |
| 10 # This program is distributed in the hope that it will be useful, | 10 # This program is distributed in the hope that it will be useful, |
| 11 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 11 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 13 # GNU General Public License for more details. | 13 # GNU General Public License for more details. |
| 14 # | 14 # |
| 15 # You should have received a copy of the GNU General Public License | 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/>. | 16 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
| 17 | 17 |
| 18 # Please email any bugs, comments, and/or additions to this file to: | 18 # Please email any bugs, comments, and/or additions to this file to: |
| 19 # bug-gdb@gnu.org | 19 # bug-gdb@gnu.org |
| 20 | 20 |
| 21 # Test printing of various values. | 21 # Test printing of various values. |
| 22 # NOTE: The tests here intentionally do not require an objc compiler. | 22 # NOTE: The tests here intentionally do not require an objc compiler. |
| 23 | 23 |
| 24 if $tracelevel { | |
| 25 strace $tracelevel | |
| 26 } | |
| 27 | |
| 28 load_lib "objc.exp" | 24 load_lib "objc.exp" |
| 29 | 25 |
| 30 proc test_float_accepted {} { | 26 proc test_float_accepted {} { |
| 31 global gdb_prompt | 27 global gdb_prompt |
| 32 | 28 |
| 33 # Test parsing of fp value with legit text following. | 29 # Test parsing of fp value with legit text following. |
| 34 gdb_test "p 1234.5+1" " = 1235.5" "check fp + text" | 30 gdb_test "p 1234.5+1" " = 1235.5" "check fp + text" |
| 35 | 31 |
| 36 # Test all the suffixes (including no suffix). | 32 # Test all the suffixes (including no suffix). |
| 37 gdb_test "p 1." " = 1" | 33 gdb_test "p 1." " = 1" |
| (...skipping 32 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 70 gdb_exit | 66 gdb_exit |
| 71 gdb_start | 67 gdb_start |
| 72 gdb_reinitialize_dir $srcdir/$subdir | 68 gdb_reinitialize_dir $srcdir/$subdir |
| 73 | 69 |
| 74 if [set_lang_objc] { | 70 if [set_lang_objc] { |
| 75 test_float_accepted | 71 test_float_accepted |
| 76 test_float_rejected | 72 test_float_rejected |
| 77 } else { | 73 } else { |
| 78 warning "Objective-c print tests suppressed" | 74 warning "Objective-c print tests suppressed" |
| 79 } | 75 } |
| OLD | NEW |