This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[PATCH V2 1/7] Fortran, testsuite: Use multi_line in whatis_type testcase.
- From: Bernhard Heckel <bernhard dot heckel at intel dot com>
- To: qiyaoltc at gmail dot com
- Cc: gdb-patches at sourceware dot org, Bernhard Heckel <bernhard dot heckel at intel dot com>
- Date: Fri, 13 May 2016 11:34:40 +0200
- Subject: [PATCH V2 1/7] Fortran, testsuite: Use multi_line in whatis_type testcase.
- Authentication-results: sourceware.org; auth=none
- References: <1463132086-17451-1-git-send-email-bernhard dot heckel at intel dot com>
2016-05-11 Bernhard Heckel <bernhard.heckel@intel.com>
gdb/testsuite/Changelog:
* whatis_type.exp: Use multi_line.
---
gdb/testsuite/gdb.fortran/whatis_type.exp | 20 ++++++++++++++++----
1 file changed, 16 insertions(+), 4 deletions(-)
diff --git a/gdb/testsuite/gdb.fortran/whatis_type.exp b/gdb/testsuite/gdb.fortran/whatis_type.exp
index af897a6..b6324e6 100644
--- a/gdb/testsuite/gdb.fortran/whatis_type.exp
+++ b/gdb/testsuite/gdb.fortran/whatis_type.exp
@@ -39,15 +39,27 @@ set t1_i "$int :: t1_i"
set t1_r "$real :: t1_r"
gdb_test "whatis t1" \
- "type = Type t1\r\n${t1_i}\r\n${t1_r}\r\nEnd Type t1" \
+ [multi_line "type = Type t1" \
+ "$t1_i" \
+ "$t1_r" \
+ "End Type t1"] \
"whatis t1"
gdb_test "whatis t1v" \
- "type = Type t1\r\n${t1_i}\r\n${t1_r}\r\nEnd Type t1" \
+ [multi_line "type = Type t1" \
+ "$t1_i" \
+ "$t1_r" \
+ "End Type t1"] \
"whatis t1v"
gdb_test "ptype t1" \
- "type = Type t1\r\n ${t1_i}\r\n ${t1_r}\r\nEnd Type t1" \
+ [multi_line "type = Type t1" \
+ " $t1_i" \
+ " $t1_r" \
+ "End Type t1"] \
"ptype t1"
gdb_test "ptype t1v" \
- "type = Type t1\r\n ${t1_i}\r\n ${t1_r}\r\nEnd Type t1" \
+ [multi_line "type = Type t1" \
+ " $t1_i" \
+ " $t1_r" \
+ "End Type t1"] \
"ptype t1v"
--
2.7.1.339.g0233b80