| OLD | NEW | 
|   1 # Copyright 1999, 2001, 2007-2012 Free Software Foundation, Inc. |   1 # Copyright 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  |  | 
|  17 # Some basic checks for the CLI. |  | 
|  18  |  | 
|  19 load_lib mi-support.exp |  16 load_lib mi-support.exp | 
|  20 set MIFLAGS "-i=mi" |  17 set MIFLAGS "-i=mi" | 
|  21  |  18  | 
 |  19 # This test is Linux-only. | 
 |  20 if ![istarget *-*-linux*] then { | 
 |  21     unsupported "mi-info-os.exp" | 
 |  22     return -1 | 
 |  23 } | 
 |  24  | 
 |  25 # Support for XML-output is needed to run this test. | 
 |  26 if [gdb_skip_xml_test] then { | 
 |  27     unsupported "mi-info-os.exp" | 
 |  28     return -1 | 
 |  29 } | 
 |  30  | 
|  22 gdb_exit |  31 gdb_exit | 
|  23 if [mi_gdb_start] { |  32 if [mi_gdb_start] { | 
|  24     continue |  33     continue | 
|  25 } |  34 } | 
|  26  |  35  | 
|  27 mi_gdb_test "show architecture" \ |  36 # Try the argument-less form that lists all the types in a table. | 
|  28 »       "&\"show architecture\\\\n\"\r\n~\"The target architecture.*\"\r\n\\^don
    e" \ |  | 
|  29 »       "show architecture" |  | 
|  30  |  37  | 
|  31 mi_gdb_test "47show architecture" \ |  38 mi_gdb_test "-info-os" ".*\\^done,OSDataTable=.*" "-info-os" | 
|  32 »       "&\"show architecture\\\\n\"\r\n~\"The target architecture.*\"\r\n47\\^d
    one" \ |  | 
|  33 »       "47show architecture" |  | 
|  34  |  | 
|  35 mi_gdb_exit |  | 
|  36 return 0 |  | 
| OLD | NEW |