Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Small test suite adaption for the upcoming tcl versions > 8.6. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
6a684d733e46dc9c56b992cb82635213 |
User & Date: | rolf 2019-11-06 20:54:25 |
Context
2019-11-30
| ||
00:47 | Editorial clean up: Removed cvs keywords in source code headers; the are obsolete. check-in: 14a8728e63 user: rolf tags: trunk | |
2019-11-06
| ||
20:55 | Merged from trunk. check-in: 34fdc85dfb user: rolf tags: schema | |
20:54 | Small test suite adaption for the upcoming tcl versions > 8.6. check-in: 6a684d733e user: rolf tags: trunk | |
2019-08-19
| ||
16:43 | Fixed typos. check-in: 8e8341da68 user: rolf tags: trunk | |
Changes
Changes to tests/i18n.test.
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
# Copyright (c) 2002 Rolf Ade. # # RCS: @(#) $Id$ source [file join [file dir [info script]] loadtdom.tcl] testConstraint beyondBMP [expr {[dom featureinfo TCL_UTF_MAX] > 3}] testConstraint 8.6 [package vsatisfies [package present Tcl] 8.6] test i18n-1.1 {parse utf-8 string} { set russian "\u0430\u0431\u0432\u0433\u0434\u0435\u0436\u0437\u0438\u0439" set doc [dom parse "<test>$russian</test>"] set root [$doc documentElement] set text [$root text] $doc delete |
| |
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
# Copyright (c) 2002 Rolf Ade.
#
# RCS: @(#) $Id$
source [file join [file dir [info script]] loadtdom.tcl]
testConstraint beyondBMP [expr {[dom featureinfo TCL_UTF_MAX] > 3}]
testConstraint 8.6 [package vsatisfies [package present Tcl] 8.6-]
test i18n-1.1 {parse utf-8 string} {
set russian "\u0430\u0431\u0432\u0433\u0434\u0435\u0436\u0437\u0438\u0439"
set doc [dom parse "<test>$russian</test>"]
set root [$doc documentElement]
set text [$root text]
$doc delete
|