OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [tests/] [format.test] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom 
# Commands covered:  format
2 
#
3 
# This file contains a collection of tests for one or more of the Tcl
4 
# built-in commands.  Sourcing this file into Tcl runs the tests and
5 
# generates output for errors.  No output means no errors were found.
6 
#
7 
# Copyright (c) 1991-1994 The Regents of the University of California.
8 
# Copyright (c) 1994 Sun Microsystems, Inc.
9 
#
10 
# See the file "license.terms" for information on usage and redistribution
11 
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12 
#
13 
# RCS: @(#) $Id: format.test,v 1.1.1.1 2002-01-16 10:25:36 markom Exp $
14 
 
15 
if {[string compare test [info procs test]] == 1} then {source defs}
16 
 
17 
# The following code is needed because some versions of SCO Unix have
18 
# a round-off error in sprintf which would cause some of the tests to
19 
# fail.  Someday I hope this code shouldn't be necessary (code added
20 
# 9/9/91).
21 
 
22 
set roundOffBug 0
23 
if {"[format %7.1e  68.514]" == "6.8e+01"} {
24 
    puts stdout "Note: this system has a sprintf round-off bug, some tests skipped\n"
25 
    set roundOffBug 1
26 
}
27 
 
28 
test format-1.1 {integer formatting} {
29 
    format "%*d %d %d %d" 6 34 16923 -12 -1
30 
} {    34 16923 -12 -1}
31 
test format-1.2 {integer formatting} {nonPortable} {
32 
    format "%4d %4d %4d %4d %d %#x %#X" 6 34 16923 -12 -1 14 12
33 
} {   6   34 16923  -12 -1 0xe 0XC}
34 
 
35 
# %u output depends on word length, so this test is not portable.
36 
 
37 
test format-1.3 {integer formatting} {nonPortable} {
38 
    format "%4u %4u %4u %4u %d %#o" 6 34 16923 -12 -1 0
39 
} {   6   34 16923 4294967284 -1 0}
40 
test format-1.4 {integer formatting} {
41 
    format "%-4d %-4i %-4d %-4ld" 6 34 16923 -12 -1
42 
} {6    34   16923 -12 }
43 
test format-1.5 {integer formatting} {
44 
    format "%04d %04d %04d %04i" 6 34 16923 -12 -1
45 
} {0006 0034 16923 -012}
46 
test format-1.6 {integer formatting} {
47 
    format "%00*d" 6 34
48 
} {000034}
49 
 
50 
# Printing negative numbers in hex or octal format depends on word
51 
# length, so these tests are not portable.
52 
 
53 
test format-1.7 {integer formatting} {nonPortable} {
54 
    format "%4x %4x %4x %4x" 6 34 16923 -12 -1
55 
} {   6   22 421b fffffff4}
56 
test format-1.8 {integer formatting} {nonPortable} {
57 
    format "%#x %#X %#X %#x" 6 34 16923 -12 -1
58 
} {0x6 0X22 0X421B 0xfffffff4}
59 
test format-1.9 {integer formatting} {nonPortable} {
60 
    format "%#20x %#20x %#20x %#20x" 6 34 16923 -12 -1
61 
} {                 0x6                 0x22               0x421b           0xfffffff4}
62 
test format-1.10 {integer formatting} {nonPortable} {
63 
    format "%-#20x %-#20x %-#20x %-#20x" 6 34 16923 -12 -1
64 
} {0x6                  0x22                 0x421b               0xfffffff4          }
65 
test format-1.11 {integer formatting} {nonPortable} {
66 
    format "%-#20o %#-20o %#-20o %#-20o" 6 34 16923 -12 -1
67 
} {06                   042                  041033               037777777764        }
68 
 
69 
test format-2.1 {string formatting} {
70 
    format "%s %s %c %s" abcd {This is a very long test string.} 120 x
71 
} {abcd This is a very long test string. x x}
72 
test format-2.2 {string formatting} {
73 
    format "%20s %20s %20c %20s" abcd {This is a very long test string.} 120 x
74 
} {                abcd This is a very long test string.                    x                    x}
75 
test format-2.3 {string formatting} {
76 
    format "%.10s %.10s %c %.10s" abcd {This is a very long test string.} 120 x
77 
} {abcd This is a  x x}
78 
test format-2.4 {string formatting} {
79 
    format "%s %s %% %c %s" abcd {This is a very long test string.} 120 x
80 
} {abcd This is a very long test string. % x x}
81 
 
