Home | History | Annotate | Line # | Download | only in gdb.mi
mi-console.exp revision 1.1 
      1 # Copyright 1999-2014 Free Software Foundation, Inc.
      2 
      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.
      7 #
      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.
     12 #
     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/>.
     15 
     16 # Test inferior console output, with MI.
     17 
     18 load_lib mi-support.exp
     19 set MIFLAGS "-i=mi"
     20 
     21 #
     22 # Given STRING, return the semihosted version of that string.
     23 #
     24 proc semihosted_string { string } {
     25     set semihosted_list {}
     26     set leading_markers "@\""
     27     set trailing_markers "\"\r\n"
     28 
     29     if {$string != "" } {
     30 	set split_string [split $string ""]
     31 
     32 	foreach char $split_string {
     33 	    # Escape special characters.
     34 	    if {$char == "\\"} {
     35 		set char "\\\\\\\\"
     36 	    } elseif {$char == "\r"} {
     37 		  set char "\\\\r"
     38 	    } elseif {$char == "\n"} {
     39 		  set char "\\\\n"
     40 	    } elseif {$char == "\""} {
     41 		  set char "\\\\\""
     42 	    }
     43 	    lappend semihosted_list $leading_markers $char $trailing_markers
     44 	}
     45     }
     46   return [join $semihosted_list ""]
     47 }
     48 
     49 gdb_exit
     50 if [mi_gdb_start separate-inferior-tty] {
     51     continue
     52 }
     53 
     54 standard_testfile
     55 
     56 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
     57      untested mi-console.exp
     58      return -1
     59 }
     60 
     61 mi_run_to_main
     62 
     63 # The output we get from the target depends on how it is hosted.  If
     64 # we are semihosted (e.g., the sim or a remote target that supports
     65 # the File I/O remote protocol extension), we see the target I/O
     66 # encapsulated in MI target output stream records.  If debugging with
     67 # a native target, the inferior's I/O streams are connected directly
     68 # to a PTY we create for the inferior (notice separate-inferior-tty
     69 # above), and we just see the program's output unadorned.  If
     70 # debugging with a remote target that doesn't support semihosting,
     71 # we'll see nothing.
     72 
     73 # The program's real output string.
     74 set program_output "Hello \\\"!\r\n"
     75 
     76 # Prepare the pattern for the PTY output of a native target.
     77 set native_output [string map {"\r\n" "\[\r\n\]+"} $program_output]
     78 set native_output [string map {"\\" "\\\\"} $native_output]
     79 
     80 # Prepare the pattern for the semihosted output.
     81 set semihosted_output [semihosted_string $program_output]
     82 
     83 # Combine both outputs in a single pattern.
     84 set output "($semihosted_output|$native_output)"
     85 
     86 # Next over the hello() call which will produce lots of output
     87 mi_gdb_test "220-exec-next" \
     88 	    "220\\^running(\r\n\\*running,thread-id=\"all\")?" \
     89 	    "Testing console output" \
     90 	    $output
     91 
     92 mi_expect_stop "end-stepping-range" "main" "" ".*mi-console.c" "14" "" \
     93     "finished step over hello"
     94 
     95 mi_gdb_exit
     96 return 0
     97