diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-11-10 23:06:12 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-11-10 23:06:12 (GMT) |
| commit | c315058848b7f3a5207cb41076109f0aec54540d (patch) | |
| tree | 450219ad0850e9e7a3aaac1459572517ef0df83b /tests | |
| parent | afcfa17ea8bf31255687d8a688f2ea14366a119e (diff) | |
| download | tk-c315058848b7f3a5207cb41076109f0aec54540d.zip tk-c315058848b7f3a5207cb41076109f0aec54540d.tar.gz tk-c315058848b7f3a5207cb41076109f0aec54540d.tar.bz2 | |
Let the constraints to be taken into account by the test file.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/constraints.tcl | 1 | ||||
| -rw-r--r-- | tests/systray.test | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index ee073cf..b4c0dda 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -182,6 +182,7 @@ testConstraint notAqua [expr {[tk windowingsystem] ne "aqua"}] testConstraint aqua [expr {[tk windowingsystem] eq "aqua"}] testConstraint x11 [expr {[tk windowingsystem] eq "x11"}] testConstraint nonwin [expr {[tk windowingsystem] ne "win32"}] +puts ">>>>>>>>>>[expr {[tk windowingsystem] ne "win32"}]" testConstraint aquaOrWin32 [expr { ([tk windowingsystem] eq "win32") || [testConstraint aqua] }] diff --git a/tests/systray.test b/tests/systray.test index 70cd5e8..fb74991 100644 --- a/tests/systray.test +++ b/tests/systray.test @@ -4,8 +4,10 @@ # Copyright © 2020 Kevin Walzer/WordTech Communications LLC. # All rights reserved. -package require tcltest 2.0 +package require tcltest 2.2 namespace import ::tcltest::* +eval tcltest::configure $argv +tcltest::loadTestedCommands test systray-1 {systray icon creation} -setup { image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw== |