diff options
author | dgp <dgp@users.sourceforge.net> | 2017-06-22 13:56:05 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-06-22 13:56:05 (GMT) |
commit | a135e20aa667d3ac36e42a86425c43ef648982c4 (patch) | |
tree | f78b8e687fc602f4b5ecc0fa4facfaa3a8fdf34f /tests | |
parent | 4c05a54b1b27ac42a780c26a7fba1eb6327ddc9d (diff) | |
parent | cbe13543e498700badfb4796e3a92375094bcacc (diff) | |
download | tcl-a135e20aa667d3ac36e42a86425c43ef648982c4.zip tcl-a135e20aa667d3ac36e42a86425c43ef648982c4.tar.gz tcl-a135e20aa667d3ac36e42a86425c43ef648982c4.tar.bz2 |
merge novem
Diffstat (limited to 'tests')
-rw-r--r-- | tests/format.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/format.test b/tests/format.test index 722ad21..7fa6a72 100644 --- a/tests/format.test +++ b/tests/format.test @@ -79,6 +79,25 @@ test format-1.11.1 {integer formatting} longIs64bit { test format-1.12 {integer formatting} { format "%b %#b %#b %llb" 5 0 5 [expr {2**100}] } {101 0b0 0b101 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000} +test format-1.13 {integer formatting} longIs32bit { + format "%#d %#d %#d %#d %#d" 0 6 34 16923 -12 -1 +} {0 6 34 16923 -12} +test format-1.13.1 {integer formatting} longIs64bit { + format "%#d %#d %#d %#d %#d" 0 6 34 16923 -12 -1 +} {0 6 34 16923 -12} +test format-1.14 {integer formatting} longIs32bit { + format "%#5d %#20d %#20d %#20d %#20d" 0 6 34 16923 -12 -1 +} { 0 6 34 16923 -12} +test format-1.14.1 {integer formatting} longIs64bit { + format "%#5d %#20d %#20d %#20d %#20d" 0 6 34 16923 -12 -1 +} { 0 6 34 16923 -12} +test format-1.15 {integer formatting} longIs32bit { + format "%-#5d %-#20d %-#20d %-#20d %-#20d" 0 6 34 16923 -12 -1 +} {0 6 34 16923 -12 } +test format-1.15.1 {integer formatting} longIs64bit { + format "%-#5d %-#20d %-#20d %-#20d %-#20d" 0 6 34 16923 -12 -1 +} {0 6 34 16923 -12 } + test format-2.1 {string formatting} { format "%s %s %c %s" abcd {This is a very long test string.} 120 x |