diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-01 10:18:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-01 10:18:35 (GMT) |
| commit | 36c94773b45337052801cf689d1c2a3ab1ea790b (patch) | |
| tree | e086c6cbfa6713bf0dff0621de8a3016727974b7 /tests/chan.test | |
| parent | fdb4ca15676f435f3b9b4b353ca57e7a806b2dbe (diff) | |
| download | tcl-36c94773b45337052801cf689d1c2a3ab1ea790b.zip tcl-36c94773b45337052801cf689d1c2a3ab1ea790b.tar.gz tcl-36c94773b45337052801cf689d1c2a3ab1ea790b.tar.bz2 | |
Handle "deprecated" condition correctly in test-cases
Diffstat (limited to 'tests/chan.test')
| -rw-r--r-- | tests/chan.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/chan.test b/tests/chan.test index cb44f06..87d642c 100644 --- a/tests/chan.test +++ b/tests/chan.test @@ -11,6 +11,7 @@ if {"::tcltest" ni [namespace children]} { package require tcltest 2.5 namespace import -force ::tcltest::* } +source [file join [file dirname [info script]] tcltests.tcl] package require tcltests @@ -55,7 +56,7 @@ test chan-4.2 {chan command: [Bug 800753]} -body { test chan-4.3 {chan command: [Bug 800753]} -body { chan configure stdout -eofchar \x00 } -returnCodes error -result {bad value for -eofchar: must be non-NUL ASCII character} -test chan-4.4 {chan command: check valid inValue, no outValue} -body { +test chan-4.4 {chan command: check valid inValue, no outValue} -constraints deprecated -body { chan configure stdout -eofchar [list \x27 {}] } -result {} test chan-4.5 {chan command: check valid inValue, invalid outValue} -body { |