Added tests for auto_mkindex_parser quoting problems, BUGID 1657

1 files changed, 20 insertions, 0 deletions

diff --git a/tests/platform.test b/tests/platform.test
new file mode 100644
index 0000000..f5273b2
--- /dev/null
+++ b/tests/platform.test
@@ -0,0 +1,20 @@
+# The file tests the tcl_platform variable
+#
+# This file contains a collection of tests for one or more of the Tcl
+# built-in commands.  Sourcing this file into Tcl runs the tests and
+# generates output for errors.  No output means no errors were found.
+#
+# Copyright (c) 1999 by Scriptics Corporation
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+# RCS: @(#) 
+
+if {[info procs test] != "test"} {source defs}
+
+test platform-1.1 {TclpSetVariables: tcl_platform} {
+    lsort [array names tcl_platform]
+} {byteOrder machine os osVersion platform}
+
+return