From 33201eb14cf67e9484e1a711ecda15264dd48d4c Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sat, 8 Sep 2018 21:34:48 +0000 Subject: Bring back test-cases closer to what they were --- tests/scan.test | 10 +++++----- 1 file 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} { -- cgit v0.12