vendor/tcl

1 files changed, 9 insertions, 2 deletions

diff --git a/contrib/tcl/tests/source.test b/contrib/tcl/tests/source.test
index 1e0ff696c211..9a7e2305e9a1 100644
--- a/contrib/tcl/tests/source.test
+++ b/contrib/tcl/tests/source.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# SCCS: @(#) source.test 1.25 97/07/02 16:41:34
+# SCCS: @(#) source.test 1.26 97/09/24 16:33:37
 
 if {[string compare test [info procs test]] == 1} then {source defs}
 
@@ -31,7 +31,7 @@ test source-1.2 {source command} {
     source source.file
 } result
 
-# The mac version of source returns a differnt result for
+# The mac version of source returns a different result for
 # the next two tests.
 
 if {$tcl_platform(platform) == "macintosh"} {
@@ -173,6 +173,13 @@ test source-5.6 {source resource files} {macOnly} {
     list $msg2 $result $msg
 } [list hello 1 bad]
 
+test source-6.1 {source is binary ok} {
+    set x {}
+    makeFile [list set x "a b\0c"] source.file
+    source source.file
+    string length $x
+} 5
+
 catch {removeFile source.file}
 
 # Generate null final value