aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/tcl/tests/source.test
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/tcl/tests/source.test')
-rw-r--r--contrib/tcl/tests/source.test11
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