diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-13 22:13:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-13 22:13:12 (GMT) |
| commit | 6eb17d212faf798cf9cd89c85467d8f8893ca614 (patch) | |
| tree | e8cd4b88b670d5f7e6e0546026cbd5d6abf83e7c /tests | |
| parent | cffc7b487cdbf3425c65ac71f4153919f4b48e8b (diff) | |
| download | tk-6eb17d212faf798cf9cd89c85467d8f8893ca614.zip tk-6eb17d212faf798cf9cd89c85467d8f8893ca614.tar.gz tk-6eb17d212faf798cf9cd89c85467d8f8893ca614.tar.bz2 | |
More progress, backporting bugfix from Tk 9.0
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cluster.test | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/tests/cluster.test b/tests/cluster.test index 998759e..be889c3 100644 --- a/tests/cluster.test +++ b/tests/cluster.test @@ -15,53 +15,53 @@ testConstraint needsICU [expr {[catch {info body ::tk::startOfCluster}]}] test cluster-1.0 {::tk::startOfCluster} -body { - ::tk::startOfCluster 🤡 -1 + ::tk::startOfCluster é -1 } -result {} test cluster-1.1 {::tk::startOfCluster} -body { - ::tk::startOfCluster 🤡 0 + ::tk::startOfCluster é 0 } -result 0 test cluster-1.2 {::tk::startOfCluster} -constraints needsICU -body { - ::tk::startOfCluster 🤡 1 + ::tk::startOfCluster é 1 } -result 0 test cluster-1.3 {::tk::startOfCluster} -constraints needsICU -body { - ::tk::startOfCluster 🤡 2 + ::tk::startOfCluster é 2 } -result 2 test cluster-1.4 {::tk::startOfCluster} -constraints needsICU -body { - ::tk::startOfCluster 🤡 3 + ::tk::startOfCluster é 3 } -result 2 test cluster-1.5 {::tk::startOfCluster} -constraints needsICU -body { - ::tk::startOfCluster 🤡 end + ::tk::startOfCluster é end } -result 0 test cluster-1.6 {::tk::startOfCluster} -body { - ::tk::startOfCluster 🤡 {} + ::tk::startOfCluster é {} } -result {} test cluster-1.7 {::tk::startOfCluster} -constraints needsICU -body { - ::tk::startOfCluster 🤡 end-1 + ::tk::startOfCluster é end-1 } -result 0 test cluster-2.0 {::tk::endOfCluster} -body { - ::tk::endOfCluster 🤡 -1 + ::tk::endOfCluster é -1 } -result 0 test cluster-2.1 {::tk::endOfCluster} -constraints needsICU -body { - ::tk::endOfCluster 🤡 0 + ::tk::endOfCluster é 0 } -result 2 test cluster-2.2 {::tk::endOfCluster} -constraints needsICU -body { - ::tk::endOfCluster 🤡 1 + ::tk::endOfCluster é 1 } -result 2 test cluster-2.3 {::tk::endOfCluster} -body { - ::tk::endOfCluster 🤡 2 + ::tk::endOfCluster é 2 } -result {} test cluster-2.4 {::tk::endOfCluster} -body { - ::tk::endOfCluster 🤡 3 + ::tk::endOfCluster é 3 } -result {} test cluster-2.5 {::tk::endOfCluster} -constraints needsICU -body { - ::tk::endOfCluster 🤡 end + ::tk::endOfCluster é end } -result 2 test cluster-2.6 {::tk::endOfCluster} -body { - ::tk::endOfCluster 🤡 {} + ::tk::endOfCluster é {} } -result 0 test cluster-2.7 {::tk::endOfCluster} -constraints needsICU -body { - ::tk::endOfCluster 🤡 end-1 + ::tk::endOfCluster é end-1 } -result 2 test cluster-3.0 {::tk::endOfWord} -body { |