Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: downloads/tcl8.5.2/tests/util.test @ 31

Last change on this file since 31 was 25, checked in by landauf, 18 years ago

added tcl to libs
File size: 36.4 KB
Line 
1# This file is a Tcl script to test the code in the file tclUtil.c.
2# This file is organized in the standard fashion for Tcl tests.
3#
4# Copyright (c) 1995-1998 Sun Microsystems, Inc.
5# Copyright (c) 1998-1999 by Scriptics Corporation.
6#
7# See the file "license.terms" for information on usage and redistribution
8# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
9#
10# RCS: @(#) $Id: util.test,v 1.18 2006/03/21 11:12:29 dkf Exp $
11
12if {[lsearch [namespace children] ::tcltest] == -1} {
13    package require tcltest
14    namespace import -force ::tcltest::*
15}
16
17testConstraint testdstring [llength [info commands testdstring]]
18
19# Big test for correct ordering of data in [expr]
20
21proc testIEEE {} {
22    variable ieeeValues
23    binary scan [binary format dd -1.0 1.0] c* c
24    switch -exact -- $c {
25        {0 0 0 0 0 0 -16 -65 0 0 0 0 0 0 -16 63} {
26            # little endian
27            binary scan \x00\x00\x00\x00\x00\x00\xf0\xff d \
28                ieeeValues(-Infinity)
29            binary scan \x00\x00\x00\x00\x00\x00\xf0\xbf d \
30                ieeeValues(-Normal)
31            binary scan \x00\x00\x00\x00\x00\x00\x08\x80 d \
32                ieeeValues(-Subnormal)
33            binary scan \x00\x00\x00\x00\x00\x00\x00\x80 d \
34                ieeeValues(-0)
35            binary scan \x00\x00\x00\x00\x00\x00\x00\x00 d \
36                ieeeValues(+0)
37            binary scan \x00\x00\x00\x00\x00\x00\x08\x00 d \
38                ieeeValues(+Subnormal)
39            binary scan \x00\x00\x00\x00\x00\x00\xf0\x3f d \
40                ieeeValues(+Normal)
41            binary scan \x00\x00\x00\x00\x00\x00\xf0\x7f d \
42                ieeeValues(+Infinity)
43            binary scan \x00\x00\x00\x00\x00\x00\xf8\x7f d \
44                ieeeValues(NaN)
45            set ieeeValues(littleEndian) 1
46            return 1
47        }
48        {-65 -16 0 0 0 0 0 0 63 -16 0 0 0 0 0 0} {
49            binary scan \xff\xf0\x00\x00\x00\x00\x00\x00 d \
50                ieeeValues(-Infinity)
51            binary scan \xbf\xf0\x00\x00\x00\x00\x00\x00 d \
52                ieeeValues(-Normal)
53            binary scan \x80\x08\x00\x00\x00\x00\x00\x00 d \
54                ieeeValues(-Subnormal)
55            binary scan \x80\x00\x00\x00\x00\x00\x00\x00 d \
56                ieeeValues(-0)
57            binary scan \x00\x00\x00\x00\x00\x00\x00\x00 d \
58                ieeeValues(+0)
59            binary scan \x00\x08\x00\x00\x00\x00\x00\x00 d \
60                ieeeValues(+Subnormal)
61            binary scan \x3f\xf0\x00\x00\x00\x00\x00\x00 d \
62                ieeeValues(+Normal)
63            binary scan \x7f\xf0\x00\x00\x00\x00\x00\x00 d \
64                ieeeValues(+Infinity)
65            binary scan \x7f\xf8\x00\x00\x00\x00\x00\x00 d \
66                ieeeValues(NaN)
67            set ieeeValues(littleEndian) 0
68            return 1
69        }
70        default {
71            return 0
72        }
73    }
74}
75testConstraint ieeeFloatingPoint [testIEEE]
76
77proc convertDouble { x } {
78    variable ieeeValues
79    if { $ieeeValues(littleEndian) } {
80        binary scan [binary format w $x] d result
81    } else {
82        binary scan [binary format W $x] d result
83    }
84    return $result
85}
86
87
88test util-1.1 {TclFindElement procedure - binary element in middle of list} {
89    lindex {0 foo\x00help 1} 1
90} "foo\x00help"
91test util-1.2 {TclFindElement procedure - binary element at end of list} {
92    lindex {0 foo\x00help} 1
93} "foo\x00help"
94
95test util-2.1 {TclCopyAndCollapse procedure - normal string} {
96    lindex {0 foo} 1
97} {foo}
98test util-2.2 {TclCopyAndCollapse procedure - string with backslashes} {
99    lindex {0 foo\n\x00help 1} 1
100} "foo\n\x00help"
101
102test util-3.1 {Tcl_ScanCountedElement procedure - don't leave unmatched braces} {
103    # This test checks for a very tricky feature.  Any list element
104    # generated with Tcl_ScanCountedElement and Tcl_ConvertElement must
105    # have the property that it can be enclosing in curly braces to make
106    # an embedded sub-list.  If this property doesn't hold, then
107    # Tcl_DStringStartSublist doesn't work.
108    set x {}
109    lappend x "# \\\{ \\"
110    concat $x [llength "{$x}"]
111} {\#\ \\\{\ \\ 1}
112test util-3.2 {Tcl_ConverCountedElement procedure - quote leading '#'} {
113    list # # a
114} {{#} # a}
115test util-3.3 {Tcl_ConverCountedElement procedure - quote leading '#'} {
116    list #\{ # a
117} {\#\{ # a}
118test util-3.4 {Tcl_ConverCountedElement procedure - quote leading '#'} {
119    proc # {} {return #}
120    set result [eval [list #]]
121    rename # {}
122    set result
123} {#}
124test util-3.4.1 {Tcl_ConverCountedElement procedure - quote leading '#'} {
125    proc # {} {return #}
126    set cmd [list #]
127    append cmd ""       ;# force string rep generation
128    set result [eval $cmd]
129    rename # {}
130    set result
131} {#}
132test util-3.5 {Tcl_ConverCountedElement procedure - quote leading '#'} {
133    proc #\{ {} {return #}
134    set result [eval [list #\{]]
135    rename #\{ {}
136    set result
137} {#}
138test util-3.5.1 {Tcl_ConverCountedElement procedure - quote leading '#'} {
139    proc #\{ {} {return #}
140    set cmd [list #\{]
141    append cmd ""       ;# force string rep generation
142    set result [eval $cmd]
143    rename #\{ {}
144    set result
145} {#}
146
147test util-4.1 {Tcl_ConcatObj - backslash-space at end of argument} {
148    concat a {b\ } c
149} {a b\  c}
150test util-4.2 {Tcl_ConcatObj - backslash-space at end of argument} {
151    concat a {b\   } c
152} {a b\  c}
153test util-4.3 {Tcl_ConcatObj - backslash-space at end of argument} {
154    concat a {b\\   } c
155} {a b\\  c}
156test util-4.4 {Tcl_ConcatObj - backslash-space at end of argument} {
157    concat a {b } c
158} {a b c}
159test util-4.5 {Tcl_ConcatObj - backslash-space at end of argument} {
160    concat a { } c
161} {a c}
162test util-4.6 {Tcl_ConcatObj - utf-8 sequence with "whitespace" char} {
163    # Check for Bug #227512.  If this violates C isspace, then it returns \xc3.
164    concat \xe0
165} \xe0
166
167proc Wrapper_Tcl_StringMatch {pattern string} {
168    # Forces use of Tcl_StringMatch, not Tcl_UniCharCaseMatch
169    switch -glob -- $string $pattern {return 1} default {return 0}
170}
171test util-5.1 {Tcl_StringMatch} {
172    Wrapper_Tcl_StringMatch ab*c abc
173} 1
174test util-5.2 {Tcl_StringMatch} {
175    Wrapper_Tcl_StringMatch ab**c abc
176} 1
177test util-5.3 {Tcl_StringMatch} {
178    Wrapper_Tcl_StringMatch ab* abcdef
179} 1
180test util-5.4 {Tcl_StringMatch} {
181    Wrapper_Tcl_StringMatch *c abc
182} 1
183test util-5.5 {Tcl_StringMatch} {
184    Wrapper_Tcl_StringMatch *3*6*9 0123456789
185} 1
186test util-5.6 {Tcl_StringMatch} {
187    Wrapper_Tcl_StringMatch *3*6*9 01234567890
188} 0
189test util-5.7 {Tcl_StringMatch: UTF-8} {
190    Wrapper_Tcl_StringMatch *u \u4e4fu
191} 1
192test util-5.8 {Tcl_StringMatch} {
193    Wrapper_Tcl_StringMatch a?c abc
194} 1
195test util-5.9 {Tcl_StringMatch: UTF-8} {
196    # skip one character in string
197    Wrapper_Tcl_StringMatch a?c a\u4e4fc
198} 1
199test util-5.10 {Tcl_StringMatch} {
200    Wrapper_Tcl_StringMatch a??c abc
201} 0
202test util-5.11 {Tcl_StringMatch} {
203    Wrapper_Tcl_StringMatch ?1??4???8? 0123456789
204} 1
205test util-5.12 {Tcl_StringMatch} {
206    Wrapper_Tcl_StringMatch {[abc]bc} abc
207} 1
208test util-5.13 {Tcl_StringMatch: UTF-8} {
209    # string += Tcl_UtfToUniChar(string, &ch);
210    Wrapper_Tcl_StringMatch "\[\u4e4fxy\]bc" "\u4e4fbc"
211} 1
212test util-5.14 {Tcl_StringMatch} {
213    # if ((*pattern == ']') || (*pattern == '\0'))
214    # badly formed pattern
215    Wrapper_Tcl_StringMatch {[]} {[]}
216} 0
217test util-5.15 {Tcl_StringMatch} {
218    # if ((*pattern == ']') || (*pattern == '\0'))
219    # badly formed pattern
220    Wrapper_Tcl_StringMatch {[} {[}
221} 0
222test util-5.16 {Tcl_StringMatch} {
223    Wrapper_Tcl_StringMatch {a[abc]c} abc
224} 1
225test util-5.17 {Tcl_StringMatch: UTF-8} {
226    # pattern += Tcl_UtfToUniChar(pattern, &endChar);
227    # get 1 UTF-8 character
228    Wrapper_Tcl_StringMatch "a\[a\u4e4fc]c" "a\u4e4fc"
229} 1
230test util-5.18 {Tcl_StringMatch: UTF-8} {
231    # pattern += Tcl_UtfToUniChar(pattern, &endChar);
232    # proper advance: wrong answer would match on UTF trail byte of \u4e4f
233    Wrapper_Tcl_StringMatch {a[a\u4e4fc]c} [bytestring a\u008fc]
234} 0
235test util-5.19 {Tcl_StringMatch: UTF-8} {
236    # pattern += Tcl_UtfToUniChar(pattern, &endChar);
237    # proper advance.
238    Wrapper_Tcl_StringMatch {a[a\u4e4fc]c} "acc"
239} 1
240test util-5.20 {Tcl_StringMatch} {
241    Wrapper_Tcl_StringMatch {a[xyz]c} abc
242} 0
243test util-5.21 {Tcl_StringMatch} {
244    Wrapper_Tcl_StringMatch {12[2-7]45} 12345
245} 1
246test util-5.22 {Tcl_StringMatch: UTF-8 range} {
247    Wrapper_Tcl_StringMatch "\[\u4e00-\u4e4f]" "0"
248} 0
249test util-5.23 {Tcl_StringMatch: UTF-8 range} {
250    Wrapper_Tcl_StringMatch "\[\u4e00-\u4e4f]" "\u4e33"
251} 1
252test util-5.24 {Tcl_StringMatch: UTF-8 range} {
253    Wrapper_Tcl_StringMatch "\[\u4e00-\u4e4f]" "\uff08"
254} 0
255test util-5.25 {Tcl_StringMatch} {
256    Wrapper_Tcl_StringMatch {12[ab2-4cd]45} 12345
257} 1
258test util-5.26 {Tcl_StringMatch} {
259    Wrapper_Tcl_StringMatch {12[ab2-4cd]45} 12b45
260} 1
261test util-5.27 {Tcl_StringMatch} {
262    Wrapper_Tcl_StringMatch {12[ab2-4cd]45} 12d45
263} 1
264test util-5.28 {Tcl_StringMatch} {
265    Wrapper_Tcl_StringMatch {12[ab2-4cd]45} 12145
266} 0
267test util-5.29 {Tcl_StringMatch} {
268    Wrapper_Tcl_StringMatch {12[ab2-4cd]45} 12545
269} 0
270test util-5.30 {Tcl_StringMatch: forwards range} {
271    Wrapper_Tcl_StringMatch {[k-w]} "z"
272} 0
273test util-5.31 {Tcl_StringMatch: forwards range} {
274    Wrapper_Tcl_StringMatch {[k-w]} "w"
275} 1
276test util-5.32 {Tcl_StringMatch: forwards range} {
277    Wrapper_Tcl_StringMatch {[k-w]} "r"
278} 1
279test util-5.33 {Tcl_StringMatch: forwards range} {
280    Wrapper_Tcl_StringMatch {[k-w]} "k"
281} 1
282test util-5.34 {Tcl_StringMatch: forwards range} {
283    Wrapper_Tcl_StringMatch {[k-w]} "a"
284} 0
285test util-5.35 {Tcl_StringMatch: reverse range} {
286    Wrapper_Tcl_StringMatch {[w-k]} "z"
287} 0
288test util-5.36 {Tcl_StringMatch: reverse range} {
289    Wrapper_Tcl_StringMatch {[w-k]} "w"
290} 1
291test util-5.37 {Tcl_StringMatch: reverse range} {
292    Wrapper_Tcl_StringMatch {[w-k]} "r"
293} 1
294test util-5.38 {Tcl_StringMatch: reverse range} {
295    Wrapper_Tcl_StringMatch {[w-k]} "k"
296} 1
297test util-5.39 {Tcl_StringMatch: reverse range} {
298    Wrapper_Tcl_StringMatch {[w-k]} "a"
299} 0
300test util-5.40 {Tcl_StringMatch: skip correct number of ']'} {
301    Wrapper_Tcl_StringMatch {[A-]x} Ax
302} 0
303test util-5.41 {Tcl_StringMatch: skip correct number of ']'} {
304    Wrapper_Tcl_StringMatch {[A-]]x} Ax
305} 1
306test util-5.42 {Tcl_StringMatch: skip correct number of ']'} {
307    Wrapper_Tcl_StringMatch {[A-]]x} \ue1x
308} 0
309test util-5.43 {Tcl_StringMatch: skip correct number of ']'} {
310    Wrapper_Tcl_StringMatch \[A-]\ue1]x \ue1x
311} 1
312test util-5.44 {Tcl_StringMatch: skip correct number of ']'} {
313    Wrapper_Tcl_StringMatch {[A-]h]x} hx
314} 1
315test util-5.45 {Tcl_StringMatch} {
316    # if (*pattern == '\0')
317    # badly formed pattern, still treats as a set
318    Wrapper_Tcl_StringMatch {[a} a
319} 1
320test util-5.46 {Tcl_StringMatch} {
321    Wrapper_Tcl_StringMatch {a\*b} a*b
322} 1
323test util-5.47 {Tcl_StringMatch} {
324    Wrapper_Tcl_StringMatch {a\*b} ab
325} 0
326test util-5.48 {Tcl_StringMatch} {
327    Wrapper_Tcl_StringMatch {a\*\?\[\]\\\x} "a*?\[\]\\x"
328} 1
329test util-5.49 {Tcl_StringMatch} {
330    Wrapper_Tcl_StringMatch ** ""
331} 1
332test util-5.50 {Tcl_StringMatch} {
333    Wrapper_Tcl_StringMatch *. ""
334} 0
335test util-5.51 {Tcl_StringMatch} {
336    Wrapper_Tcl_StringMatch "" ""
337} 1
338
339test util-6.1 {Tcl_PrintDouble - using tcl_precision} -setup {
340    set old_precision $::tcl_precision
341    set ::tcl_precision 12
342} -body {
343    concat x[expr 1.4]
344} -cleanup {
345    set ::tcl_precision $old_precision
346} -result {x1.4}
347test util-6.2 {Tcl_PrintDouble - using tcl_precision} -setup {
348    set old_precision $::tcl_precision
349    set ::tcl_precision 12
350} -body {
351    concat x[expr 1.39999999999]
352} -cleanup {
353    set ::tcl_precision $old_precision
354} -result {x1.39999999999}
355test util-6.3 {Tcl_PrintDouble - using tcl_precision} -setup {
356    set old_precision $::tcl_precision
357    set ::tcl_precision 12
358} -body {
359    concat x[expr 1.399999999999]
360} -cleanup {
361    set ::tcl_precision $old_precision
362} -result {x1.4}
363test util-6.4 {Tcl_PrintDouble - using tcl_precision} -setup {
364    set old_precision $::tcl_precision
365    set ::tcl_precision 5
366} -body {
367    concat x[expr 1.123412341234]
368} -cleanup {
369    set tcl_precision $old_precision
370} -result {x1.1234}
371test util-6.5 {Tcl_PrintDouble - make sure there's a decimal point} {
372    concat x[expr 2.0]
373} {x2.0}
374test util-6.6 {Tcl_PrintDouble - make sure there's a decimal point} {
375    concat x[expr 3.0e98]
376} {x3e+98}
377
378test util-7.1 {TclPrecTraceProc - unset callbacks} -setup {
379    set old_precision $::tcl_precision
380} -body {
381    set tcl_precision 7
382    set x $tcl_precision
383    unset tcl_precision
384    list $x $tcl_precision
385} -cleanup {
386    set ::tcl_precision $old_precision
387} -result {7 7}
388test util-7.2 {TclPrecTraceProc - read traces, sharing among interpreters}  -setup {
389    set old_precision $::tcl_precision
390} -body {
391    set tcl_precision 12
392    interp create child
393    set x [child eval set tcl_precision]
394    child eval {set tcl_precision 6}
395    interp delete child
396    list $x $tcl_precision
397} -cleanup {
398    set ::tcl_precision $old_precision
399} -result {12 6}
400test util-7.3 {TclPrecTraceProc - write traces, safe interpreters} -setup {
401    set old_precision $::tcl_precision
402} -body {
403    set tcl_precision 12
404    interp create -safe child
405    set x [child eval {
406        list [catch {set tcl_precision 8} msg] $msg
407    }]
408    interp delete child
409    list $x $tcl_precision
410} -cleanup {
411    set ::tcl_precision $old_precision
412} -result {{1 {can't set "tcl_precision": can't modify precision from a safe interpreter}} 12}
413test util-7.4 {TclPrecTraceProc - write traces, bogus values} -setup {
414    set old_precision $::tcl_precision
415} -body {
416    set tcl_precision 12
417    list [catch {set tcl_precision abc} msg] $msg $tcl_precision
418} -cleanup {
419    set ::tcl_precision $old_precision
420} -result {1 {can't set "tcl_precision": improper value for precision} 12}
421
422# This test always succeeded in the C locale anyway...
423test util-8.1 {TclNeedSpace - correct UTF8 handling} {
424    # Bug 411825
425    # Note that this test relies on the fact that
426    # [interp target] calls on Tcl_AppendElement()
427    # which calls on TclNeedSpace().  If [interp target]
428    # is ever updated, this test will no longer test
429    # TclNeedSpace.
430    interp create \u5420
431    interp create [list \u5420 foo]
432    interp alias {} fooset [list \u5420 foo] set
433    set result [interp target {} fooset]
434    interp delete \u5420
435    set result
436} "\u5420 foo"
437test util-8.2 {TclNeedSpace - correct UTF8 handling} testdstring {
438    # Bug 411825
439    # This tests the same bug as the previous test, but
440    # should be more future-proof, as the DString
441    # operations will likely continue to call TclNeedSpace
442    testdstring free
443    testdstring append \u5420 -1
444    testdstring element foo
445    llength [testdstring get]
446} 2
447test util-8.3 {TclNeedSpace - correct UTF8 handling} testdstring {
448    # Bug 411825 - new variant reported by Dossy Shiobara
449    testdstring free
450    testdstring append \u00A0 -1
451    testdstring element foo
452    llength [testdstring get]
453} 2
454test util-8.4 {TclNeedSpace - correct UTF8 handling} testdstring {
455    # Another bug uncovered while fixing 411825
456    testdstring free
457    testdstring append {\ } -1
458    testdstring append \{ -1
459    testdstring element foo
460    llength [testdstring get]
461} 2
462test util-8.5 {TclNeedSpace - correct UTF8 handling} testdstring {
463    # Note that in this test TclNeedSpace actually gets it wrong,
464    # claiming we need a space when we really do not.  Extra space
465    # between list elements is harmless though, and better to have
466    # extra space in really weird string reps of lists, than to
467    # invest the effort required to make TclNeedSpace foolproof.
468    testdstring free
469    testdstring append {\\ } -1
470    testdstring element foo
471    list [llength [testdstring get]] [string length [testdstring get]]
472} {2 7}
473test util-8.6 {TclNeedSpace - correct UTF8 handling} testdstring {
474    # Another example of TclNeedSpace harmlessly getting it wrong.
475    testdstring free
476    testdstring append {\\ } -1
477    testdstring append \{ -1
478    testdstring element foo
479    testdstring append \} -1
480    list [llength [testdstring get]] [string length [testdstring get]]
481} {2 9}
482
483test util-9.0.0 {TclGetIntForIndex} {
484    string index abcd 0
485} a
486test util-9.0.1 {TclGetIntForIndex} {
487    string index abcd 0x0
488} a
489test util-9.0.2 {TclGetIntForIndex} {
490    string index abcd -0x0
491} a
492test util-9.0.3 {TclGetIntForIndex} {
493    string index abcd { 0 }
494} a
495test util-9.0.4 {TclGetIntForIndex} {
496    string index abcd { 0x0 }
497} a
498test util-9.0.5 {TclGetIntForIndex} {
499    string index abcd { -0x0 }
500} a
501test util-9.0.6 {TclGetIntForIndex} {
502    string index abcd 01
503} b
504test util-9.0.7 {TclGetIntForIndex} {
505    string index abcd { 01 }
506} b
507test util-9.1.0 {TclGetIntForIndex} {
508    string index abcd 3
509} d
510test util-9.1.1 {TclGetIntForIndex} {
511    string index abcd { 3 }
512} d
513test util-9.1.2 {TclGetIntForIndex} {
514    string index abcdefghijk 0xa
515} k
516test util-9.1.3 {TclGetIntForIndex} {
517    string index abcdefghijk { 0xa }
518} k
519test util-9.2.0 {TclGetIntForIndex} {
520    string index abcd end
521} d
522test util-9.2.1 {TclGetIntForIndex} -body {
523    string index abcd { end}
524} -returnCodes error -match glob -result *
525test util-9.2.2 {TclGetIntForIndex} -body {
526    string index abcd {end }
527} -returnCodes error -match glob -result *
528test util-9.3 {TclGetIntForIndex} {
529    # Deprecated
530    string index abcd en
531} d
532test util-9.4 {TclGetIntForIndex} {
533    # Deprecated
534    string index abcd e
535} d
536test util-9.5.0 {TclGetIntForIndex} {
537    string index abcd end-1
538} c
539test util-9.5.1 {TclGetIntForIndex} {
540    string index abcd {end-1 }
541} c
542test util-9.5.2 {TclGetIntForIndex} -body {
543    string index abcd { end-1}
544} -returnCodes error -match glob -result *
545test util-9.6 {TclGetIntForIndex} {
546    string index abcd end+-1
547} c
548test util-9.7 {TclGetIntForIndex} {
549    string index abcd end+1
550} {}
551test util-9.8 {TclGetIntForIndex} {
552    string index abcd end--1
553} {}
554test util-9.9.0 {TclGetIntForIndex} {
555    string index abcd 0+0
556} a
557test util-9.9.1 {TclGetIntForIndex} {
558    string index abcd { 0+0 }
559} a
560test util-9.10 {TclGetIntForIndex} {
561    string index abcd 0-0
562} a
563test util-9.11 {TclGetIntForIndex} {
564    string index abcd 1+0
565} b
566test util-9.12 {TclGetIntForIndex} {
567    string index abcd 1-0
568} b
569test util-9.13 {TclGetIntForIndex} {
570    string index abcd 1+1
571} c
572test util-9.14 {TclGetIntForIndex} {
573    string index abcd 1-1
574} a
575test util-9.15 {TclGetIntForIndex} {
576    string index abcd -1+2
577} b
578test util-9.16 {TclGetIntForIndex} {
579    string index abcd -1--2
580} b
581test util-9.17 {TclGetIntForIndex} {
582    string index abcd { -1+2 }
583} b
584test util-9.18 {TclGetIntForIndex} {
585    string index abcd { -1--2 }
586} b
587test util-9.19 {TclGetIntForIndex} -body {
588    string index a {}
589} -returnCodes error -match glob -result *
590test util-9.20 {TclGetIntForIndex} -body {
591    string index a { }
592} -returnCodes error -match glob -result *
593test util-9.21 {TclGetIntForIndex} -body {
594    string index a " \r\t\n"
595} -returnCodes error -match glob -result *
596test util-9.22 {TclGetIntForIndex} -body {
597    string index a +
598} -returnCodes error -match glob -result *
599test util-9.23 {TclGetIntForIndex} -body {
600    string index a -
601} -returnCodes error -match glob -result *
602test util-9.24 {TclGetIntForIndex} -body {
603    string index a x
604} -returnCodes error -match glob -result *
605test util-9.25 {TclGetIntForIndex} -body {
606    string index a +x
607} -returnCodes error -match glob -result *
608test util-9.26 {TclGetIntForIndex} -body {
609    string index a -x
610} -returnCodes error -match glob -result *
611test util-9.27 {TclGetIntForIndex} -body {
612    string index a 0y
613} -returnCodes error -match glob -result *
614test util-9.28 {TclGetIntForIndex} -body {
615    string index a 1*
616} -returnCodes error -match glob -result *
617test util-9.29 {TclGetIntForIndex} -body {
618    string index a 0+
619} -returnCodes error -match glob -result *
620test util-9.30 {TclGetIntForIndex} -body {
621    string index a {0+ }
622} -returnCodes error -match glob -result *
623test util-9.31 {TclGetIntForIndex} -body {
624    string index a 0x
625} -returnCodes error -match glob -result *
626test util-9.32 {TclGetIntForIndex} -body {
627    string index a 0x1FFFFFFFF+0
628} -returnCodes error -match glob -result *
629test util-9.33 {TclGetIntForIndex} -body {
630    string index a 100000000000+0
631} -returnCodes error -match glob -result *
632test util-9.34 {TclGetIntForIndex} -body {
633    string index a 1.0
634} -returnCodes error -match glob -result *
635test util-9.35 {TclGetIntForIndex} -body {
636    string index a 1e23
637} -returnCodes error -match glob -result *
638test util-9.36 {TclGetIntForIndex} -body {
639    string index a 1.5e2
640} -returnCodes error -match glob -result *
641test util-9.37 {TclGetIntForIndex} -body {
642    string index a 0+x
643} -returnCodes error -match glob -result *
644test util-9.38 {TclGetIntForIndex} -body {
645    string index a 0+0x
646} -returnCodes error -match glob -result *
647test util-9.39 {TclGetIntForIndex} -body {
648    string index a 0+0xg
649} -returnCodes error -match glob -result *
650test util-9.40 {TclGetIntForIndex} -body {
651    string index a 0+0xg
652} -returnCodes error -match glob -result *
653test util-9.41 {TclGetIntForIndex} -body {
654    string index a 0+1.0
655} -returnCodes error -match glob -result *
656test util-9.42 {TclGetIntForIndex} -body {
657    string index a 0+1e2
658} -returnCodes error -match glob -result *
659test util-9.43 {TclGetIntForIndex} -body {
660    string index a 0+1.5e1
661} -returnCodes error -match glob -result *
662test util-9.44 {TclGetIntForIndex} -body {
663    string index a 0+1000000000000
664} -returnCodes error -match glob -result *
665
666test util-10.1 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
667    convertDouble 0x0000000000000000
668} {0.0}
669test util-10.2 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
670    convertDouble 0x8000000000000000
671} {-0.0}
672test util-10.3 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
673    convertDouble 0x7ef754e31cd072da
674} {4e+303}
675test util-10.4 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
676    convertDouble 0xd08afcef51f0fb5f
677} {-1e+80}
678test util-10.5 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
679    convertDouble 0x7ed754e31cd072da
680} {1e+303}
681test util-10.6 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
682    convertDouble 0xfee754e31cd072da
683} {-2e+303}
684test util-10.7 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
685    convertDouble 0x0afe07b27dd78b14
686} {1e-255}
687test util-10.8 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
688    convertDouble 0x93ae29e9c56687fe
689} {-7e-214}
690test util-10.9 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
691    convertDouble 0x376be03d0bf225c7
692} {1e-41}
693test util-10.10 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
694    convertDouble 0xa0ca2fe76a3f9475
695} {-1e-150}
696test util-10.11 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
697    convertDouble 0x7fa9a2028368022e
698} {9e+306}
699test util-10.12 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
700    convertDouble 0xdfc317e5ef3ab327
701} {-2e+153}
702test util-10.13 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
703    convertDouble 0x5fd317e5ef3ab327
704} {4e+153}
705test util-10.14 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
706    convertDouble 0xdfe317e5ef3ab327
707} {-8e+153}
708test util-10.15 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
709    convertDouble 0x00feb8e84fa0b278
710} {7e-304}
711test util-10.16 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
712    convertDouble 0x8133339131c46f8b
713} {-7e-303}
714test util-10.17 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
715    convertDouble 0x35dc0f92a6276c9d
716} {3e-49}
717test util-10.18 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
718    convertDouble 0xa445ce1f143d7ad2
719} {-6e-134}
720test util-10.19 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
721    convertDouble 0x2d2c0794d9d40e96
722} {4.3e-91}
723test util-10.20 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
724    convertDouble 0xad3c0794d9d40e96
725} {-8.6e-91}
726test util-10.21 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
727    convertDouble 0x30ecd5bee57763e6
728} {5.1e-73}
729test util-10.22 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
730    convertDouble 0x68ad1c26db7d0dae
731} {1.7e+196}
732test util-10.23 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
733    convertDouble 0xbfa3f7ced916872b
734} {-0.039}
735test util-10.24 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
736    convertDouble 0x64b7d93193f78fc6
737} {1.51e+177}
738test util-10.25 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
739    convertDouble 0x98ea82a1631eeb30
740} {-1.19e-188}
741test util-10.26 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
742    convertDouble 0xd216c309024bab4b
743} {-2.83e+87}
744test util-10.27 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
745    convertDouble 0x0dfdbbac6f83a821
746} {2.7869147e-241}
747test util-10.28 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
748    convertDouble 0xdadc569e968e0944
749} {-4.91080654e+129}
750test util-10.29 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
751    convertDouble 0x5acc569e968e0944
752} {2.45540327e+129}
753test util-10.30 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
754    convertDouble 0xab5fc575867314ee
755} {-9.078555839e-100}
756test util-10.31 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
757    convertDouble 0xdabc569e968e0944
758} {-1.227701635e+129}
759test util-10.32 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
760    convertDouble 0x2b6fc575867314ee
761} {1.8157111678e-99}
762test util-10.33 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
763    convertDouble 0xb3b8bf7e7fa6f02a
764} {-1.5400733123779e-59}
765test util-10.34 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
766    convertDouble 0xcd83de005bd620df
767} {-2.6153245263757307e+65}
768test util-10.35 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
769    convertDouble 0x6cdf92bacb3cb40c
770} {2.7210404151224248e+216}
771test util-10.36 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
772    convertDouble 0xecef92bacb3cb40c
773} {-5.4420808302448496e+216}
774test util-10.37 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
775    convertDouble 0x49342dbf25096cf5
776} {4.5e+44}
777test util-10.38 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
778    convertDouble 0xd06afcef51f0fb5f
779} {-2.5e+79}
780test util-10.39 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
781    convertDouble 0x49002498ea6df0c4
782} {4.5e+43}
783test util-10.40 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
784    convertDouble 0xfeb754e31cd072da
785} {-2.5e+302}
786test util-10.41 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
787    convertDouble 0x1d22deac01e2b4f7
788} {2.5e-168}
789test util-10.42 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
790    convertDouble 0xaccb1df536c13eee
791} {-6.5e-93}
792test util-10.43 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
793    convertDouble 0x3650711fed5b19a4
794} {4.5e-47}
795test util-10.44 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
796    convertDouble 0xb6848d67e8b1e00d
797} {-4.5e-46}
798test util-10.45 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
799    convertDouble 0x4bac8c574c0c6be7
800} {3.5e+56}
801test util-10.46 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
802    convertDouble 0xccd756183c147514
803} {-1.5e+62}
804test util-10.47 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
805    convertDouble 0x4ca2ab469676c410
806} {1.5e+61}
807test util-10.48 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
808    convertDouble 0xcf5539684e774b48
809} {-1.5e+74}
810test util-10.49 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
811    convertDouble 0x2e12e5f5dfa4fe9d
812} {9.5e-87}
813test util-10.50 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
814    convertDouble 0x8b9bdc2417bf7787
815} {-9.5e-253}
816test util-10.51 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
817    convertDouble 0x00eeb8e84fa0b278
818} {3.5e-304}
819test util-10.52 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
820    convertDouble 0xadde3cbc9907fdc8
821} {-9.5e-88}
822test util-10.53 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
823    convertDouble 0x2bb0ad836f269a17
824} {3.05e-98}
825test util-10.54 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
826    convertDouble 0x950b39ae1909c31b
827} {-2.65e-207}
828test util-10.55 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
829    convertDouble 0x1bfb2ab18615fcc6
830} {6.865e-174}
831test util-10.56 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
832    convertDouble 0x98f3e1f90a573064
833} {-1.785e-188}
834test util-10.57 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
835    convertDouble 0x5206c309024bab4b
836} {1.415e+87}
837test util-10.58 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
838    convertDouble 0xcc059bd3ad46e346
839} {-1.6955e+58}
840test util-10.59 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
841    convertDouble 0x47bdf4170f0fdecc
842} {3.9815e+37}
843test util-10.60 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
844    convertDouble 0x59e7e1e0f1c7a4ac
845} {1.263005e+125}
846test util-10.61 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
847    convertDouble 0xda1dda592e398dd7
848} {-1.263005e+126}
849test util-10.62 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
850    convertDouble 0xdc4e597c0b94b7ae
851} {-4.4118455e+136}
852test util-10.63 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
853    convertDouble 0x5aac569e968e0944
854} {6.138508175e+128}
855test util-10.64 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
856    convertDouble 0xdabc569e968e0944
857} {-1.227701635e+129}
858test util-10.65 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
859    convertDouble 0x6ce7ae0c186d8709
860} {4.081560622683637e+216}
861test util-10.66 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
862    convertDouble 0x44b52d02c7e14af7
863} {1.0000000000000001e+23}
864test util-10.67 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
865    convertDouble 0xc589d971e4fe8402
866} {-1e+27}
867test util-10.68 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
868    convertDouble 0x4599d971e4fe8402
869} {2e+27}
870test util-10.69 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
871    convertDouble 0xc5a9d971e4fe8402
872} {-4e+27}
873test util-10.70 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
874    convertDouble 0x3e45798ee2308c3a
875} {1e-8}
876test util-10.71 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
877    convertDouble 0xbe55798ee2308c3a
878} {-2e-8}
879test util-10.72 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
880    convertDouble 0x3e65798ee2308c3a
881} {4e-8}
882test util-10.73 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
883    convertDouble 0xbabef2d0f5da7dd9
884} {-1e-25}
885test util-10.74 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
886    convertDouble 0x44da784379d99db4
887} {5e+23}
888test util-10.75 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
889    convertDouble 0xc4fa784379d99db4
890} {-2e+24}
891test util-10.76 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
892    convertDouble 0x4503da329b633647
893} {3e+24}
894test util-10.77 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
895    convertDouble 0xc54cf389cd46047d
896} {-7e+25}
897test util-10.78 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
898    convertDouble 0x3fc999999999999a
899} {0.2}
900test util-10.79 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
901    convertDouble 0xbfd3333333333333
902} {-0.3}
903test util-10.80 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
904    convertDouble 0x3cf6849b86a12b9b
905} {5e-15}
906test util-10.81 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
907    convertDouble 0xbd16849b86a12b9b
908} {-2e-14}
909test util-10.82 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
910    convertDouble 0x3b87ccfc73126788
911} {6.3e-22}
912test util-10.83 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
913    convertDouble 0xbbbdc03b8fd7016a
914} {-6.3e-21}
915test util-10.84 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
916    convertDouble 0x3fa3f7ced916872b
917} {0.039}
918test util-10.85 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
919    convertDouble 0x460b297cad9f70b6
920} {2.69e+29}
921test util-10.86 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
922    convertDouble 0xc61b297cad9f70b6
923} {-5.38e+29}
924test util-10.87 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
925    convertDouble 0x3adcdc06b20ef183
926} {3.73e-25}
927test util-10.88 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
928    convertDouble 0x45fb297cad9f70b6
929} {1.345e+29}
930test util-10.89 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
931    convertDouble 0xc60b297cad9f70b6
932} {-2.69e+29}
933test util-10.90 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
934    convertDouble 0xbc050a246ecd44f3
935} {-1.4257e-19}
936test util-10.91 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
937    convertDouble 0xbec19b96f36ec68b
938} {-2.09901e-6}
939test util-10.92 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
940    convertDouble 0x3dcc06d366394441
941} {5.0980203373e-11}
942test util-10.93 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
943    convertDouble 0xc79f58ac4db68c90
944} {-1.04166211811e+37}
945test util-10.94 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
946    convertDouble 0x4569d971e4fe8402
947} {2.5e+26}
948test util-10.95 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
949    convertDouble 0xc50dc74be914d16b
950} {-4.5e+24}
951test util-10.96 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
952    convertDouble 0x4534adf4b7320335
953} {2.5e+25}
954test util-10.97 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
955    convertDouble 0xc54ae22487c1042b
956} {-6.5e+25}
957test util-10.98 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
958    convertDouble 0x3c987fe49aab41e0
959} {8.5e-17}
960test util-10.99 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
961    convertDouble 0xbc2f5c05e4b23fd7
962} {-8.5e-19}
963test util-10.100 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
964    convertDouble 0x3d5faa7ab552a552
965} {4.5e-13}
966test util-10.101 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
967    convertDouble 0xbdbb7cdfd9d7bdbb
968} {-2.5e-11}
969test util-10.102 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
970    convertDouble 0x44f3da329b633647
971} {1.5e+24}
972test util-10.103 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
973    convertDouble 0xc53cf389cd46047d
974} {-3.5e+25}
975test util-10.104 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
976    convertDouble 0x454f04ef12cb04cf
977} {7.5e+25}
978test util-10.105 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
979    convertDouble 0xc55f04ef12cb04cf
980} {-1.5e+26}
981test util-10.106 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
982    convertDouble 0x3fc3333333333333
983} {0.15}
984test util-10.107 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
985    convertDouble 0xbdb07e1fe91b0b70
986} {-1.5e-11}
987test util-10.108 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
988    convertDouble 0x3de49da7e361ce4c
989} {1.5e-10}
990test util-10.109 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
991    convertDouble 0xbe19c511dc3a41df
992} {-1.5e-9}
993test util-10.110 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
994    convertDouble 0xc5caa83d74267822
995} {-1.65e+28}
996test util-10.111 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
997    convertDouble 0x4588f1d5969453de
998} {9.65e+26}
999test util-10.112 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1000    convertDouble 0x3b91d9bd564dcda6
1001} {9.45e-22}
1002test util-10.113 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1003    convertDouble 0xbcfa58973ecbede6
1004} {-5.85e-15}
1005test util-10.114 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1006    convertDouble 0x45eb297cad9f70b6
1007} {6.725e+28}
1008test util-10.115 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1009    convertDouble 0xc5fb297cad9f70b6
1010} {-1.345e+29}
1011test util-10.116 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1012    convertDouble 0x3accdc06b20ef183
1013} {1.865e-25}
1014test util-10.117 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1015    convertDouble 0xbd036071dcae4565
1016} {-8.605e-15}
1017test util-10.118 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1018    convertDouble 0x462cb968d297dde8
1019} {1.137885e+30}
1020test util-10.119 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1021    convertDouble 0xc661f3e1839eeab1
1022} {-1.137885e+31}
1023test util-10.120 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1024    convertDouble 0x474e9cec176c96f8
1025} {3.179033335e+35}
1026test util-10.121 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1027    convertDouble 0x3dbc06d366394441
1028} {2.54901016865e-11}
1029test util-10.122 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} {
1030    convertDouble 0x478f58ac4db68c90
1031} {5.20831059055e+36}
1032
1033test util-11.1 {Tcl_PrintDouble - scaling} {
1034    expr 1.1e-5
1035} {1.1e-5}
1036test util-11.2 {Tcl_PrintDouble - scaling} {
1037    expr 1.1e-4
1038} {0.00011}
1039test util-11.3 {Tcl_PrintDouble - scaling} {
1040    expr 1.1e-3
1041} {0.0011}
1042test util-11.4 {Tcl_PrintDouble - scaling} {
1043    expr 1.1e-2
1044} {0.011}
1045test util-11.5 {Tcl_PrintDouble - scaling} {
1046    expr 1.1e-1
1047} {0.11}
1048test util-11.6 {Tcl_PrintDouble - scaling} {
1049    expr 1.1e0
1050} {1.1}
1051test util-11.7 {Tcl_PrintDouble - scaling} {
1052    expr 1.1e1
1053} {11.0}
1054test util-11.8 {Tcl_PrintDouble - scaling} {
1055    expr 1.1e2
1056} {110.0}
1057test util-11.9 {Tcl_PrintDouble - scaling} {
1058    expr 1.1e3
1059} {1100.0}
1060test util-11.10 {Tcl_PrintDouble - scaling} {
1061    expr 1.1e4
1062} {11000.0}
1063test util-11.11 {Tcl_PrintDouble - scaling} {
1064    expr 1.1e5
1065} {110000.0}
1066test util-11.12 {Tcl_PrintDouble - scaling} {
1067    expr 1.1e6
1068} {1100000.0}
1069test util-11.13 {Tcl_PrintDouble - scaling} {
1070    expr 1.1e7
1071} {11000000.0}
1072test util-11.14 {Tcl_PrintDouble - scaling} {
1073    expr 1.1e8
1074} {110000000.0}
1075test util-11.15 {Tcl_PrintDouble - scaling} {
1076    expr 1.1e9
1077} {1100000000.0}
1078test util-11.16 {Tcl_PrintDouble - scaling} {
1079    expr 1.1e10
1080} {11000000000.0}
1081test util-11.17 {Tcl_PrintDouble - scaling} {
1082    expr 1.1e11
1083} {110000000000.0}
1084test util-11.18 {Tcl_PrintDouble - scaling} {
1085    expr 1.1e12
1086} {1100000000000.0}
1087test util-11.19 {Tcl_PrintDouble - scaling} {
1088    expr 1.1e13
1089} {11000000000000.0}
1090test util-11.20 {Tcl_PrintDouble - scaling} {
1091    expr 1.1e14
1092} {110000000000000.0}
1093test util-11.21 {Tcl_PrintDouble - scaling} {
1094    expr 1.1e15
1095} {1100000000000000.0}
1096test util-11.22 {Tcl_PrintDouble - scaling} {
1097    expr 1.1e16
1098} {11000000000000000.0}
1099test util-11.23 {Tcl_PrintDouble - scaling} {
1100    expr 1.1e17
1101} {1.1e+17}
1102
1103# cleanup
1104::tcltest::cleanupTests
1105return
Note: See TracBrowser for help on using the repository browser.