diff options
| author | culler <culler> | 2019-10-20 04:42:28 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-10-20 04:42:28 (GMT) |
| commit | 4522c4eb54e975b36a6650a4907b33c9ea54d7fe (patch) | |
| tree | b3a5a076d9e266da04ea4c206d12aee7caf63f65 /tests/canvImg.test | |
| parent | 5bb5fa56cb1d601c253d0c1b1afea6c3dc5c5148 (diff) | |
| parent | ab6a8e71f152e013e5c799f367457a3805407d33 (diff) | |
| download | tk-4522c4eb54e975b36a6650a4907b33c9ea54d7fe.zip tk-4522c4eb54e975b36a6650a4907b33c9ea54d7fe.tar.gz tk-4522c4eb54e975b36a6650a4907b33c9ea54d7fe.tar.bz2 | |
Fix test canvImg-11.3 which was failing on macOS due to interaction with other tests
Diffstat (limited to 'tests/canvImg.test')
| -rw-r--r-- | tests/canvImg.test | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/tests/canvImg.test b/tests/canvImg.test index 492fcd5..c0b91f8 100644 --- a/tests/canvImg.test +++ b/tests/canvImg.test @@ -177,9 +177,9 @@ test canvImg-4.2 {ConfigureImage procedure} -constraints testImageType -setup { after cancel timer list $x $y [.c bbox i1] } -cleanup { - .c delete all - image delete foo - image delete foo2 + .c delete all + image delete foo + image delete foo2 } -result {{{foo free}} {{foo2 get} {foo2 display 0 0 80 60}} {50 100 130 160}} test canvImg-4.3 {ConfiugreImage procedure} -constraints testImageType -setup { .c delete all @@ -748,8 +748,8 @@ test canvImg-10.1 {TranslateImage procedure} -constraints testImageType -setup { update return $x } -cleanup { - .c delete all - image delete foo + .c delete all + image delete foo } -result $result_10_1 test canvImg-11.1 {TranslateImage procedure} -constraints testImageType -setup { @@ -767,8 +767,8 @@ test canvImg-11.1 {TranslateImage procedure} -constraints testImageType -setup { update return $x } -cleanup { - .c delete all - image delete foo + .c delete all + image delete foo } -result {{foo display 0 0 40 50}} test canvImg-11.2 {ImageChangedProc procedure} -constraints { testImageType @@ -798,22 +798,20 @@ test canvImg-11.3 {ImageChangedProc procedure} -constraints { update } -body { image create test foo -variable x - image create test foo2 -variable y + image create test foo2 -variable z foo changed 0 0 0 0 40 50 foo2 changed 0 0 0 0 80 60 .c create image 50 100 -image foo -tags image -anchor nw .c create image 70 110 -image foo2 -anchor nw - update - set y {} - set timer [after 500 {lappend y "timed out"}] + set z {} + set timer [after 500 {lappend z "timed out"}] image create test foo -variable x vwait x after cancel $timer - update - return $y + return $z } -cleanup { - .c delete all - image delete foo foo2 + .c delete all + image delete foo foo2 } -result $result_11_3 # cleanup |