gdb/testsuite/gdb.tui/tui-nl-filtered-output.exp

   1 # Copyright 2017-2024 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 # Regression test for PR tui/21216 - TUI line breaks regression.
  17 #
  18 # Tests that newlines in filtered output force a "carriage return" in
  19 # the TUI command window.  With a broken gdb, instead of:
  20 #
  21 #  (gdb) printf "hello\nworld\n"
  22 #  hello
  23 #  world
  24 #  (gdb)
  25 #
  26 # we'd get:
  27 #
  28 #  (gdb) printf "hello\nworld\n"hello
  29 #                                    world
  30 #
  31 #  (gdb)
  32
  33 require allow_tui_tests
  34
  35 tuiterm_env
  36
  37 # Setup and enter TUI mode.
  38 Term::clean_restart 24 80
  39 if {![Term::enter_tui]} {
  40     unsupported "TUI not supported"
  41     return
  42 }
  43
  44 # Send the command, and check the output is correctly split over
  45 # multiple lines.
  46 Term::command \
  47     {printf "hello\nworld\n"}
  48 Term::check_region_contents "check printf output" \
  49     0 16 80 4 [multi_line \
  50                    "$gdb_prompt printf \"hello\\\\nworld\\\\n\"\\s+" \
  51                    "hello\\s+" \
  52                    "world\\s+" \
  53                    "$gdb_prompt\\s+"]