diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-22 08:15:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-22 08:15:13 (GMT) |
| commit | 0d73e7f26411020d1345814bcdb9fe78272335ff (patch) | |
| tree | 2fdbe8d96b8bd430d6c834bf6ab118383db11de1 /tests/format.test | |
| parent | 0e24bd44bfdeacaed97aa9b1292be5689fca79f1 (diff) | |
| download | tcl-0d73e7f26411020d1345814bcdb9fe78272335ff.zip tcl-0d73e7f26411020d1345814bcdb9fe78272335ff.tar.gz tcl-0d73e7f26411020d1345814bcdb9fe78272335ff.tar.bz2 | |
Add test-cases, testing the legacy behavior of "format %#d"
Diffstat (limited to 'tests/format.test')
| -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 9afedd9..2795ac2 100644 --- a/tests/format.test +++ b/tests/format.test @@ -78,6 +78,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 |