aboutsummaryrefslogtreecommitdiff
path: root/lib/dg.exp
diff options
context:
space:
mode:
authorBen Elliston <bje@gnu.org>2018-12-08 00:29:35 +1100
committerBen Elliston <bje@gnu.org>2018-12-08 00:29:35 +1100
commit39f9a7703a57127792b0760bef116c1cb6952d52 (patch)
treefb6b77fdb54045750ef3d2b0cd2e04eafab72288 /lib/dg.exp
parentb3d43d3be8208272573563943690fff25ee50c8f (diff)
downloaddejagnu-39f9a7703a57127792b0760bef116c1cb6952d52.zip
dejagnu-39f9a7703a57127792b0760bef116c1cb6952d52.tar.gz
dejagnu-39f9a7703a57127792b0760bef116c1cb6952d52.tar.bz2
* runtest.exp, lib/utils.exp, lib/targetdb.exp, lib/target.exp,
lib/remote.exp, lib/framework.exp, lib/dg.exp, config/vxworks.exp, config/sim.exp, config/gdb_stub.exp, config/aarch64-fv8.exp, baseboards/vr4300-sim.exp, baseboards/vr4111-sim.exp, baseboards/vr4100-sim.exp, baseboards/sh-sid.exp, baseboards/mt-sid.exp, baseboards/mips-sim.exp, baseboards/mips-sim-idt64.exp, baseboards/mips-sim-idt32.exp, baseboards/i386-sid.exp, baseboards/arm-sim.exp, baseboards/arm-ice.exp, baseboards/androideabi.exp, testsuite/runtest.all/utils.test, testsuite/runtest.all/target.test: Replace string literal comparisons using == and != with 'eq' and 'ne'.
Diffstat (limited to 'lib/dg.exp')
-rw-r--r--lib/dg.exp20
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/dg.exp b/lib/dg.exp
index 5232d2a..31da244 100644
--- a/lib/dg.exp
+++ b/lib/dg.exp
@@ -227,7 +227,7 @@ proc dg-process-target { selector } {
foreach triplet $selector {
if {[string match $triplet $target_triplet]} {
set triplet_match 1
- } elseif { $isnative && $triplet == "native" } {
+ } elseif { $isnative && $triplet eq "native" } {
set triplet_match 1
}
}
@@ -236,9 +236,9 @@ proc dg-process-target { selector } {
}
if { $triplet_match } {
- return [expr { $what == "xfail" ? "F" : "S" }]
+ return [expr { $what eq "xfail" ? "F" : "S" }]
} else {
- return [expr { $what == "xfail" ? "P" : "N" }]
+ return [expr { $what eq "xfail" ? "P" : "N" }]
}
}
@@ -313,7 +313,7 @@ proc dg-do { args } {
# The user really shouldn't have multiple lines of target
# selectors, but try to do the intuitive thing (multiple lines
# are OR'd together).
- if { $selected != "S" } {
+ if { $selected ne "S" } {
set selected "N"
} else {
set doaction [lindex ${do-what} 0]
@@ -594,10 +594,10 @@ proc dg-test { args } {
if { [string index [lindex $args 0] 0] eq "-" } {
for { set i 0 } { $i < [llength $args] } { incr i } {
- if { [lindex $args $i] == "--" } {
+ if { [lindex $args $i] eq "--" } {
incr i
break
- } elseif { [lindex $args $i] == "-keep-output" } {
+ } elseif { [lindex $args $i] eq "-keep-output" } {
set keep 1
} elseif { [string index [lindex $args $i] 0] eq "-" } {
clone_output "ERROR: dg-test: illegal argument: [lindex $args $i]"
@@ -680,7 +680,7 @@ proc dg-test { args } {
}
# If we're not supposed to try this test on this target, we're done.
- if { [lindex ${dg-do-what} 1] == "N" } {
+ if { [lindex ${dg-do-what} 1] eq "N" } {
unsupported "$name"
verbose "$name not supported on this target, skipping it" 3
return
@@ -794,7 +794,7 @@ proc dg-test { args } {
# Run the executable image if asked to do so.
# FIXME: This is the only place where we assume a standard meaning to
# the `keyword' argument of dg-do. This could be cleaned up.
- if { [lindex ${dg-do-what} 0] == "run" } {
+ if { [lindex ${dg-do-what} 0] eq "run" } {
if {![file exists $output_file]} {
unresolved "$name compilation failed to produce executable"
} else {
@@ -802,14 +802,14 @@ proc dg-test { args } {
set result [${tool}_load $output_file]
set status [lindex $result 0]
set output [lindex $result 1]
- if { [lindex ${dg-do-what} 2] == "F" } {
+ if { [lindex ${dg-do-what} 2] eq "F" } {
setup_xfail "*-*-*"
}
if { "$status" eq "pass" } {
pass "$name execution test"
verbose "Exec succeeded." 3
if { [llength ${dg-output-text}] > 1 } {
- if { [lindex ${dg-output-text} 0] == "F" } {
+ if { [lindex ${dg-output-text} 0] eq "F" } {
setup_xfail "*-*-*"
}
set texttmp [lindex ${dg-output-text} 1]