diff options
author | fvogel <fvogelnew1@free.fr> | 2020-11-08 12:38:09 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2020-11-08 12:38:09 (GMT) |
commit | 1baf4a16562156e81f80c3f528e45dcb95f79bfa (patch) | |
tree | d78e50cd5347eb39cbf7362c356ccbbdf9b77a03 /tests | |
parent | e4175af4537bf73fd329f38856ab0eb2d8037d5b (diff) | |
download | tk-1baf4a16562156e81f80c3f528e45dcb95f79bfa.zip tk-1baf4a16562156e81f80c3f528e45dcb95f79bfa.tar.gz tk-1baf4a16562156e81f80c3f528e45dcb95f79bfa.tar.bz2 |
Cosmetic: fix spacing in the test file.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/systray.test | 31 |
1 files changed, 15 insertions, 16 deletions
diff --git a/tests/systray.test b/tests/systray.test index 38f2c24..9330c63 100644 --- a/tests/systray.test +++ b/tests/systray.test @@ -10,25 +10,24 @@ # ---- Result should have been (exact matching): # 16 # ==== intro-2 FAILED" - package require tcltest 2.0 - namespace import ::tcltest::* - test systray-1 {Create a systray icon.} { +package require tcltest 2.0 +namespace import ::tcltest::* + +test systray-1 {Create a systray icon.} { image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw== tk systray create _book "Systray sample" {puts "button 1 click"} {puts "button 3 click""} - } {} - - test systray-2 {Argument checking.} { - tk systray create - } error "wrong # args: should be \"tk systray create image ?text? ?b1_callback? b3_callback?" - +} {} - test sysnotify-1 {System notification dialog.} { - tk sysnotify {Alert} {This is an alert} - } {} +test systray-2 {Argument checking.} { + tk systray create +} error "wrong # args: should be \"tk systray create image ?text? ?b1_callback? b3_callback?" +test sysnotify-1 {System notification dialog.} { + tk sysnotify {Alert} {This is an alert} +} {} - # To see test statistics (Total/Passed/Skipped/Failed), best putthis line in the end: - tk systray destroy - image delete _book - cleanupTests +# To see test statistics (Total/Passed/Skipped/Failed), best putthis line in the end: +tk systray destroy +image delete _book +cleanupTests |