diff options
| author | Pierre-Marie de Rodat <derodat@adacore.com> | 2015-03-10 09:51:27 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2015-04-01 15:06:39 +0200 |
| commit | 3c724c8ca91ee8304ba355f681ccd906f0e9725b (patch) | |
| tree | 2ee5d701d9e3c104c6088a138777aff673140d6a /gdb/testsuite/lib | |
| parent | 5445da1b7656f82e7892d862895dfd9e7c16889c (diff) | |
| download | gdb-3c724c8ca91ee8304ba355f681ccd906f0e9725b.zip gdb-3c724c8ca91ee8304ba355f681ccd906f0e9725b.tar.gz gdb-3c724c8ca91ee8304ba355f681ccd906f0e9725b.tar.bz2 | |
Share the "multi_line" helper among all testcases
gdb/testsuite/ChangeLog:
* gdb.ada/complete.exp: Remove "multi_line".
* gdb.ada/info_exc.exp: Remove "multi_line".
* gdb.ada/packed_tagged.exp: Remove "multi_line".
* gdb.ada/ptype_field.exp: Remove "multi_line".
* gdb.ada/sym_print_name.exp: Remove "multi_line".
* gdb.ada/tagged.exp: Remove "multi_line".
* gdb.btrace/buffer-size.exp: Replace [join [list ...]] with
[multi_line ...]
* gdb.btrace/delta.exp: Likewise.
* gdb.btrace/exception.exp: Likewise.
* gdb.btrace/function_call_history.exp: Likewise.
* gdb.btrace/instruction_history.exp: Likewise.
* gdb.btrace/nohist.exp: Likewise.
* gdb.btrace/record_goto.exp: Likewise.
* gdb.btrace/segv.exp: Likewise.
* gdb.btrace/stepi.exp: Likewise.
* gdb.btrace/tailcall.exp: Likewise.
* gdb.btrace/unknown_functions.exp: Likewise.
* gdb.dwarf2/dw2-undefined-ret-addr.exp: Likewise.
* lib/gdb.exp: Add the "multi_line" helper.
Diffstat (limited to 'gdb/testsuite/lib')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 0041adf..6b42997 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -5119,5 +5119,16 @@ proc capture_command_output { command prefix } { return $output_string } +# A convenience function that joins all the arguments together, with a +# regexp that matches exactly one end of line in between each argument. +# This function is ideal to write the expected output of a GDB command +# that generates more than a couple of lines, as this allows us to write +# each line as a separate string, which is easier to read by a human +# being. + +proc multi_line { args } { + return [join $args "\r\n"] +} + # Always load compatibility stuff. load_lib future.exp |