Changeset 6069 for trunk

Timestamp:

Feb 27, 2016 9:17:45 PM (8 years ago)

Author:

ldelgass

Message:

Fix for gauge test: -check flag requires a new value argument

File:

• trunk/gui/test/gauge.test (modified) (2 diffs)

trunk/gui/test/gauge.test

@@ -61 +61 @@
 } -result {4}
 
-test gauge.value.4 {value command, just -check flag, value is returned} \
+test gauge.value.4 {value command, just -check flag, error is returned} \
 -setup {
     set w [Rappture::Gauge .#auto]
@@ -69 +69 @@
     destroy $w
     catch {unset w}
-} -result {0}
+} -returnCodes {
+    error
+} -result {wrong # args: should be "value ?-check? ?newval?"}
 
-test gauge.value.5 {value command, invalid flag, return error} \
+test gauge.value.5 {value command, -check flag, orig value is unchanged} \
+-setup {
+    set w [Rappture::Gauge .#auto]
+    $w value 2
+} -body  {
+    $w value -check 4
+    $w value
+} -cleanup {
+    destroy $w
+    catch {unset w}
+} -result {2}
+
+test gauge.value.6 {value command, invalid flag, return error} \
 -setup {
     set w [Rappture::Gauge .#auto]
 } -body  {
-    list [catch {$w value -chcek} msg] $msg
+    $w value -chcek
 } -cleanup {
     destroy $w
     catch {unset w}
-} -result {1 {bad value "-chcek": should be a real number}}
+} -returnCodes {
+    error
+} -result {bad value "-chcek": should be a real number}
 
 ::tcltest::cleanupTests