82 
test format-3.1 {e and f formats} {eformat} {
83 
    format "%e %e %e %e" 34.2e12 68.514 -.125 -16000. .000053
84 
} {3.420000e+13 6.851400e+01 -1.250000e-01 -1.600000e+04}
85 
test format-3.2 {e and f formats} {eformat} {
86 
    format "%20e %20e %20e %20e" 34.2e12 68.514 -.125 -16000. .000053
87 
} {        3.420000e+13         6.851400e+01        -1.250000e-01        -1.600000e+04}
88 
if {!$roundOffBug} {
89 
    test format-3.3 {e and f formats} {eformat} {
90 
        format "%.1e %.1e %.1e %.1e" 34.2e12 68.514 -.126 -16000. .000053
91 
    } {3.4e+13 6.9e+01 -1.3e-01 -1.6e+04}
92 
    test format-3.4 {e and f formats} {eformat} {
93 
        format "%020e %020e %020e %020e" 34.2e12 68.514 -.126 -16000. .000053
94 
    } {000000003.420000e+13 000000006.851400e+01 -00000001.260000e-01 -00000001.600000e+04}
95 
    test format-3.5 {e and f formats} {eformat} {
96 
        format "%7.1e %7.1e %7.1e %7.1e" 34.2e12 68.514 -.126 -16000. .000053
97 
    } {3.4e+13 6.9e+01 -1.3e-01 -1.6e+04}
98 
    test format-3.6 {e and f formats} {
99 
        format "%f %f %f %f" 34.2e12 68.514 -.125 -16000. .000053
100 
    } {34200000000000.000000 68.514000 -0.125000 -16000.000000}
101 
}
102 
test format-3.7 {e and f formats} {nonPortable} {
103 
    format "%.4f %.4f %.4f %.4f %.4f" 34.2e12 68.514 -.125 -16000. .000053
104 
} {34200000000000.0000 68.5140 -0.1250 -16000.0000 0.0001}
105 
test format-3.8 {e and f formats} {eformat} {
106 
    format "%.4e %.5e %.6e" -9.99996 -9.99996 9.99996
107 
} {-1.0000e+01 -9.99996e+00 9.999960e+00}
108 
test format-3.9 {e and f formats} {
109 
    format "%.4f %.5f %.6f" -9.99996 -9.99996 9.99996
110 
} {-10.0000 -9.99996 9.999960}
111 
test format-3.10 {e and f formats} {
112 
    format "%20f %-20f %020f" -9.99996 -9.99996 9.99996
113 
} {           -9.999960 -9.999960            0000000000009.999960}
114 
test format-3.11 {e and f formats} {
115 
    format "%-020f %020f" -9.99996 -9.99996 9.99996
116 
} {-9.999960            -000000000009.999960}
117 
test format-3.12 {e and f formats} {eformat} {
118 
    format "%.0e %#.0e" -9.99996 -9.99996 9.99996
119 
} {-1e+01 -1.e+01}
120 
test format-3.13 {e and f formats} {
121 
    format "%.0f %#.0f" -9.99996 -9.99996 9.99996
122 
} {-10 -10.}
123 
test format-3.14 {e and f formats} {
124 
    format "%.4f %.5f %.6f" -9.99996 -9.99996 9.99996
125 
} {-10.0000 -9.99996 9.999960}
126 
test format-3.15 {e and f formats} {
127 
    format "%3.0f %3.0f %3.0f %3.0f" 1.0 1.1 1.01 1.001
128 
} {  1   1   1   1}
129 
test format-3.16 {e and f formats} {
130 
    format "%3.1f %3.1f %3.1f %3.1f" 0.0 0.1 0.01 0.001
131 
} {0.0 0.1 0.0 0.0}
132 
 
