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
|