diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-01-09 10:10:12 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-01-09 10:10:12 (GMT) |
| commit | 6504b376c3d1878dd2acb60c9ac6065a51305fed (patch) | |
| tree | d7197c615f884da1b4579005a6967a6a7b0f7601 /tests/io.test | |
| parent | 3b1d9efc79aa9331ecd4ce3f13fcdaeeb93f119b (diff) | |
| parent | 4693981b235565c28349466192503fb764e5e55e (diff) | |
| download | tcl-6504b376c3d1878dd2acb60c9ac6065a51305fed.zip tcl-6504b376c3d1878dd2acb60c9ac6065a51305fed.tar.gz tcl-6504b376c3d1878dd2acb60c9ac6065a51305fed.tar.bz2 | |
merge 8.6 (regression bug-[cc1e91552c], etc)
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index 683a1b2..d42f59e 100644 --- a/tests/io.test +++ b/tests/io.test @@ -29,8 +29,11 @@ namespace eval ::tcl::test::io { variable msg variable expected - loadTestedCommands - catch [list package require -exact Tcltest [info patchlevel]] + catch { + ::tcltest::loadTestedCommands + package require -exact Tcltest [info patchlevel] + set ::tcltestlib [lindex [package ifneeded Tcltest [info patchlevel]] 1] + } package require tcltests testConstraint testbytestring [llength [info commands testbytestring]] @@ -8270,6 +8273,7 @@ test io-60.1 {writing illegal utf sequences} {openpipe fileevent testbytestring} # This test will hang in older revisions of the core. set out [open $path(script) w] + puts $out "catch {load $::tcltestlib Tcltest}" puts $out { puts [testbytestring \xe2] exit 1 |