a de-selected dg-do is encountered.
Signed-off-by: Ben Elliston <bje@gnu.org>
+2016-03-28 Dominik Vogt <vogt@linux.vnet.ibm.com>
+
+ * dg.exp (dg-do): Do not change the previously selected action if
+ a de-selected dg-do is encountered.
+
2016-03-28 Ben Elliston <bje@gnu.org>
* lib/framework.exp (check_xml): Remove unused proc.
error "[lindex $args 0]: too many arguments"
}
+ set doaction [lindex $args 1]
set selected [lindex ${do-what} 1] ;# selected? (""/S/N)
set expected [lindex ${do-what} 2] ;# expected to pass/fail (P/F)
# are OR'd together).
if { $selected != "S" } {
set selected "N"
+ } else {
+ set doaction [lindex ${do-what} 0]
}
}
"F" { set expected "F" }
error "[lindex $args 0]: syntax error"
}
}
- set do-what [list [lindex $args 1] $selected $expected]
+ set do-what [list $doaction $selected $expected]
}
proc dg-error { args } {