diff options
Diffstat (limited to 'tests/format.test')
| -rw-r--r-- | tests/format.test | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/tests/format.test b/tests/format.test index 58f142f..3d3b88e 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.6 1999/08/17 21:34:45 jenn Exp $ +# RCS: @(#) $Id: format.test,v 1.7 1999/09/21 04:20:44 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -467,6 +467,19 @@ test format-14.2 {testing MAX_FLOAT_SIZE for 0 and 1} { format {%s} "a" } {a} +test format-15.1 {testing %0..s 0 padding for chars/strings} { + format %05s a +} {0000a} +test format-15.2 {testing %0..s 0 padding for chars/strings} { + format "% 5s" a +} { a} +test format-15.3 {testing %0..s 0 padding for chars/strings} { + format %5s a +} { a} +test format-15.4 {testing %0..s 0 padding for chars/strings} { + format %05c 61 +} {0000=} + set a "0123456789" set b "" for {set i 0} {$i < 290} {incr i} { |