* lib/gdb.exp, gdb.base/sepdebug.exp: Replace usage of eq and ne

	with [string compare].

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a200ed9..551c8d6 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 2007-10-30  Pedro Alves  <pedro_alves@portugalmail.pt>
 
+       * lib/gdb.exp, gdb.base/sepdebug.exp: Replace usage of eq and ne
+       with [string compare].
+
+2007-10-30  Pedro Alves  <pedro_alves@portugalmail.pt>
+
        * gdb.base/sepdebug.exp (binfile): Add ${EXEEXT}.
        * gdb.base/sepsymtab.exp (binfile): Add ${EXEEXT}.
 

diff --git a/gdb/testsuite/gdb.base/sepdebug.exp b/gdb/testsuite/gdb.base/sepdebug.exp
index b52cfff..2936fe9 100644 (file)
--- a/gdb/testsuite/gdb.base/sepdebug.exp
+++ b/gdb/testsuite/gdb.base/sepdebug.exp
@@ -955,7 +955,7 @@ test_different_dir debuglink "${objdir}/${subdir}" 0
 # NT_GNU_BUILD_ID / .note.gnu.build-id test:
 
 set build_id_debug_filename [build_id_debug_filename_get $binfile]
-if {$build_id_debug_filename eq ""} {
+if ![string compare $build_id_debug_filename ""] then {
     unsupported "build-id is not supported by the compiler"
 
     # Spare debug files may confuse testsuite runs in the future.
@@ -964,10 +964,10 @@ if {$build_id_debug_filename eq ""} {
     set build_id_debugself_filename [build_id_debug_filename_get $debugfile]
     set test "build-id support by binutils"
     set xfail 0
-    if {$build_id_debugself_filename eq ""} {
+    if ![string compare $build_id_debugself_filename ""] then {
        unsupported $test
        set xfail 1
-    } elseif {$build_id_debugself_filename ne $build_id_debug_filename} {
+    } elseif {[string compare $build_id_debugself_filename $build_id_debug_filename] != 0} then {
        fail $test
     } else {
        pass $test

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 5c5f9bf..edbc606 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -2505,7 +2505,7 @@ proc build_id_debug_filename_get { exec } {
     set data [read $fi]
     close $fi
     file delete $tmp
-    if {$data eq ""} {
+    if ![string compare $data ""] then {
        return ""
     }
     # Convert it to hex.