diff options
author | dgp <dgp@users.sourceforge.net> | 2017-04-12 13:14:38 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-04-12 13:14:38 (GMT) |
commit | bc97ae8a02bb8363f85b25501b9aa125c5b344cd (patch) | |
tree | e4149c73b615c2886e35455ee241acb660602cf9 /tests | |
parent | 155377a13fc942edef1524383465f2aa0efd92c2 (diff) | |
download | tcl-bc97ae8a02bb8363f85b25501b9aa125c5b344cd.zip tcl-bc97ae8a02bb8363f85b25501b9aa125c5b344cd.tar.gz tcl-bc97ae8a02bb8363f85b25501b9aa125c5b344cd.tar.bz2 |
Revert recent commit [80252e0aed]. TIP 237 is clear that %llu is invalid.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/format.test | 6 | ||||
-rw-r--r-- | tests/scan.test | 13 |
2 files changed, 0 insertions, 19 deletions
diff --git a/tests/format.test b/tests/format.test index dbf6af0..e199398 100644 --- a/tests/format.test +++ b/tests/format.test @@ -528,12 +528,6 @@ test format-17.3 {testing %ld with non-wide} {wideIs64bit} { test format-17.4 {testing %l with non-integer} { format %lf 1 } 1.000000 -test format-17.5 {testing %llu with bignum} { - format %llu 0xabcdef0123456789abcdef -} 207698809136909011942886895 -test format-17.6 {testing %llu with negative number} -body { - format %llu -1 -} -returnCodes 1 -result {unsigned bignum format is invalid} test format-18.1 {do not demote existing numeric values} { set a 0xaaaaaaaa diff --git a/tests/scan.test b/tests/scan.test index 8ddb595..7540c9c 100644 --- a/tests/scan.test +++ b/tests/scan.test @@ -541,19 +541,6 @@ test scan-5.15 {Bug be003d570f} { test scan-5.16 {Bug be003d570f} { scan 0x40 %b } 0 -test scan-5.17 {bigint scanning} -setup { - set a {}; set b {}; set c {}; set d {} -} -body { - list [scan "207698809136909011942886895,207698809136909011942886895,abcdef0123456789abcdef,125715736004432126361152746757" \ - %llu,%lld,%llx,%llo a b c d] $a $b $c $d -} -result {4 207698809136909011942886895 207698809136909011942886895 207698809136909011942886895 207698809136909011942886895} -test scan-5.18 {bigint scanning underflow} -setup { - set a {}; -} -body { - list [scan "-207698809136909011942886895" \ - %llu a] $a -} -returnCodes 1 -result {unsigned bignum scans are invalid} - test scan-6.1 {floating-point scanning} -setup { set a {}; set b {}; set c {}; set d {} |