summaryrefslogtreecommitdiffstats
path: root/tests/format.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-08-04 07:41:11 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-08-04 07:41:11 (GMT)
commit24ef33dc101a3e9114318b884c1e99d792f4739d (patch)
treed40ea5aa379f57f78c0e5438d5a1f34874622820 /tests/format.test
parent9721f569eacfc8d7452182fb57bfa2a758f580b7 (diff)
downloadtcl-24ef33dc101a3e9114318b884c1e99d792f4739d.zip
tcl-24ef33dc101a3e9114318b884c1e99d792f4739d.tar.gz
tcl-24ef33dc101a3e9114318b884c1e99d792f4739d.tar.bz2
more result generation conversion
Diffstat (limited to 'tests/format.test')
-rw-r--r--tests/format.test7
1 files changed, 2 insertions, 5 deletions
diff --git a/tests/format.test b/tests/format.test
index 2d53eba..27eac31 100644
--- a/tests/format.test
+++ b/tests/format.test
@@ -549,10 +549,7 @@ test format-18.2 {do not demote existing numeric values} {wideBiggerThanInt} {
list [format %08x $a] [expr {$a == $b}]
} {aaaaaaab 1}
-test format-19.1 {
- regression test - tcl-core message by Brian Griffin on
- 26 0ctober 2004
-} -body {
+test format-19.1 {regression test - tcl-core message by Brian Griffin on 26 0ctober 2004} -body {
set x 0x8fedc654
list [expr { ~ $x }] [format %08x [expr { ~$x }]]
} -match regexp -result {-2414724693 f*701239ab}
@@ -569,7 +566,7 @@ test format-20.1 {Bug 2932421: plain %s caused intrep change of args} -body {
format %s $x
# After this, obj in $x should be a dict with a non-NULL bytes field
tcl::unsupported::representation $x
-} -match glob -result {value is a dict with *, string representation "*".}
+} -match glob -result {value is a dict with *, string representation "*"}
# cleanup
catch {unset a}