diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-08 21:34:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-08 21:34:48 (GMT) |
| commit | 33201eb14cf67e9484e1a711ecda15264dd48d4c (patch) | |
| tree | aea3a6e2b7d065cfe77d1e0ae967e3d01181c23b /tests/scan.test | |
| parent | 079f1e33dc9435dcccf46f4c02e4dd945e9e4563 (diff) | |
| download | tcl-33201eb14cf67e9484e1a711ecda15264dd48d4c.zip tcl-33201eb14cf67e9484e1a711ecda15264dd48d4c.tar.gz tcl-33201eb14cf67e9484e1a711ecda15264dd48d4c.tar.bz2 | |
Bring back test-cases closer to what they were
Diffstat (limited to 'tests/scan.test')
| -rw-r--r-- | tests/scan.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/scan.test b/tests/scan.test index 689a6ba..b488f68 100644 --- a/tests/scan.test +++ b/tests/scan.test @@ -19,7 +19,7 @@ if {"::tcltest" ni [namespace children]} { # procedure that returns the range of integers proc int_range {} { - set MAX_INT [expr {[format %lu -2]/2}] + set MAX_INT [expr {[format %u -2]/2}] set MIN_INT [expr { ~ $MAX_INT }] return [list $MIN_INT $MAX_INT] } @@ -442,14 +442,14 @@ test scan-4.61 {Tcl_ScanObjCmd, set errors} -setup { test scan-4.62 {scanning of large and negative octal integers} { lassign [int_range] MIN_INT MAX_INT - set scanstring [format {%lo %lo %lo} -1 $MIN_INT $MAX_INT] - list [scan $scanstring {%lo %lo %lo} a b c] \ + set scanstring [format {%o %o %o} -1 $MIN_INT $MAX_INT] + list [scan $scanstring {%o %o %o} a b c] \ [expr { $a == -1 }] [expr { $b == $MIN_INT }] [expr { $c == $MAX_INT }] } {3 1 1 1} test scan-4.63 {scanning of large and negative hex integers} { lassign [int_range] MIN_INT MAX_INT - set scanstring [format {%lx %lx %lx} -1 $MIN_INT $MAX_INT] - list [scan $scanstring {%lx %lx %lx} a b c] \ + set scanstring [format {%x %x %x} -1 $MIN_INT $MAX_INT] + list [scan $scanstring {%x %x %x} a b c] \ [expr { $a == -1 }] [expr { $b == $MIN_INT }] [expr { $c == $MAX_INT }] } {3 1 1 1} test scan-4.64 {scanning of hex with %X} { |