yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* gdb.base/charset.exp (valid_target_charset): New proc.

Browse Source 
Use it to skip tests on invalid charsets.
This commit is contained in:
Tom Tromey 2009-03-25 19:25:49 +00:00
parent 6c02c64c31
commit a8df5de46d
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2009-03-25 Tom Tromey <tromey@redhat.com>
* gdb.base/charset.exp (valid_target_charset): New proc.
Use it to skip tests on invalid charsets.
2009-03-25 Pierre Muller <muller@ics.u-strasbg.fr>
* gdb.base/completion.exp: Add a test for directory completion.

12
gdb/testsuite/gdb.base/charset.exp
View File

@ -131,6 +131,11 @@ proc valid_host_charset {charset} {
return [expr {[info exists charsets($charset)] && $charsets($charset)}]
}
proc valid_target_charset {charset} {
global charsets
return [info exists charsets($charset)]
}
send_gdb "set host-charset\n"
gdb_expect {
-re "Requires an argument. Valid arguments are (\[^ \t\n\r,.\]*)" {
@ -238,6 +243,9 @@ foreach host_charset $charset_subset {
# Now try setting every possible target character set,
# given that host charset.
foreach target_charset $charset_subset {
if {![valid_target_charset $target_charset]} {
continue
}
set testname "try `set target-charset $target_charset'"
send_gdb "set target-charset $target_charset\n"
gdb_expect {
@ -376,6 +384,10 @@ if {$wchar_size == 2} {
gdb_test "set host-charset ASCII" ""
foreach target_charset $charset_subset {
if {![valid_target_charset $target_charset]} {
continue
}
if {$target_charset == "UCS-4" || $target_charset == "UCS-2"} {
set param target-wide-charset
set L L