diff options
| author | Steve Bennett <steveb@workware.net.au> | 2012-03-02 16:42:46 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2012-08-07 15:09:45 +1000 |
| commit | b225e36dd50337cde65fd1acfb0fe11a69ffcb71 (patch) | |
| tree | c8401e007982b5864852bca8897394bc23c18991 /tests/scan.test | |
| parent | 72a577998daa5edb99f6af1fc4820372e5563141 (diff) | |
| download | jimtcl-b225e36dd50337cde65fd1acfb0fe11a69ffcb71.zip jimtcl-b225e36dd50337cde65fd1acfb0fe11a69ffcb71.tar.gz jimtcl-b225e36dd50337cde65fd1acfb0fe11a69ffcb71.tar.bz2 | |
Remove octal literals with a leading 0 (TIP #114)
Now an octal literal needs to be explicitly indicated with a leading
0o or 0O, otherwise the number is treated as decimal.
This patch also adds support for binary literals.
e.g. 0b101 0B1101
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/scan.test')
| -rw-r--r-- | tests/scan.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/scan.test b/tests/scan.test index 8bfcbe8..2267d22 100644 --- a/tests/scan.test +++ b/tests/scan.test @@ -247,11 +247,11 @@ test scan-4.40.2 {Tcl_ScanObjCmd, base-16 integer scanning} { test scan-4.41 {Tcl_ScanObjCmd, base-unknown integer scanning} { set x {} list [scan {10 010 0x10} {%i%i%i} x y z] $x $y $z -} {3 10 8 16} +} {3 10 10 16} test scan-4.42 {Tcl_ScanObjCmd, base-unknown integer scanning} { set x {} list [scan {10 010 0X10} {%i%i%i} x y z] $x $y $z -} {3 10 8 16} +} {3 10 10 16} test scan-4.43 {Tcl_ScanObjCmd, integer scanning, odd cases} { set x {} list [scan {+ } {%i} x] $x |