Changeset 6069
- Timestamp:
- Feb 27, 2016, 9:17:45 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/test/gauge.test
r5687 r6069 61 61 } -result {4} 62 62 63 test gauge.value.4 {value command, just -check flag, valueis returned} \63 test gauge.value.4 {value command, just -check flag, error is returned} \ 64 64 -setup { 65 65 set w [Rappture::Gauge .#auto] … … 69 69 destroy $w 70 70 catch {unset w} 71 } -result {0} 71 } -returnCodes { 72 error 73 } -result {wrong # args: should be "value ?-check? ?newval?"} 72 74 73 test gauge.value.5 {value command, invalid flag, return error} \ 75 test gauge.value.5 {value command, -check flag, orig value is unchanged} \ 76 -setup { 77 set w [Rappture::Gauge .#auto] 78 $w value 2 79 } -body { 80 $w value -check 4 81 $w value 82 } -cleanup { 83 destroy $w 84 catch {unset w} 85 } -result {2} 86 87 test gauge.value.6 {value command, invalid flag, return error} \ 74 88 -setup { 75 89 set w [Rappture::Gauge .#auto] 76 90 } -body { 77 list [catch {$w value -chcek} msg] $msg91 $w value -chcek 78 92 } -cleanup { 79 93 destroy $w 80 94 catch {unset w} 81 } -result {1 {bad value "-chcek": should be a real number}} 95 } -returnCodes { 96 error 97 } -result {bad value "-chcek": should be a real number} 82 98 83 99 ::tcltest::cleanupTests
Note: See TracChangeset
for help on using the changeset viewer.