diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-03-03 15:45:57 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:48 +1000 |
commit | 749b69330051cdfa0d009c41604472427aaebcd4 (patch) | |
tree | d16313d7998bcd1b9d38367b1fd3fb358fb16de8 /tests/misc.test | |
parent | 5b72fc672cece4e426817a124e364b76da6f9704 (diff) | |
download | jimtcl-749b69330051cdfa0d009c41604472427aaebcd4.zip jimtcl-749b69330051cdfa0d009c41604472427aaebcd4.tar.gz jimtcl-749b69330051cdfa0d009c41604472427aaebcd4.tar.bz2 |
Fix 'format %%'
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/misc.test')
-rw-r--r-- | tests/misc.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/misc.test b/tests/misc.test index cb46591..e44106c 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -25,10 +25,15 @@ test regr-1.3 "Invalid for expression" { for {set i 0} {$i < n} {incr i} { set a(b) $i set a(c) $i + break } } } 1 +test regr-1.4 "format double percent" { + format (%d%%) 12 +} {(12%)} + section "I/O Testing" test io-1.1 "Read last line with no newline" { |