Artifact
8f0993936b9e700ca89743ba52b588e23d86d423ea350c3f636129f2ba6f7eac:
Attachment "clock-7.10-add-utc.diff" to
ticket [00655c867e]
added by
chrstphrchvz
2023-09-20 21:59:44.
0000: 64 69 66 66 20 2d 2d 67 69 74 20 74 65 73 74 73 diff --git tests
0010: 2f 63 6c 6f 63 6b 2e 74 65 73 74 20 74 65 73 74 /clock.test test
0020: 73 2f 63 6c 6f 63 6b 2e 74 65 73 74 0a 69 6e 64 s/clock.test.ind
0030: 65 78 20 34 62 31 32 64 35 63 62 39 65 2e 2e 39 ex 4b12d5cb9e..9
0040: 38 61 30 36 35 65 66 62 38 20 31 30 30 36 34 34 8a065efb8 100644
0050: 0a 2d 2d 2d 20 74 65 73 74 73 2f 63 6c 6f 63 6b .--- tests/clock
0060: 2e 74 65 73 74 0a 2b 2b 2b 20 74 65 73 74 73 2f .test.+++ tests/
0070: 63 6c 6f 63 6b 2e 74 65 73 74 0a 40 40 20 2d 31 clock.test.@@ -1
0080: 38 36 30 35 2c 31 30 20 2b 31 38 36 30 35 2c 31 8605,10 +18605,1
0090: 30 20 40 40 20 74 65 73 74 20 63 6c 6f 63 6b 2d 0 @@ test clock-
00a0: 37 2e 31 30 20 7b 4a 75 6c 69 61 6e 20 44 61 79 7.10 {Julian Day
00b0: 2c 20 6e 65 67 61 74 69 76 65 20 61 6d 6f 75 6e , negative amoun
00c0: 74 7d 20 7b 0a 20 20 20 20 20 23 20 61 64 64 20 t} {. # add
00d0: 6e 65 67 61 74 69 76 65 20 61 6d 6f 75 6e 74 73 negative amounts
00e0: 20 74 6f 20 4a 75 6c 69 61 6e 20 64 61 79 20 30 to Julian day 0
00f0: 20 69 6e 73 74 65 61 64 0a 20 20 20 20 20 73 65 instead. se
0100: 74 20 73 30 20 5b 63 6c 6f 63 6b 20 73 63 61 6e t s0 [clock scan
0110: 20 30 20 2d 66 6f 72 6d 61 74 20 25 4a 20 2d 67 0 -format %J -g
0120: 6d 74 20 74 72 75 65 5d 0a 20 20 20 20 20 73 65 mt true]. se
0130: 74 20 4a 30 20 5b 73 63 61 6e 20 5b 63 6c 6f 63 t J0 [scan [cloc
0140: 6b 20 66 6f 72 6d 61 74 20 24 73 30 20 2d 66 6f k format $s0 -fo
0150: 72 6d 61 74 20 25 4a 20 2d 67 6d 74 20 74 72 75 rmat %J -gmt tru
0160: 65 5d 20 25 6c 6c 64 5d 0a 2d 20 20 20 20 73 65 e] %lld].- se
0170: 74 20 73 30 6d 31 64 20 5b 63 6c 6f 63 6b 20 61 t s0m1d [clock a
0180: 64 64 20 24 73 30 20 2d 31 20 64 61 79 73 5d 0a dd $s0 -1 days].
0190: 2d 20 20 20 20 73 65 74 20 73 30 6d 32 34 68 20 - set s0m24h
01a0: 5b 63 6c 6f 63 6b 20 61 64 64 20 24 73 30 20 2d [clock add $s0 -
01b0: 32 34 20 68 6f 75 72 73 5d 0a 2b 20 20 20 20 73 24 hours].+ s
01c0: 65 74 20 73 30 6d 31 64 20 5b 63 6c 6f 63 6b 20 et s0m1d [clock
01d0: 61 64 64 20 24 73 30 20 2d 31 20 64 61 79 73 20 add $s0 -1 days
01e0: 2d 74 69 6d 65 7a 6f 6e 65 20 3a 55 54 43 5d 0a -timezone :UTC].
01f0: 2b 20 20 20 20 73 65 74 20 73 30 6d 32 34 68 20 + set s0m24h
0200: 5b 63 6c 6f 63 6b 20 61 64 64 20 24 73 30 20 2d [clock add $s0 -
0210: 32 34 20 68 6f 75 72 73 20 2d 74 69 6d 65 7a 6f 24 hours -timezo
0220: 6e 65 20 3a 55 54 43 5d 0a 20 20 20 20 20 73 65 ne :UTC]. se
0230: 74 20 4a 30 6d 32 34 68 20 5b 73 63 61 6e 20 5b t J0m24h [scan [
0240: 63 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 24 73 30 clock format $s0
0250: 6d 32 34 68 20 2d 66 6f 72 6d 61 74 20 25 4a 20 m24h -format %J
0260: 2d 67 6d 74 20 74 72 75 65 5d 20 25 6c 6c 64 5d -gmt true] %lld]
0270: 0a 2d 20 20 20 20 73 65 74 20 73 30 6d 31 73 20 .- set s0m1s
0280: 5b 63 6c 6f 63 6b 20 61 64 64 20 24 73 30 20 2d [clock add $s0 -
0290: 31 20 73 65 63 6f 6e 64 73 5d 0a 2b 20 20 20 20 1 seconds].+
02a0: 73 65 74 20 73 30 6d 31 73 20 5b 63 6c 6f 63 6b set s0m1s [clock
02b0: 20 61 64 64 20 24 73 30 20 2d 31 20 73 65 63 6f add $s0 -1 seco
02c0: 6e 64 73 20 2d 74 69 6d 65 7a 6f 6e 65 20 3a 55 nds -timezone :U
02d0: 54 43 5d 0a 20 20 20 20 20 73 65 74 20 4a 30 6d TC]. set J0m
02e0: 31 73 20 5b 73 63 61 6e 20 5b 63 6c 6f 63 6b 20 1s [scan [clock
02f0: 66 6f 72 6d 61 74 20 24 73 30 6d 31 73 20 2d 66 format $s0m1s -f
0300: 6f 72 6d 61 74 20 25 4a 20 2d 67 6d 74 20 74 72 ormat %J -gmt tr
0310: 75 65 5d 20 25 6c 6c 64 5d 0a 20 20 20 20 20 6c ue] %lld]. l
0320: 69 73 74 20 24 73 30 6d 31 64 20 24 73 30 6d 32 ist $s0m1d $s0m2
0330: 34 68 20 24 4a 30 6d 32 34 68 20 24 73 30 6d 31 4h $J0m24h $s0m1
0340: 73 20 24 4a 30 6d 31 73 20 24 73 30 20 24 4a 30 s $J0m1s $s0 $J0
0350: 20 5c 0a 20 09 5b 3a 3a 74 63 6c 3a 3a 6d 61 74 \. .[::tcl::mat
0360: 68 6f 70 3a 3a 3d 3d 20 24 73 30 6d 31 64 20 24 hop::== $s0m1d $
0370: 73 30 6d 32 34 68 5d 20 5b 3a 3a 74 63 6c 3a 3a s0m24h] [::tcl::
0380: 6d 61 74 68 6f 70 3a 3a 3d 3d 20 24 4a 30 6d 32 mathop::== $J0m2
0390: 34 68 20 24 4a 30 6d 31 73 5d 0a 4h $J0m1s].
