The R Project SVN – R – Diff – /trunk/tests/datetime4.Rout.save

-R Under development (unstable) (2026-06-09 r90126) -- "Unsuffered Consequences"
+R Under development (unstable) (2026-06-12 r90138) -- "Unsuffered Consequences"
 Copyright (C) 2026 The R Foundation for Statistical Computing
-Platform: aarch64-apple-darwin25.4.0
+Platform: x86_64-pc-linux-gnu
 R is free software and comes with ABSOLUTELY NO WARRANTY.
 You are welcome to redistribute it under certain conditions.
 Type 'license()' or 'licence()' for distribution details.
 > ### more date-time tests where the output is to be checked.
+>
 > ## Expect differences, especially for platforms without tm_zone/tm_gmtoff.
 > ## Please use the R-internal version for .Rout.save
+> ## IGNORE_RDIFF_BEGIN
+> (tzCtype <- sessionInfo()[["tzcode_type"]])
+[1] "internal"
+> ## IGNORE_RDIFF_END
+>
 > options(warn = 1L)
-> si <-  sessionInfo()
+>
 > ## tests of "POSIXlt" objects
 > xU <- strptime("2022-01-01", "%Y-%m-%d", tz = "UTC")
 > xU
 [1] "2022-01-01 UTC"
  - attr(*, "tzone")= chr "UTC"
  - attr(*, "balanced")= logi TRUE
+>
 > x0 <- strptime("2022-01-01", "%Y-%m-%d") # current time zone
 > ## IGNORE_RDIFF_BEGIN
-> si # sessionInfo() incl "tzcode source" :
-R Under development (unstable) (2026-06-09 r90126)
-Platform: x86_64-pc-linux-gnu
-Running under: Fedora Linux 42 (Adams)
-Matrix products: default
-BLAS:   /sfs/u/maechler/R/D/r-devel/F42-64-inst/lib/libRblas.so
-LAPACK: /usr/lib64/liblapack.so.3.12.0  LAPACK version 3.12.0
-locale:
-[1] C
-time zone: Europe/Zurich
-tzcode source: system (glibc)
-attached base packages:
-[1] stats     graphics  grDevices utils     datasets  methods   base
-loaded via a namespace (and not attached):
-[1] compiler_4.7.0
-> (tzCtype <- si[["tzcode_type"]])
-[1] "system (glibc)"
 > x0
-[1] "2022-01-01 GMT"
+[1] "2022-01-01 CET"
 > str(unclass(x0))
 List of 11
  $ sec   : num 0
  $ min   : int 0
  $ hour  : int 0
  $ mon   : int 0
  $ year  : int 122
  $ wday  : int 6
  $ yday  : int 0
  $ isdst : int 0
- $ zone  : chr "GMT"
+ $ zone  : chr "CET"
  $ gmtoff: int NA
- - attr(*, "tzone")= chr [1:3] "" "GMT" "BST"
+ - attr(*, "tzone")= chr [1:3] "" "CET" "CEST"
  - attr(*, "balanced")= logi TRUE
 > ## IGNORE_RDIFF_END
+>
 > x1 <- strptime("2022-07-01", "%Y-%m-%d", tz = "Europe/London")
 > x1
  $ zone  : chr ""
  $ gmtoff: int 10800
  - attr(*, "tzone")= chr [1:3] "Europe/Vienna" "CET" "CEST"
  - attr(*, "balanced")= logi TRUE
+>
+> # Fiji tried DST in some previous years, but not since 2021
 > x4 <- strptime("2022-07-01", "%Y-%m-%d", tz ="Pacific/Fiji")
 > x4
 [1] "2022-07-01 +12"
 > str(unclass(x4)) # abbreviations may be numbers.
 List of 11
 > # Kiribati does/did not have DST, so second abbreviation may be repeat or empty
 > x5 <- strptime("2022-07-01", "%Y-%m-%d", tz ="Pacific/Kiritimati")
 > x5
 [1] "2022-07-01 +14"
 > ## IGNORE_RDIFF_BEGIN