133 
test format-4.1 {g-format} {eformat} {
134 
    format "%.3g" 12341.0
135 
} {1.23e+04}
136 
test format-4.2 {g-format} {eformat} {
137 
    format "%.3G" 1234.12345
138 
} {1.23E+03}
139 
test format-4.3 {g-format} {
140 
    format "%.3g" 123.412345
141 
} {123}
142 
test format-4.4 {g-format} {
143 
    format "%.3g" 12.3412345
144 
} {12.3}
145 
test format-4.5 {g-format} {
146 
    format "%.3g" 1.23412345
147 
} {1.23}
148 
test format-4.6 {g-format} {
149 
    format "%.3g" 1.23412345
150 
} {1.23}
151 
test format-4.7 {g-format} {
152 
    format "%.3g" .123412345
153 
} {0.123}
154 
test format-4.8 {g-format} {
155 
    format "%.3g" .012341
156 
} {0.0123}
157 
test format-4.9 {g-format} {
158 
    format "%.3g" .0012341
159 
} {0.00123}
160 
test format-4.10 {g-format} {
161 
    format "%.3g" .00012341
162 
} {0.000123}
163 
test format-4.11 {g-format} {eformat} {
164 
    format "%.3g" .00001234
165 
} {1.23e-05}
166 
test format-4.12 {g-format} {eformat} {
167 
    format "%.4g" 9999.6
168 
} {1e+04}
169 
test format-4.13 {g-format} {
170 
    format "%.4g" 999.96
171 
} {1000}
172 
test format-4.14 {g-format} {
173 
    format "%.3g" 1.0
174 
} {1}
175 
test format-4.15 {g-format} {
176 
    format "%.3g" .1
177 
} {0.1}
178 
test format-4.16 {g-format} {
179 
    format "%.3g" .01
180 
} {0.01}
181 
test format-4.17 {g-format} {
182 
    format "%.3g" .001
183 
} {0.001}
184 
test format-4.18 {g-format} {eformat} {
185 
    format "%.3g" .00001
186 
} {1e-05}
187 
test format-4.19 {g-format} {eformat} {
188 
    format "%#.3g" 1234.0
189 
} {1.23e+03}
190 
test format-4.20 {g-format} {eformat} {
191 
    format "%#.3G" 9999.5
192 
} {1.00E+04}
193 
 
194 
test format-5.1 {floating-point zeroes} {eformat} {
195 
    format "%e %f %g" 0.0 0.0 0.0 0.0
196 
} {0.000000e+00 0.000000 0}
197 
test format-5.2 {floating-point zeroes} {eformat} {
198 
    format "%.4e %.4f %.4g" 0.0 0.0 0.0 0.0
199 
} {0.0000e+00 0.0000 0}
200 
test format-5.3 {floating-point zeroes} {eformat} {
201 
    format "%#.4e %#.4f %#.4g" 0.0 0.0 0.0 0.0
202 
} {0.0000e+00 0.0000 0.000}
203 
test format-5.4 {floating-point zeroes} {eformat} {
204 
    format "%.0e %.0f %.0g" 0.0 0.0 0.0 0.0
205 
} {0e+00 0 0}
206 
test format-5.5 {floating-point zeroes} {eformat} {
207 
    format "%#.0e %#.0f %#.0g" 0.0 0.0 0.0 0.0
208 
} {0.e+00 0. 0.}
209 
test format-5.6 {floating-point zeroes} {
210 
    format "%3.0f %3.0f %3.0f %3.0f" 0.0 0.0 0.0 0.0
211 
} {  0   0   0   0}
212 
test format-5.7 {floating-point zeroes} {
213 
    format "%3.0f %3.0f %3.0f %3.0f" 1.0 1.1 1.01 1.001
214 
} {  1   1   1   1}
215 
test format-5.8 {floating-point zeroes} {
216 
    format "%3.1f %3.1f %3.1f %3.1f" 0.0 0.1 0.01 0.001
217 
} {0.0 0.1 0.0 0.0}
218 
 
219 
test format-6.1 {various syntax features} {
220 
    format "%*.*f" 12 3 12.345678901
221 
} {      12.346}
222 
test format-6.2 {various syntax features} {
223 
    format "%0*.*f" 12 3 12.345678901
224 
} {00000012.346}
225 
test format-6.3 {various syntax features} {
226 
    format "\*\t\\n"
227 
} {*    \n}
228 
 
