开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
format.test
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：19k
源码类别：

通讯编程

开发平台：

Visual C++

format.test：源码内容
  1. # 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-1998 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.11.2.8 2005/10/13 21:45:32 dkf Exp $
  15. if {[lsearch [namespace children] ::tcltest] == -1} {
  16.     package require tcltest 2
  17.     namespace import -force ::tcltest::*
  18. }
  20. # The following code is needed because some versions of SCO Unix have
  21. # a round-off error in sprintf which would cause some of the tests to
  22. # fail.  Someday I hope this code shouldn't be necessary (code added
  23. # 9/9/91).
  25. set ::tcltest::testConstraints(roundOffBug) 
  26. [expr {"[format %7.1e  68.514]" != "6.8e+01"}]
  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}
  35. # %u output depends on word length, so this test is not portable.
  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}
  50. # Printing negative numbers in hex or octal format depends on word
  51. # length, so these tests are not portable.
  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        }
  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. test format-2.5 {string formatting, embedded nulls} {
  82.     format "%10s" abcdef
  83. } "   abcdef"
  84. test format-2.6 {string formatting, international chars} {
  85.     format "%10s" abcufeffdef
  86. } "   abcufeffdef"
  87. test format-2.7 {string formatting, international chars} {
  88.     format "%.5s" abcufeffdef
  89. } "abcufeffd"
  90. test format-2.8 {string formatting, international chars} {
  91.     format "fooufeffbar%s" baz
  92. } "fooufeffbarbaz"
  93. test format-2.9 {string formatting, width} {
  94.     format "a%5sa" f
  95. } "a    fa"
  96. test format-2.10 {string formatting, width} {
  97.     format "a%-5sa" f
  98. } "af    a"
  99. test format-2.11 {string formatting, width} {
  100.     format "a%2sa" foo
  101. } "afooa"
  102. test format-2.12 {string formatting, width} {
  103.     format "a%0sa" foo
  104. } "afooa"
  105. test format-2.13 {string formatting, precision} {
  106.     format "a%.2sa" foobarbaz
  107. } "afoa"
  108. test format-2.14 {string formatting, precision} {
  109.     format "a%.sa" foobarbaz
  110. } "aa"
  111. test format-2.15 {string formatting, precision} {
  112.     list [catch {format "a%.-2sa" foobarbaz} msg] $msg
  113. } {1 {bad field specifier "-"}}
  114. test format-2.16 {string formatting, width and precision} {
  115.     format "a%5.2sa" foobarbaz
  116. } "a   foa"
  117. test format-2.17 {string formatting, width and precision} {
  118.     format "a%5.7sa" foobarbaz
  119. } "afoobarba"
  121. test format-3.1 {Tcl_FormatObjCmd: character formatting} {
  122.     format "|%c|%0c|%-1c|%1c|%-6c|%6c|%*c|%*c|" 65 65 65 65 65 65 3 65 -4 65
  123. } "|A|A|A|A|A     |     A|  A|A   |"
  124. test format-3.2 {Tcl_FormatObjCmd: international character formatting} {
  125.     format "|%c|%0c|%-1c|%1c|%-6c|%6c|%*c|%*c|" 0xa2 0x4e4e 0x25a 0xc3 0xff08 0 3 0x6575 -4 0x4e4f
  126. } "|ua2|u4e4e|u25a|uc3|uff08     |     |  u6575|u4e4f   |"
  128. test format-4.1 {e and f formats} {eformat} {
  129.     format "%e %e %e %e" 34.2e12 68.514 -.125 -16000. .000053
  130. } {3.420000e+13 6.851400e+01 -1.250000e-01 -1.600000e+04}
  131. test format-4.2 {e and f formats} {eformat} {
  132.     format "%20e %20e %20e %20e" 34.2e12 68.514 -.125 -16000. .000053
  133. } {        3.420000e+13         6.851400e+01        -1.250000e-01        -1.600000e+04}
  134. test format-4.3 {e and f formats} {eformat roundOffBug} {
  135.     format "%.1e %.1e %.1e %.1e" 34.2e12 68.514 -.126 -16000. .000053
  136. } {3.4e+13 6.9e+01 -1.3e-01 -1.6e+04}
  137. test format-4.4 {e and f formats} {eformat roundOffBug} {
  138.     format "%020e %020e %020e %020e" 34.2e12 68.514 -.126 -16000. .000053
  139. } {000000003.420000e+13 000000006.851400e+01 -00000001.260000e-01 -00000001.600000e+04}
  140. test format-4.5 {e and f formats} {eformat roundOffBug} {
  141.     format "%7.1e %7.1e %7.1e %7.1e" 34.2e12 68.514 -.126 -16000. .000053
  142. } {3.4e+13 6.9e+01 -1.3e-01 -1.6e+04}
  143. test format-4.6 {e and f formats roundOffBug} {
  144.     format "%f %f %f %f" 34.2e12 68.514 -.125 -16000. .000053
  145. } {34200000000000.000000 68.514000 -0.125000 -16000.000000}
  146. test format-4.7 {e and f formats} {nonPortable} {
  147.     format "%.4f %.4f %.4f %.4f %.4f" 34.2e12 68.514 -.125 -16000. .000053
  148. } {34200000000000.0000 68.5140 -0.1250 -16000.0000 0.0001}
  149. test format-4.8 {e and f formats} {eformat} {
  150.     format "%.4e %.5e %.6e" -9.99996 -9.99996 9.99996
  151. } {-1.0000e+01 -9.99996e+00 9.999960e+00}
  152. test format-4.9 {e and f formats} {
  153.     format "%.4f %.5f %.6f" -9.99996 -9.99996 9.99996
  154. } {-10.0000 -9.99996 9.999960}
  155. test format-4.10 {e and f formats} {
  156.     format "%20f %-20f %020f" -9.99996 -9.99996 9.99996
  157. } {           -9.999960 -9.999960            0000000000009.999960}
  158. test format-4.11 {e and f formats} {
  159.     format "%-020f %020f" -9.99996 -9.99996 9.99996
  160. } {-9.999960            -000000000009.999960}
  161. test format-4.12 {e and f formats} {eformat} {
  162.     format "%.0e %#.0e" -9.99996 -9.99996 9.99996
  163. } {-1e+01 -1.e+01}
  164. test format-4.13 {e and f formats} {
  165.     format "%.0f %#.0f" -9.99996 -9.99996 9.99996
  166. } {-10 -10.}
  167. test format-4.14 {e and f formats} {
  168.     format "%.4f %.5f %.6f" -9.99996 -9.99996 9.99996
  169. } {-10.0000 -9.99996 9.999960}
  170. test format-4.15 {e and f formats} {
  171.     format "%3.0f %3.0f %3.0f %3.0f" 1.0 1.1 1.01 1.001
  172. } {  1   1   1   1}
  173. test format-4.16 {e and f formats} {
  174.     format "%3.1f %3.1f %3.1f %3.1f" 0.0 0.1 0.01 0.001
  175. } {0.0 0.1 0.0 0.0}
  177. test format-5.1 {g-format} {eformat} {
  178.     format "%.3g" 12341.0
  179. } {1.23e+04}
  180. test format-5.2 {g-format} {eformat} {
  181.     format "%.3G" 1234.12345
  182. } {1.23E+03}
  183. test format-5.3 {g-format} {
  184.     format "%.3g" 123.412345
  185. } {123}
  186. test format-5.4 {g-format} {
  187.     format "%.3g" 12.3412345
  188. } {12.3}
  189. test format-5.5 {g-format} {
  190.     format "%.3g" 1.23412345
  191. } {1.23}
  192. test format-5.6 {g-format} {
  193.     format "%.3g" 1.23412345
  194. } {1.23}
  195. test format-5.7 {g-format} {
  196.     format "%.3g" .123412345
  197. } {0.123}
  198. test format-5.8 {g-format} {
  199.     format "%.3g" .012341
  200. } {0.0123}
  201. test format-5.9 {g-format} {
  202.     format "%.3g" .0012341
  203. } {0.00123}
  204. test format-5.10 {g-format} {
  205.     format "%.3g" .00012341
  206. } {0.000123}
  207. test format-5.11 {g-format} {eformat} {
  208.     format "%.3g" .00001234
  209. } {1.23e-05}
  210. test format-5.12 {g-format} {eformat} {
  211.     format "%.4g" 9999.6
  212. } {1e+04}
  213. test format-5.13 {g-format} {
  214.     format "%.4g" 999.96
  215. } {1000}
  216. test format-5.14 {g-format} {
  217.     format "%.3g" 1.0
  218. } {1}
  219. test format-5.15 {g-format} {
  220.     format "%.3g" .1
  221. } {0.1}
  222. test format-5.16 {g-format} {
  223.     format "%.3g" .01
  224. } {0.01}
  225. test format-5.17 {g-format} {
  226.     format "%.3g" .001
  227. } {0.001}
  228. test format-5.18 {g-format} {eformat} {
  229.     format "%.3g" .00001
  230. } {1e-05}
  231. test format-5.19 {g-format} {eformat} {
  232.     format "%#.3g" 1234.0
  233. } {1.23e+03}
  234. test format-5.20 {g-format} {eformat} {
  235.     format "%#.3G" 9999.5
  236. } {1.00E+04}
  238. test format-6.1 {floating-point zeroes} {eformat} {
  239.     format "%e %f %g" 0.0 0.0 0.0 0.0
  240. } {0.000000e+00 0.000000 0}
  241. test format-6.2 {floating-point zeroes} {eformat} {
  242.     format "%.4e %.4f %.4g" 0.0 0.0 0.0 0.0
  243. } {0.0000e+00 0.0000 0}
  244. test format-6.3 {floating-point zeroes} {eformat} {
  245.     format "%#.4e %#.4f %#.4g" 0.0 0.0 0.0 0.0
  246. } {0.0000e+00 0.0000 0.000}
  247. test format-6.4 {floating-point zeroes} {eformat} {
  248.     format "%.0e %.0f %.0g" 0.0 0.0 0.0 0.0
  249. } {0e+00 0 0}
  250. test format-6.5 {floating-point zeroes} {eformat} {
  251.     format "%#.0e %#.0f %#.0g" 0.0 0.0 0.0 0.0
  252. } {0.e+00 0. 0.}
  253. test format-6.6 {floating-point zeroes} {
  254.     format "%3.0f %3.0f %3.0f %3.0f" 0.0 0.0 0.0 0.0
  255. } {  0   0   0   0}
  256. test format-6.7 {floating-point zeroes} {
  257.     format "%3.0f %3.0f %3.0f %3.0f" 1.0 1.1 1.01 1.001
  258. } {  1   1   1   1}
  259. test format-6.8 {floating-point zeroes} {
  260.     format "%3.1f %3.1f %3.1f %3.1f" 0.0 0.1 0.01 0.001
  261. } {0.0 0.1 0.0 0.0}
  263. test format-7.1 {various syntax features} {
  264.     format "%*.*f" 12 3 12.345678901
  265. } {      12.346}
  266. test format-7.2 {various syntax features} {
  267.     format "%0*.*f" 12 3 12.345678901
  268. } {00000012.346}
  269. test format-7.3 {various syntax features} {
  270.     format "*t\n"
  271. } {* n}
  273. test format-8.1 {error conditions} {
  274.     catch format
  275. } 1
  276. test format-8.2 {error conditions} {
  277.     catch format msg
  278.     set msg
  279. } {wrong # args: should be "format formatString ?arg arg ...?"}
  280. test format-8.3 {error conditions} {
  281.     catch {format %*d}
  282. } 1
  283. test format-8.4 {error conditions} {
  284.     catch {format %*d} msg
  285.     set msg
  286. } {not enough arguments for all format specifiers}
  287. test format-8.5 {error conditions} {
  288.     catch {format %*.*f 12}
  289. } 1
  290. test format-8.6 {error conditions} {
  291.     catch {format %*.*f 12} msg
  292.     set msg
  293. } {not enough arguments for all format specifiers}
  294. test format-8.7 {error conditions} {
  295.     catch {format %*.*f 12 3}
  296. } 1
  297. test format-8.8 {error conditions} {
  298.     catch {format %*.*f 12 3} msg
  299.     set msg
  300. } {not enough arguments for all format specifiers}
  301. test format-8.9 {error conditions} {
  302.     list [catch {format %*d x 3} msg] $msg
  303. } {1 {expected integer but got "x"}}
  304. test format-8.10 {error conditions} {
  305.     list [catch {format %*.*f 2 xyz 3} msg] $msg
  306. } {1 {expected integer but got "xyz"}}
  307. test format-8.11 {error conditions} {
  308.     catch {format %d 2a}
  309. } 1
  310. test format-8.12 {error conditions} {
  311.     catch {format %d 2a} msg
  312.     set msg
  313. } {expected integer but got "2a"}
  314. test format-8.13 {error conditions} {
  315.     catch {format %c 2x}
  316. } 1
  317. test format-8.14 {error conditions} {
  318.     catch {format %c 2x} msg
  319.     set msg
  320. } {expected integer but got "2x"}
  321. test format-8.15 {error conditions} {
  322.     catch {format %f 2.1z}
  323. } 1
  324. test format-8.16 {error conditions} {
  325.     catch {format %f 2.1z} msg
  326.     set msg
  327. } {expected floating-point number but got "2.1z"}
  328. test format-8.17 {error conditions} {
  329.     catch {format ab%}
  330. } 1
  331. test format-8.18 {error conditions} {
  332.     catch {format ab% 12} msg
  333.     set msg
  334. } {format string ended in middle of field specifier}
  335. test format-8.19 {error conditions} {
  336.     catch {format %q x}
  337. } 1
  338. test format-8.20 {error conditions} {
  339.     catch {format %q x} msg
  340.     set msg
  341. } {bad field specifier "q"}
  342. test format-8.21 {error conditions} {
  343.     catch {format %d}
  344. } 1
  345. test format-8.22 {error conditions} {
  346.     catch {format %d} msg
  347.     set msg
  348. } {not enough arguments for all format specifiers}
  349. test format-8.23 {error conditions} {
  350.     catch {format "%d %d" 24 xyz} msg
  351.     set msg
  352. } {expected integer but got "xyz"}
  354. test format-9.1 {long result} {
  355.     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}
  356.     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
  357. } {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}
  359. test format-10.1 {"h" format specifier} {nonPortable} {
  360.     format %hd 0xffff
  361. } -1
  362. test format-10.2 {"h" format specifier} {nonPortable} {
  363.     format %hx 0x10fff
  364. } fff
  365. test format-10.3 {"h" format specifier} {nonPortable} {
  366.     format %hd 0x10000
  367. } 0
  368. test format-10.4 {"h" format specifier} {
  369.     # Bug 1154163: This is minimal behaviour for %hx specifier!
  370.     format %hx 1
  371. } 1
  372. test format-10.5 {"h" format specifier} {
  373.     # Bug 1284178: Highly out-of-range values shouldn't cause errors
  374.     format %hu 0x100000000
  375. } 0
  377. test format-11.1 {XPG3 %$n specifiers} {
  378.     format {%2$d %1$d} 4 5
  379. } {5 4}
  380. test format-11.2 {XPG3 %$n specifiers} {
  381.     format {%2$d %1$d %1$d %3$d} 4 5 6
  382. } {5 4 4 6}
  383. test format-11.3 {XPG3 %$n specifiers} {
  384.     list [catch {format {%2$d %3$d} 4 5} msg] $msg
  385. } {1 {"%n$" argument index out of range}}
  386. test format-11.4 {XPG3 %$n specifiers} {
  387.     list [catch {format {%2$d %0$d} 4 5 6} msg] $msg
  388. } {1 {"%n$" argument index out of range}}
  389. test format-11.5 {XPG3 %$n specifiers} {
  390.     list [catch {format {%d %1$d} 4 5 6} msg] $msg
  391. } {1 {cannot mix "%" and "%n$" conversion specifiers}}
  392. test format-11.6 {XPG3 %$n specifiers} {
  393.     list [catch {format {%2$d %d} 4 5 6} msg] $msg
  394. } {1 {cannot mix "%" and "%n$" conversion specifiers}}
  395. test format-11.7 {XPG3 %$n specifiers} {
  396.     list [catch {format {%2$d %3d} 4 5 6} msg] $msg
  397. } {1 {cannot mix "%" and "%n$" conversion specifiers}}
  398. test format-11.8 {XPG3 %$n specifiers} {
  399.     format {%2$*d %3$d} 1 10 4
  400. } {         4 4}
  401. test format-11.9 {XPG3 %$n specifiers} {
  402.     format {%2$.*s %4$d} 1 5 abcdefghijklmnop 44
  403. } {abcde 44}
  404. test format-11.10 {XPG3 %$n specifiers} {
  405.     list [catch {format {%2$*d} 4} msg] $msg
  406. } {1 {"%n$" argument index out of range}}
  407. test format-11.11 {XPG3 %$n specifiers} {
  408.     list [catch {format {%2$*d} 4 5} msg] $msg
  409. } {1 {"%n$" argument index out of range}}
  410. test format-11.12 {XPG3 %$n specifiers} {
  411.     list [catch {format {%2$*d} 4 5 6} msg] $msg
  412. } {0 {    6}}
  414. test format-12.1 {negative width specifiers} {
  415.     format "%*d" -47 25
  416. } {25                                             }
  417. test format-13.1 {tcl_precision fuzzy comparison} {
  418.     catch {unset a}
  419.     catch {unset b}
  420.     catch {unset c}
  421.     catch {unset d}
  422.     set a 0.0000000000001
  423.     set b 0.00000000000001
  424.     set c 0.00000000000000001
  425.     set d [expr $a + $b + $c]
  426.     format {%0.10f %0.12f %0.15f %0.17f} $d $d $d $d
  427. } {0.0000000000 0.000000000000 0.000000000000110 0.00000000000011001}
  428. test format-13.2 {tcl_precision fuzzy comparison} {
  429.     catch {unset a}
  430.     catch {unset b}
  431.     catch {unset c}
  432.     catch {unset d}
  433.     set a 0.000000000001
  434.     set b 0.000000000000005
  435.     set c 0.0000000000000008
  436.     set d [expr $a + $b + $c]
  437.     format {%0.10f %0.12f %0.15f %0.17f} $d $d $d $d
  438. } {0.0000000000 0.000000000001 0.000000000001006 0.00000000000100580}
  439. test format-13.3 {tcl_precision fuzzy comparison} {
  440.     catch {unset a}
  441.     catch {unset b}
  442.     catch {unset c}
  443.     set a 0.00000000000099
  444.     set b 0.000000000000011
  445.     set c [expr $a + $b]
  446.     format {%0.10f %0.12f %0.15f %0.17f} $c $c $c $c
  447. } {0.0000000000 0.000000000001 0.000000000001001 0.00000000000100100}
  448. test format-13.4 {tcl_precision fuzzy comparison} {
  449.     catch {unset a}
  450.     catch {unset b}
  451.     catch {unset c}
  452.     set a 0.444444444444
  453.     set b 0.33333333333333
  454.     set c [expr $a + $b]
  455.     format {%0.10f %0.12f %0.15f %0.16f} $c $c $c $c
  456. } {0.7777777778 0.777777777777 0.777777777777330 0.7777777777773300}
  457. test format-13.5 {tcl_precision fuzzy comparison} {
  458.     catch {unset a}
  459.     catch {unset b}
  460.     catch {unset c}
  461.     set a 0.444444444444
  462.     set b 0.99999999999999
  463.     set c [expr $a + $b]
  464.     format {%0.10f %0.12f %0.15f} $c $c $c
  465. } {1.4444444444 1.444444444444 1.444444444443990}
  466. test format-14.1 {testing MAX_FLOAT_SIZE for 0 and 1} {
  467.     format {%s} ""
  468. } {}
  469. test format-14.2 {testing MAX_FLOAT_SIZE for 0 and 1} {
  470.     format {%s} "a"
  471. } {a}
  473. test format-15.1 {testing %0..s 0 padding for chars/strings} {
  474.     format %05s a
  475. } {0000a}
  476. test format-15.2 {testing %0..s 0 padding for chars/strings} {
  477.     format "% 5s" a
  478. } {    a}
  479. test format-15.3 {testing %0..s 0 padding for chars/strings} {
  480.     format %5s a
  481. } {    a}
  482. test format-15.4 {testing %0..s 0 padding for chars/strings} {
  483.     format %05c 61
  484. } {0000=}
  486. set a "0123456789"
  487. set b ""
  488. for {set i 0} {$i < 290} {incr i} {
  489.     append b $a
  490. }
  491. for {set i 290} {$i < 400} {incr i} {
  492.     test format-16.[expr $i -289] {testing MAX_FLOAT_SIZE} {
  493.         format {%s} $b    
  494.     } $b
  495.     append b "x"
  496. }
  498. ::tcltest::testConstraint 64bitInts 
  499. [expr {0x80000000 > 0}]
  500. ::tcltest::testConstraint wideIntExpressions 
  501. [expr {wide(0x80000000) != int(0x80000000)}]
  503. test format-17.1 {testing %d with wide} {64bitInts wideIntExpressions} {
  504.     format %d 7810179016327718216
  505. } 1819043144
  506. test format-17.2 {testing %ld with wide} {64bitInts} {
  507.     format %ld 7810179016327718216
  508. } 7810179016327718216
  509. test format-17.3 {testing %ld with non-wide} {64bitInts} {
  510.     format %ld 42
  511. } 42
  512. test format-17.4 {testing %l with non-integer} {
  513.     format %lf 1
  514. } 1.000000
  515. test format-17.5 {type conversions with wides} {
  516.     set a 0xAAAAAAAA ;# NB: Careful to make separate objects here!
  517.     set b 0xAAAAAAA; append b A
  518.     set result [expr {$a == $b}]
  519.     format %x $a
  520.     lappend result [expr {$a == $b}]
  521. } {1 1}
  523. test format-18.1 {do not demote existing numeric values} {
  524.     set a 0xaaaaaaaa
  525.     # Ensure $a and $b are separate objects
  526.     set b 0xaaaa
  527.     append b aaaa
  529.     set result [expr {$a == $b}]
  530.     format %08lx $b
  531.     lappend result [expr {$a == $b}]
  533.     set b 0xaaaa
  534.     append b aaaa
  536.     lappend result [expr {$a == $b}]
  537.     format %08x $b
  538.     lappend result [expr {$a == $b}]
  539. } {1 1 1 1}
  540. test format-18.2 {do not demote existing numeric values} {wideIntExpressions} {
  541.     set a [expr {0xaaaaaaaaaa + 1}]
  542.     set b 0xaaaaaaaaab
  543.     list [format %08x $a] [expr {$a == $b}]
  544. } {aaaaaaab 1}
  546. test format-19.1 {
  547.     regression test - tcl-core message by Brian Griffin on
  548.     26 0ctober 2004
  549. } -body {
  550.     set x 0x8fedc654
  551.     list [expr { ~ $x }] [format %08x [expr { ~$x }]]
  552. } -match regexp -result {-2414724693 f*701239ab}
  554. # cleanup
  555. catch {unset a}
  556. catch {unset b}
  557. catch {unset c}
  558. catch {unset d}
  559. ::tcltest::cleanupTests
  560. return