* gdb.base/charset.exp: If UTF-16 is not available, skip char16_t, String16 tests.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index df921b148efaf057de6d8b127bbb6d6350ac6816..170419979a56e2417d141d5d556b027f564a3219 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-13  Doug Evans  <dje@google.com>
+
+       * gdb.base/charset.exp: If UTF-16 is not available, skip char16_t, String16 tests.
+
 2011-05-13  Tom Tromey  <tromey@redhat.com>
 
        * lib/gdb.exp (is_x86_like_target): New proc.

diff --git a/gdb/testsuite/gdb.base/charset.exp b/gdb/testsuite/gdb.base/charset.exp
index 4e4cf09bb5c4bb33c0a2b259ab000dbe9bd035eb..ad0fec9d0248052198bbd1a043ebd1e1d5d5b7b2 100644 (file)
--- a/gdb/testsuite/gdb.base/charset.exp
+++ b/gdb/testsuite/gdb.base/charset.exp
@@ -546,6 +546,12 @@ if {$wchar_ok} {
 }
 
 set ucs2_ok [expr {[get_sizeof char16_t 99] == 2}]
+
+if ![valid_host_charset "UTF-16"] {
+    verbose -log "Disabling UTF-16 tests."
+    set ucs2_ok 0
+}
+
 if {$ucs2_ok} {
     test_wide_or_unicode u UTF-16
 }
@@ -606,11 +612,13 @@ proc string_display { var_name set_prefix x_size x_type} {
   gdb_test "x /2${x_size}s ${var_name}" ".* ${x_type}\"Test String\"\[\r\n\]+.* ${x_type}\"with zeroes\"" "Display String ${var_name} with x/${x_size}s"
 }
 
-string_display String16 u h u
-if {$wchar_size == 2} {
-  string_display String16 L h u
+if {$ucs2_ok} {
+    string_display String16 u h u
+    if {$wchar_size == 2} {
+       string_display String16 L h u
+    }
 }
- 
+
 string_display String32 U w U
 if {$wchar_size == 4} {
   string_display String32 L w U