1 files changed, 37 insertions, 0 deletions
diff --git a/tests/bigdata.test b/tests/bigdata.test
index a1ccd32..0538528 100644
--- a/tests/bigdata.test
+++ b/tests/bigdata.test
@@ -1069,6 +1069,43 @@ bigtestRO concat-bigdata-1 "concat" {4294967296 {0 1 2 3 4} {6 7 0 1 2} {3 4 5 6
     set l [bigList 0x80000000]
 }
 
+test puts-bigdata-1 "puts" -setup {
+    set fpath [makeFile {} bug-0306a5563.data]
+} -constraints {
+    bug0306a5563
+    bigdata
+} -body {
+    set fd [open $fpath w]    
+    puts -nonewline $fd [testbigdata string 0x80000001]
+    close $fd
+    set fd [open $fpath]
+    seek $fd 0x7FFFFFFA
+    set written [read $fd]
+    close $fd
+    set written
+} -result {2345678}
+
+test puts-bigdata-2 "puts" -setup {
+    set fpath [tcltest::makeFile {} bug-0306a5563.data]
+} -constraints {
+    bug0306a5563
+    bigdata
+    knownBug
+} -body {
+    set fd [open $fpath w]
+    set s [testbigdata string 0x7FFFFFFE]
+    # The character to append in the next line is EM DASH, 
+    # code point 0x2014 (decimal 8212, UTF-8 #xE2 #x80 #x94) 
+    append s —
+    puts -nonewline $fd $s
+    close $fd
+    set fd [open $fpath]
+    seek $fd 0x7FFFFFFA
+    set written [read $fd]
+    close $fd
+    set written
+} -result {23456—}
+
 #
 # TODO
 # lremove