2005-12-19 Don Porter <dgp@users.sourceforge.net>

        * generic/tclCmdMZ.c:   Modified [string is double] to use
        * tests/string.test:    TclParseNumber() to parse trailing whitespace.
        Ensures consistency, and makes it easier to cleanup after invalid
        internal reps left behind by parsing [Bugs 1360432 1382287].

        * generic/tclParseExpr.c:       Added TCL_PARSE_NO_WHITESPACE to
        * generic/tclScan.c:    TclParseNumber() calls since [scan] and
        * tests/scan.test:      [expr] parsing don't want spaces in parsed
        numbers.

        * generic/tclInt.h:     Added TCL_PARSE_NO_WHITESPACE flag to the
        * generic/tclStrToD.c:  TclParseNumber() interface.

1 files changed, 8 insertions, 2 deletions

diff --git a/tests/scan.test b/tests/scan.test
index 97c6d04..5bc986c 100644
--- a/tests/scan.test
+++ b/tests/scan.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: scan.test,v 1.18 2005/10/08 14:42:54 dgp Exp $
+# RCS: @(#) $Id: scan.test,v 1.19 2005/12/19 19:03:17 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -606,6 +606,12 @@ test scan-10.5 {miscellaneous tests} {
     set arr(2) {}
     list [catch {scan ab%c14 ab%%c%d arr(2)} msg] $msg $arr(2)
 } {0 1 14}
+test scan-10.6 {miscellaneous tests} {
+    scan 5a {%i%[a]}
+} {5 a}
+test scan-10.7 {miscellaneous tests} {
+    scan {5 a} {%i%[a]}
+} {5 {}}
 
 test scan-11.1 {alignment in results array (TCL_ALIGN)} {
     scan "123 13.6" "%s %f" a b
@@ -758,4 +764,4 @@ return
 
 # Local Variables:
 # mode: tcl
-# End:
\ No newline at end of file
+# End: