Tcl Source Code

Check-in [09fc39def5]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:test repairs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | rc1 | core-8-6-6-rc
Files: files | file ages | folders
SHA1: 09fc39def540bbff591c9c019c29071c479d8a0e
User & Date: dgp 2016-07-22 15:28:50
Context
2016-07-26
13:54
a few test & docs fixes Closed-Leaf check-in: 6c53c071ed user: dgp tags: rc2, release, core-8-6-6-rc, core-8-6-6
2016-07-22
15:28
test repairs check-in: 09fc39def5 user: dgp tags: rc1, core-8-6-6-rc
14:00
Set release date check-in: 335b64996c user: dgp tags: core-8-6-6-rc
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/chanio.test.

6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796
6797
6798
6799
6800
6801
    # -translation binary is also -encoding binary
    chan configure $in  -translation binary
    chan configure $out -encoding koi8-r -translation lf
    chan copy $in $out
    chan close $in
    chan close $out
    file size $path(kyrillic.txt)
} -cleanup {
    file delete $path(utf8-fcopy.txt)
} -result 3

test chan-io-53.1 {CopyData} -setup {
    file delete $path(test1)
} -constraints {fcopy} -body {
    set f1 [open $thisScript]
    set f2 [open $path(test1) w]







<
<







6786
6787
6788
6789
6790
6791
6792


6793
6794
6795
6796
6797
6798
6799
    # -translation binary is also -encoding binary
    chan configure $in  -translation binary
    chan configure $out -encoding koi8-r -translation lf
    chan copy $in $out
    chan close $in
    chan close $out
    file size $path(kyrillic.txt)


} -result 3

test chan-io-53.1 {CopyData} -setup {
    file delete $path(test1)
} -constraints {fcopy} -body {
    set f1 [open $thisScript]
    set f2 [open $path(test1) w]

Changes to tests/info.test.

1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
][reduce [info frame 0]]} ; # line 2 of the eval
} {type eval line 2 cmd {info frame 0} proc ::tcltest::RunTest}


# -------------------------------------------------------------------------
# literal sharing 2, bug 2933089

test info-39.1 {location information not confused by literal sharing, bug 2933089} -setup {
    set result {}

    proc print_one {} {}
    proc test_info_frame {} {
	set x 1
	set y x








|







1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
][reduce [info frame 0]]} ; # line 2 of the eval
} {type eval line 2 cmd {info frame 0} proc ::tcltest::RunTest}


# -------------------------------------------------------------------------
# literal sharing 2, bug 2933089

test info-40.1 {location information not confused by literal sharing, bug 2933089} -setup {
    set result {}

    proc print_one {} {}
    proc test_info_frame {} {
	set x 1
	set y x