229 
test format-7.1 {error conditions} {
230 
    catch format
231 
} 1
232 
test format-7.2 {error conditions} {
233 
    catch format msg
234 
    set msg
235 
} {wrong # args: should be "format formatString ?arg arg ...?"}
236 
test format-7.3 {error conditions} {
237 
    catch {format %*d}
238 
} 1
239 
test format-7.4 {error conditions} {
240 
    catch {format %*d} msg
241 
    set msg
242 
} {not enough arguments for all format specifiers}
243 
test format-7.5 {error conditions} {
244 
    catch {format %*.*f 12}
245 
} 1
246 
test format-7.6 {error conditions} {
247 
    catch {format %*.*f 12} msg
248 
    set msg
249 
} {not enough arguments for all format specifiers}
250 
test format-7.7 {error conditions} {
251 
    catch {format %*.*f 12 3}
252 
} 1
253 
test format-7.8 {error conditions} {
254 
    catch {format %*.*f 12 3} msg
255 
    set msg
256 
} {not enough arguments for all format specifiers}
257 
test format-7.9 {error conditions} {
258 
    list [catch {format %*d x 3} msg] $msg
259 
} {1 {expected integer but got "x"}}
260 
test format-7.10 {error conditions} {
261 
    list [catch {format %*.*f 2 xyz 3} msg] $msg
262 
} {1 {expected integer but got "xyz"}}
263 
test format-7.11 {error conditions} {
264 
    catch {format %d 2a}
265 
} 1
266 
test format-7.12 {error conditions} {
267 
    catch {format %d 2a} msg
268 
    set msg
269 
} {expected integer but got "2a"}
270 
test format-7.13 {error conditions} {
271 
    catch {format %c 2x}
272 
} 1
273 
test format-7.14 {error conditions} {
274 
    catch {format %c 2x} msg
275 
    set msg
276 
} {expected integer but got "2x"}
277 
test format-7.15 {error conditions} {
278 
    catch {format %f 2.1z}
279 
} 1
280 
test format-7.16 {error conditions} {
281 
    catch {format %f 2.1z} msg
282 
    set msg
283 
} {expected floating-point number but got "2.1z"}
284 
test format-7.17 {error conditions} {
285 
    catch {format ab%}
286 
} 1
287 
test format-7.18 {error conditions} {
288 
    catch {format ab% 12} msg
289 
    set msg
290 
} {format string ended in middle of field specifier}
291 
test format-7.19 {error conditions} {
292 
    catch {format %q x}
293 
} 1
294 
test format-7.20 {error conditions} {
295 
    catch {format %q x} msg
296 
    set msg
297 
} {bad field specifier "q"}
298 
test format-7.21 {error conditions} {
299 
    catch {format %d}
300 
} 1
301 
test format-7.22 {error conditions} {
302 
    catch {format %d} msg
303 
    set msg
304 
} {not enough arguments for all format specifiers}
305 
test format-7.23 {error conditions} {
306 
    catch {format "%d %d" 24 xyz} msg
307 
    set msg
308 
} {expected integer but got "xyz"}
309 
 
310 
test format-8.1 {long result} {
311 
    set a {1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ 1 2 3 4 5 6 7 8 9 0 a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z}
312 
    format {1111 2222 3333 4444 5555 6666 7777 8888 9999 aaaa bbbb cccc dddd eeee ffff gggg hhhh iiii jjjj kkkk llll mmmm nnnn oooo pppp qqqq rrrr ssss tttt uuuu vvvv wwww xxxx yyyy zzzz AAAA BBBB CCCC DDDD EEEE FFFF GGGG %s %s} $a $a
313 
} {1111 2222 3333 4444 5555 6666 7777 8888 9999 aaaa bbbb cccc dddd eeee ffff gggg hhhh iiii jjjj kkkk llll mmmm nnnn oooo pppp qqqq rrrr ssss tttt uuuu vvvv wwww xxxx yyyy zzzz AAAA BBBB CCCC DDDD EEEE FFFF GGGG 1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ 1 2 3 4 5 6 7 8 9 0 a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ 1 2 3 4 5 6 7 8 9 0 a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z}
314 
 
315 
test format-9.1 {"h" format specifier} {nonPortable} {
316 
    format %hd 0xffff
317 
} -1
318 
test format-9.2 {"h" format specifier} {nonPortable} {
319 
    format %hx 0x10fff
320 
} fff
321 
test format-9.3 {"h" format specifier} {nonPortable} {
322 
    format %hd 0x10000
323 
} 0
324 
 
325 
test format-10.1 {XPG3 %$n specifiers} {
326 
    format {%2$d %1$d} 4 5
327 
} {5 4}
328 
test format-10.2 {XPG3 %$n specifiers} {
329 
    format {%2$d %1$d %1$d %3$d} 4 5 6
330 
} {5 4 4 6}
331 
test format-10.3 {XPG3 %$n specifiers} {
332 
    list [catch {format {%2$d %3$d} 4 5} msg] $msg
333 
} {1 {"%n$" argument index out of range}}
334 
test format-10.4 {XPG3 %$n specifiers} {
335 
    list [catch {format {%2$d %0$d} 4 5 6} msg] $msg
336 
} {1 {"%n$" argument index out of range}}
337 
test format-10.5 {XPG3 %$n specifiers} {
338 
    list [catch {format {%d %1$d} 4 5 6} msg] $msg
339 
} {1 {cannot mix "%" and "%n$" conversion specifiers}}
340 
test format-10.6 {XPG3 %$n specifiers} {
341 
    list [catch {format {%2$d %d} 4 5 6} msg] $msg
342 
} {1 {cannot mix "%" and "%n$" conversion specifiers}}
343 
test format-10.7 {XPG3 %$n specifiers} {
344 
    list [catch {format {%2$d %3d} 4 5 6} msg] $msg
345 
} {1 {cannot mix "%" and "%n$" conversion specifiers}}
346 
test format-10.8 {XPG3 %$n specifiers} {
347 
    format {%2$*d %3$d} 1 10 4
348 
} {         4 4}
349 
test format-10.9 {XPG3 %$n specifiers} {
350 
    format {%2$.*s %4$d} 1 5 abcdefghijklmnop 44
351 
} {abcde 44}
352 
test format-10.10 {XPG3 %$n specifiers} {
353 
    list [catch {format {%2$*d} 4} msg] $msg
354 
} {1 {"%n$" argument index out of range}}
355 
test format-10.11 {XPG3 %$n specifiers} {
356 
    list [catch {format {%2$*d} 4 5} msg] $msg
357 
} {1 {"%n$" argument index out of range}}
358 
test format-10.12 {XPG3 %$n specifiers} {
359 
    list [catch {format {%2$*d} 4 5 6} msg] $msg
360 
} {0 {    6}}
361 
 
362 
test format-11.1 {negative width specifiers} {
363 
    format "%*d" -47 25
364 
} {25}
365 
test format-12.1 {tcl_precision fuzzy comparison} {
366 
    catch {unset a}
367 
    catch {unset b}
368 
    catch {unset c}
369 
    catch {unset d}
370 
    set a 0.0000000000001
371 
    set b 0.00000000000001
372 
    set c 0.00000000000000001
373 
    set d [expr $a + $b + $c]
374 
    format {%0.10f %0.12f %0.15f %0.17f} $d $d $d $d
375 
} {0.0000000000 0.000000000000 0.000000000000110 0.00000000000011001}
376 
test format-12.2 {tcl_precision fuzzy comparison} {
377 
    catch {unset a}
378 
    catch {unset b}
379 
    catch {unset c}
380 
    catch {unset d}
381 
    set a 0.000000000001
382 
    set b 0.000000000000005
383 
    set c 0.0000000000000008
384 
    set d [expr $a + $b + $c]
385 
    format {%0.10f %0.12f %0.15f %0.17f} $d $d $d $d
386 
} {0.0000000000 0.000000000001 0.000000000001006 0.00000000000100580}
387 
test format-12.3 {tcl_precision fuzzy comparison} {
388 
    catch {unset a}
389 
    catch {unset b}
390 
    catch {unset c}
391 
    set a 0.00000000000099
392 
    set b 0.000000000000011
393 
    set c [expr $a + $b]
394 
    format {%0.10f %0.12f %0.15f %0.17f} $c $c $c $c
395 
} {0.0000000000 0.000000000001 0.000000000001001 0.00000000000100100}
396 
test format-12.4 {tcl_precision fuzzy comparison} {
397 
    catch {unset a}
398 
    catch {unset b}
399 
    catch {unset c}
400 
    set a 0.444444444444
401 
    set b 0.33333333333333
402 
    set c [expr $a + $b]
403 
    format {%0.10f %0.12f %0.15f %0.16f} $c $c $c $c
404 
} {0.7777777778 0.777777777777 0.777777777777330 0.7777777777773300}
405 
test format-12.5 {tcl_precision fuzzy comparison} {
406 
    catch {unset a}
407 
    catch {unset b}
408 
    catch {unset c}
409 
    set a 0.444444444444
410 
    set b 0.99999999999999
411 
    set c [expr $a + $b]
412 
    format {%0.10f %0.12f %0.15f} $c $c $c
413 
} {1.4444444444 1.444444444444 1.444444444443990}
414 
test format-13.1 {testing MAX_FLOAT_SIZE for 0 and 1} {
415 
    format {%s} ""
416 
} {}
417 
test format-13.2 {testing MAX_FLOAT_SIZE for 0 and 1} {
418 
    format {%s} "a"
419 
} {a}
420 
 
421 
set a "0123456789"
422 
set b ""
423 
for {set i 0} {$i < 290} {incr i} {
424 
    append b $a
425 
}
426 
for {set i 290} {$i < 400} {incr i} {
427 
    test format-14.[expr $i -290] {testing MAX_FLOAT_SIZE} {
428 
        format {%s} $b
429 
    } $b
430 
    append b "x"
431 
}
432 
 
433 
 
434 
catch {unset a}
435 
catch {unset b}
436 
catch {unset c}
437 
catch {unset d}
438 
return

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.