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: 6a684d733e46dc9c56b992cb82635213e8a27c8ce0a1d2e44f00bbba652d3f21
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. Leaf 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