From 136b650bda14f6705554dc145efa1d14a79b4513 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Tue, 13 Jul 2021 19:53:38 +0000
Subject: Added a basic portable test of [fconfigure -stat]

---
 tests/ioCmd.test | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index 0b0ef3c..93815c9 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -582,7 +582,28 @@ test ioCmd-13.11 {open ... a+ must not use O_APPEND: Bug 1773127} -setup {
 } -cleanup {
     removeFile $f
 } -result 341234x6
-
+test ioCmd-13.12 {open file produces something that has fconfigure -stat} -setup {
+    set f [makeFile {} iocmd13_12]
+    set result {}
+} -body {
+    set fd [open $f wb]
+    set result [dict get [fconfigure $fd -stat] type]
+    fconfigure $fd -buffering none
+    puts -nonewline $fd abc
+    # Three ways of getting the size; all should agree!
+    lappend result [tell $fd] [file size $f] \
+	[dict get [fconfigure $fd -stat] size]
+    puts -nonewline $fd def
+    lappend result [tell $fd] [file size $f] \
+	[dict get [fconfigure $fd -stat] size]
+    puts -nonewline $fd ghi
+    lappend result [tell $fd] [file size $f] \
+	[dict get [fconfigure $fd -stat] size]
+    close $fd
+    return $result
+} -cleanup {
+    removeFile $f
+} -result {file 3 3 3 6 6 6 9 9 9}
 
 test iocmd-14.1 {file id parsing errors} {
     list [catch {eof gorp} msg] $msg $::errorCode
-- 
cgit v0.12