diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2008-12-10 18:21:46 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2008-12-10 18:21:46 (GMT) |
| commit | 598d01fe5e0f51d30e934c1aba180b32b7733ebc (patch) | |
| tree | 1a21e3ccc33a5243f3f2d9bf30b44617c5ff70e3 /tests/format.test | |
| parent | 418c8071f2eaf8ed93cf80189e6b775369dba84b (diff) | |
| download | tcl-598d01fe5e0f51d30e934c1aba180b32b7733ebc.zip tcl-598d01fe5e0f51d30e934c1aba180b32b7733ebc.tar.gz tcl-598d01fe5e0f51d30e934c1aba180b32b7733ebc.tar.bz2 | |
TIP #343 IMPLEMENTATION - A Binary Specifier for [format/scan]
Diffstat (limited to 'tests/format.test')
| -rw-r--r-- | tests/format.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/format.test b/tests/format.test index 1b8869a..d2cbcde 100644 --- a/tests/format.test +++ b/tests/format.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: format.test,v 1.27 2008/07/19 22:50:39 nijtmans Exp $ +# RCS: @(#) $Id: format.test,v 1.28 2008/12/10 18:21:47 ferrieux Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -77,6 +77,9 @@ test format-1.11 {integer formatting} longIs32bit { test format-1.11.1 {integer formatting} longIs64bit { format "%-#20o %#-20o %#-20o %#-20o" 6 34 16923 -12 -1 } {06 042 041033 01777777777777777777764} +test format-1.12 {integer formatting} { + format "%b %#b %llb" 5 5 [expr {2**100}] +} {101 0b101 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000} test format-2.1 {string formatting} { format "%s %s %c %s" abcd {This is a very long test string.} 120 x |