-> str(unclass(x5)) # does not have DST, hence no DST abbreviation except on glibc
+> attr(x5, "tzone") # does not have DST, hence no DST abbreviation except on glibc
+[1] "Pacific/Kiritimati" "+14"                "   "
+> ## IGNORE_RDIFF_END
+> stopifnot(identical(
++     attr(x5, "tzone") |> trimws(), # ignore "   " (internal) vs. "" (musl)
++     c("Pacific/Kiritimati", "+14", if(grepl("glibc", tzCtype)) "+14" else "")
++ ))
+> str(unclass(`attr<-`(x5, "tzone", NULL)))
 List of 11
  $ sec   : num 0
  $ min   : int 0
  $ hour  : int 0
  $ mday  : int 1
  $ wday  : int 5
  $ yday  : int 181
  $ isdst : int 0
  $ zone  : chr "+14"
  $ gmtoff: int NA
- - attr(*, "tzone")= chr [1:3] "Pacific/Kiritimati" "+14" "   "
  - attr(*, "balanced")= logi TRUE
-> ## IGNORE_RDIFF_END
-> u5 <- unclass(x5)
-> u5_ <- `attr<-`(u5, "tzone", NULL)
-> stopifnot(exprs = {
-+     identical(attr(u5, "tzone"),
-+               c("Pacific/Kiritimati", "+14", if(grepl("glibc", tzCtype)) "+14" else "   "))
-+     identical(u5_, structure(
-+                   list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 6L, year = 122L,
-+                        wday = 5L, yday = 181L, isdst = 0L, zone = "+14", gmtoff = NA_integer_),
-+                   balanced = TRUE))
-+ })
+>
+>
 > ## edge of range and out of range offsets
 > strptime("2022-01-01 +1400", "%Y-%m-%d %z", tz = "UTC")
 [1] "2021-12-31 10:00:00 UTC"
 "2022-09-01" "2022-09-08" "2022-09-15" "2022-09-22" "2022-09-29" "2022-10-06"
       week 7       week 8       week 9      week 10
 "2022-10-13" "2022-10-20" "2022-10-27" "2022-11-03"
 > ## IGNORE_RDIFF_BEGIN
 > as.POSIXct(y)
-          week 1           week 2           week 3           week 4
+           week 1            week 2            week 3            week 4
-"2022-09-01 BST" "2022-09-08 BST" "2022-09-15 BST" "2022-09-22 BST"
+"2022-09-01 CEST" "2022-09-08 CEST" "2022-09-15 CEST" "2022-09-22 CEST"
-          week 5           week 6           week 7           week 8
+           week 5            week 6            week 7            week 8
-"2022-09-29 BST" "2022-10-06 BST" "2022-10-13 BST" "2022-10-20 BST"
+"2022-09-29 CEST" "2022-10-06 CEST" "2022-10-13 CEST" "2022-10-20 CEST"
-          week 9          week 10
+           week 9           week 10
-"2022-10-27 BST" "2022-11-03 GMT"
+"2022-10-27 CEST"  "2022-11-03 CET"
 > (yy <- as.POSIXlt(y))
-          week 1           week 2           week 3           week 4
+           week 1            week 2            week 3            week 4
-"2022-09-01 BST" "2022-09-08 BST" "2022-09-15 BST" "2022-09-22 BST"
+"2022-09-01 CEST" "2022-09-08 CEST" "2022-09-15 CEST" "2022-09-22 CEST"
-          week 5           week 6           week 7           week 8
+           week 5            week 6            week 7            week 8
-"2022-09-29 BST" "2022-10-06 BST" "2022-10-13 BST" "2022-10-20 BST"
+"2022-09-29 CEST" "2022-10-06 CEST" "2022-10-13 CEST" "2022-10-20 CEST"
-          week 9          week 10
+           week 9           week 10
-"2022-10-27 BST" "2022-11-03 GMT"
+"2022-10-27 CEST"  "2022-11-03 CET"
 > unclass(yy)
 $sec
  [1] 0 0 0 0 0 0 0 0 0 0
 $min
 $isdst
  [1] 1 1 1 1 1 1 1 1 1 0
 $zone
