diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-28 16:10:01 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-28 16:10:01 (GMT) |
commit | 0015fdd61a457d1292bd92f62ccdfad6bebb8e8a (patch) | |
tree | bdeb3a4349df7cbb36253f56248ae2ecc3f21ef7 /tests | |
parent | fe200c4760cb4f5b020a79716aec8f79e6fae099 (diff) | |
download | tcl-0015fdd61a457d1292bd92f62ccdfad6bebb8e8a.zip tcl-0015fdd61a457d1292bd92f62ccdfad6bebb8e8a.tar.gz tcl-0015fdd61a457d1292bd92f62ccdfad6bebb8e8a.tar.bz2 |
Add "chan isbinary" command. Part of TIP #699, meant for 8.7
Diffstat (limited to 'tests')
-rw-r--r-- | tests/chan.test | 10 | ||||
-rw-r--r-- | tests/cmdAH.test | 2 |
2 files changed, 11 insertions, 1 deletions
diff --git a/tests/chan.test b/tests/chan.test index d818a62..700df87 100644 --- a/tests/chan.test +++ b/tests/chan.test @@ -120,6 +120,16 @@ test chan-15.2 {chan command: truncate subcommand} -setup { catch {close $f} catch {removeFile $file} } +test chan-15.3 {chan command: isbinary subcommand} -setup { + set file [makeFile {} testIsBinary] + set f [open $file w+] + fconfigure $f -translation binary +} -body { + chan isbinary $f +} -result 1 -cleanup { + catch {close $f} + catch {removeFile $file} +} # TIP 287: chan pending test chan-16.1 {chan command: pending subcommand} -body { diff --git a/tests/cmdAH.test b/tests/cmdAH.test index ed55c24..6432ad4 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -23,7 +23,7 @@ testConstraint testsetplatform [llength [info commands testsetplatform]] testConstraint testvolumetype [llength [info commands testvolumetype]] testConstraint testbytestring [llength [info commands testbytestring]] testConstraint time64bit [expr { - ([llength [info command testsize]] ? + ([llength [info command testsize]] ? [testsize st_mtime] : $::tcl_platform(pointerSize)) >= 8 }] testConstraint linkDirectory [expr { |