diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-01-19 13:36:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-01-19 13:36:57 (GMT) |
| commit | 773c4c75ee2ec9d60766f09ced30a5fef6d812c6 (patch) | |
| tree | a082b35638d63f5377898996bb748137c0ca382b /tests/format.test | |
| parent | 357b7ce73369bce4e0b88aaa87e0b8a2c0eaa853 (diff) | |
| parent | 0c7be9daeb83147f81ecd891b80398293c36e92a (diff) | |
| download | tcl-773c4c75ee2ec9d60766f09ced30a5fef6d812c6.zip tcl-773c4c75ee2ec9d60766f09ced30a5fef6d812c6.tar.gz tcl-773c4c75ee2ec9d60766f09ced30a5fef6d812c6.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/format.test')
| -rw-r--r-- | tests/format.test | 7 |
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} |