- [1] "BST" "BST" "BST" "BST" "BST" "BST" "BST" "BST" "BST" "GMT"
+ [1] "CEST" "CEST" "CEST" "CEST" "CEST" "CEST" "CEST" "CEST" "CEST" "CET"
 $gmtoff
  [1] NA NA NA NA NA NA NA NA NA NA
 attr(,"tzone")
-[1] ""    "GMT" "BST"
+[1] ""     "CET"  "CEST"
 attr(,"balanced")
 [1] TRUE
+>
 > strptime(y, "%Y-%m-%d")
-          week 1           week 2           week 3           week 4
+           week 1            week 2            week 3            week 4
-"2022-09-01 BST" "2022-09-08 BST" "2022-09-15 BST" "2022-09-22 BST"
+"2022-09-01 CEST" "2022-09-08 CEST" "2022-09-15 CEST" "2022-09-22 CEST"
-          week 5           week 6           week 7           week 8
+           week 5            week 6            week 7            week 8
-"2022-09-29 BST" "2022-10-06 BST" "2022-10-13 BST" "2022-10-20 BST"
+"2022-09-29 CEST" "2022-10-06 CEST" "2022-10-13 CEST" "2022-10-20 CEST"
-          week 9          week 10
+           week 9           week 10
-"2022-10-27 BST" "2022-11-03 GMT"
+"2022-10-27 CEST"  "2022-11-03 CET"
 > strftime(y, "%Y-%m-%d")
       week 1       week 2       week 3       week 4       week 5       week 6
 "2022-09-01" "2022-09-08" "2022-09-15" "2022-09-22" "2022-09-29" "2022-10-06"
       week 7       week 8       week 9      week 10
 "2022-10-13" "2022-10-20" "2022-10-27" "2022-11-03"
 > y2 <- paste(y, "10:01:02"); names(y2) <- names(y)
 > fmt <- c("%Y-%m-%d", "%Y-%m-%d %H:%M:%S", "%Y-%m-%d %H:%M:%S %Z")
 > (strptime(y2, fmt[1:2]) -> sy2)
-                   week 1                    week 2                    week 3
+                    week 1                     week 2
-"2022-09-01 00:00:00 BST" "2022-09-08 10:01:02 BST" "2022-09-15 00:00:00 BST"
+"2022-09-01 00:00:00 CEST" "2022-09-08 10:01:02 CEST"
+                    week 3                     week 4
+"2022-09-15 00:00:00 CEST" "2022-09-22 10:01:02 CEST"
-                   week 4                    week 5                    week 6
+                    week 5                     week 6
-"2022-09-22 10:01:02 BST" "2022-09-29 00:00:00 BST" "2022-10-06 10:01:02 BST"
+"2022-09-29 00:00:00 CEST" "2022-10-06 10:01:02 CEST"
-                   week 7                    week 8                    week 9
+                    week 7                     week 8
-"2022-10-13 00:00:00 BST" "2022-10-20 10:01:02 BST" "2022-10-27 00:00:00 BST"
+"2022-10-13 00:00:00 CEST" "2022-10-20 10:01:02 CEST"
-                  week 10
+                    week 9                    week 10
-"2022-11-03 10:01:02 GMT"
+"2022-10-27 00:00:00 CEST"  "2022-11-03 10:01:02 CET"
 > ## IGNORE_RDIFF_END
 > sy2.15 <- strptime(y2, rep(fmt[1:2], length = 15)) # failed to recycle names
 > stopifnot(suppressWarnings(sy2 == sy2.15))
+>
 > xl. <- xl[1:9] # length(fmt) == 3 -- fully recycles in xl.
              "2022-09-08"     "2022-09-15 00:00:00" "2022-09-22 00:00:00 UTC"
                      <NA>
              "2022-09-29"
+>
 > cat('Time elapsed: ', proc.time(),'\n')
-Time elapsed:  0.096 0.021 0.124 0.005 0.006
+Time elapsed:  0.133 0.024 0.233 0.004 0.001
+>

The R Project SVN R

(root)/trunk/tests/datetime4.Rout.save – Rev 90134 → 90139