Skip to content

Commit 50f8455

Browse files
committed
more informative result of test clock-38.2 (in failure case it'd output all 3 results of formats as subst of expr)
1 parent 69b0256 commit 50f8455

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

tests/clock.test

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -36906,18 +36906,18 @@ test clock-38.1 {regression - convertUTCToLocalViaC - east of Greenwich} \
3690636906

3690736907
test clock-38.2 {make sure TZ is not cached after unset} \
3690836908
-body {
36909-
set t1 [clock format 0]
36909+
set t1 [clock format 0 -locale en]
3691036910
# a time zone that is unlikely to anywhere
3691136911
set env(TZ) "+04:20"
36912-
set t2 [clock format 0]
36912+
set t2 [clock format 0 -locale en]
3691336913
unset -nocomplain env(TZ)
36914-
set t3 [clock format 0]
36915-
expr {$t1 eq $t3 && $t1 ne $t2}
36914+
set t3 [clock format 0 -locale en]
36915+
list [expr {$t1 eq $t3 && $t1 ne $t2}] [subst {"$t1" eq "$t3" && "$t1" ne "$t2"}]
3691636916
} \
3691736917
-cleanup {
3691836918
unset -nocomplain env(TZ)
3691936919
} \
36920-
-result 1
36920+
-match glob -result {1 *}
3692136921

3692236922
test clock-38.3sc {ensure cache of base is correct for :localtime if TZ-env changing / scan} \
3692336923
-body {

0 commit comments

Comments
 (0)