diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-06 22:15:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-06 22:15:14 (GMT) |
| commit | 493167ef624bafd23760181a1fd7f57cb20c44b4 (patch) | |
| tree | 9b00ad65c5e70f729e872ea5b27643dc8ff5fee1 /tests | |
| parent | 5f4f2011fc016df186b9b74f45d67b53d139fb2f (diff) | |
| download | tk-493167ef624bafd23760181a1fd7f57cb20c44b4.zip tk-493167ef624bafd23760181a1fd7f57cb20c44b4.tar.gz tk-493167ef624bafd23760181a1fd7f57cb20c44b4.tar.bz2 | |
Don't know how to activate ICU on MacOS with XQuarz
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cluster.test | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/tests/cluster.test b/tests/cluster.test index 32e4c63..724283a 100644 --- a/tests/cluster.test +++ b/tests/cluster.test @@ -11,7 +11,7 @@ eval tcltest::configure $argv tcltest::loadTestedCommands namespace import -force tcltest::test -testConstraint needsTcl87orICU [expr {[package vsatisfies [package provide Tcl] 8.7] || [catch {info body ::tk::startOfCluster}]}] +testConstraint needsICU [expr {[catch {info body ::tk::startOfCluster}]}] test cluster-1.0 {::tk::startOfCluster} -body { @@ -20,32 +20,32 @@ test cluster-1.0 {::tk::startOfCluster} -body { test cluster-1.1 {::tk::startOfCluster} -body { ::tk::startOfCluster 🤡 0 } -result 0 -test cluster-1.2 {::tk::startOfCluster} -constraints needsTcl87orICU -body { +test cluster-1.2 {::tk::startOfCluster} -constraints needsICU -body { ::tk::startOfCluster 🤡 1 } -result 0 -test cluster-1.3 {::tk::startOfCluster} -constraints needsTcl87orICU -body { +test cluster-1.3 {::tk::startOfCluster} -constraints needsICU -body { ::tk::startOfCluster 🤡 2 } -result 2 -test cluster-1.4 {::tk::startOfCluster} -constraints needsTcl87orICU -body { +test cluster-1.4 {::tk::startOfCluster} -constraints needsICU -body { ::tk::startOfCluster 🤡 3 } -result 2 -test cluster-1.5 {::tk::startOfCluster} -constraints needsTcl87orICU -body { +test cluster-1.5 {::tk::startOfCluster} -constraints needsICU -body { ::tk::startOfCluster 🤡 end } -result 0 test cluster-1.6 {::tk::startOfCluster} -body { ::tk::startOfCluster 🤡 {} } -result {} -test cluster-1.7 {::tk::startOfCluster} -constraints needsTcl87orICU -body { +test cluster-1.7 {::tk::startOfCluster} -constraints needsICU -body { ::tk::startOfCluster 🤡 end-1 } -result 0 test cluster-2.0 {::tk::endOfCluster} -body { ::tk::endOfCluster 🤡 -1 } -result 0 -test cluster-2.1 {::tk::endOfCluster} -constraints needsTcl87orICU -body { +test cluster-2.1 {::tk::endOfCluster} -constraints needsICU -body { ::tk::endOfCluster 🤡 0 } -result 2 -test cluster-2.2 {::tk::endOfCluster} -constraints needsTcl87orICU -body { +test cluster-2.2 {::tk::endOfCluster} -constraints needsICU -body { ::tk::endOfCluster 🤡 1 } -result 2 test cluster-2.3 {::tk::endOfCluster} -body { @@ -54,13 +54,13 @@ test cluster-2.3 {::tk::endOfCluster} -body { test cluster-2.4 {::tk::endOfCluster} -body { ::tk::endOfCluster 🤡 3 } -result {} -test cluster-2.5 {::tk::endOfCluster} -constraints needsTcl87orICU -body { +test cluster-2.5 {::tk::endOfCluster} -constraints needsICU -body { ::tk::endOfCluster 🤡 end } -result 2 test cluster-2.6 {::tk::endOfCluster} -body { ::tk::endOfCluster 🤡 {} } -result 0 -test cluster-2.7 {::tk::endOfCluster} -constraints needsTcl87orICU -body { +test cluster-2.7 {::tk::endOfCluster} -constraints needsICU -body { ::tk::endOfCluster 🤡 end-1 } -result 2 |