Index: gdb/testsuite/gdb.base/wchar.exp |
diff --git a/gdb/testsuite/gdb.base/wchar.exp b/gdb/testsuite/gdb.base/wchar.exp |
index 2451d92edcda1d67d1ff33b3e50b70759b3e8ad2..b3d30193853e0864436e5a124b3ac3c2e521a0bf 100644 |
--- a/gdb/testsuite/gdb.base/wchar.exp |
+++ b/gdb/testsuite/gdb.base/wchar.exp |
@@ -1,4 +1,4 @@ |
-# Copyright 2011-2012 Free Software Foundation, Inc. |
+# Copyright 2011-2013 Free Software Foundation, Inc. |
# This program is free software; you can redistribute it and/or modify |
# it under the terms of the GNU General Public License as published by |
@@ -13,8 +13,8 @@ |
# You should have received a copy of the GNU General Public License |
# along with this program. If not, see <http://www.gnu.org/licenses/>. |
-set testfile wchar |
-set srcfile ${testfile}.c |
+standard_testfile .c |
+ |
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile}] } { |
return -1 |
} |
@@ -36,3 +36,22 @@ gdb_test "print simple\[2\]" "= 99 L'c'" |
gdb_test "print difficile\[2\]" "= 65261 L'\\\\xfeed'" |
+set cent "\\\\242" |
+gdb_test "print repeat" "= L\"A\", '$cent' <repeats 21 times>, \"B.*" |
+ |
+global hex |
+gdb_test "print repeat_p" \ |
+ "= $hex L\"A\", '$cent' <repeats 21 times>, \"B\"" |
+ |
+gdb_test_no_output "set print null on" |
+ |
+gdb_test "print repeat" "= L\"A\", '$cent' <repeats 21 times>, \"B\"" \ |
+ "print repeat (print null on)" |
+ |
+gdb_test_no_output "set print elements 3" |
+ |
+gdb_test "print repeat" "= L\"A$cent$cent\"\.\.\." \ |
+ "print repeat (print elements 3)" |
+ |
+gdb_test "print repeat_p" "= $hex L\"A$cent$cent\"\.\.\." \ |
+ "print repeat_p (print elements 3)" |