R Under development (unstable) (2024-12-19 r87451 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

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.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 
> library(iso8601)
> 
> source("helpers.R")
> 
> # Note that testing of the parsing of all of the various date formats allowed in
> # ISO8601 is done in the c++ library. We will not test these here. Here we will
> # only test if the R-routines correctly call the c++ routines and that the
> # result of those calls is handles correctly in R.
> 
> x <- iso8601todataframe(c("2024-W01-6", "2041-02-12T12+05:20", NA, "T22"))
> expect_equal(x$type, factor(c(1,3,NA,2), levels = 1:6, 
+   labels = c("Date", "Time", "Datetime", "Duration", 
+     "Interval", "RepeatingInterval")))
> expect_equal(x$year, c(2024L, 2041L, NA, NA))
> expect_equal(x$month, c(NA, 2L, NA, NA))
> expect_equal(x$day, c(NA, 12L, NA, NA))
> expect_equal(x$week, c(1L, NA, NA, NA))
> expect_equal(x$weekday, c(6L, NA, NA, NA))
> expect_equal(x$hour, c(NA, 12, NA, 22))
> expect_equal(x$tzoffsethours, c(NA, 5, NA, NA))
> expect_equal(x$tzoffsetminutes, c(NA, 20, NA, NA))
> expect_equal(names(x), c("type", "year", "month", "day", "week", 
+     "weekday", "hour", "tzoffsethours", "tzoffsetminutes"))
> 
> expect_warning(x <- iso8601todataframe("FOO"))
> expect_equal(x$type, factor(c(NA), levels = 1:6, 
+   labels = c("Date", "Time", "Datetime", "Duration", 
+     "Interval", "RepeatingInterval")))
> expect_equal(names(x), c("type"))
> 
> 
> x <- iso8601todataframe(character(0))
> expect_equal(names(x), c("type"))
> expect_equal(nrow(x), 0)
> 
> 
> # Transformdate
> x <- iso8601todataframe("2024-001", "toyearmonthday")
> expect_equal(names(x), c("type", "year", "month", "day"))
> expect_equal(x$year, 2024L)
> expect_equal(x$month, 1)
> expect_equal(x$day, 1)
> 
> x <- iso8601todataframe("2024-02-05", "toyearday")
> expect_equal(names(x), c("type", "year", "yearday"))
> expect_equal(x$year, 2024L)
> expect_equal(x$yearday, 36)
> 
> x <- iso8601todataframe("2024", "toyearday")
> expect_equal(names(x), c("type", "year", "yearday"))
> expect_equal(x$year, 2024L)
> expect_equal(x$yearday, 1)
> 
> x <- iso8601todataframe(NA_character_, "toyearday")
> expect_equal(names(x), c("type"))
> 
> 
> # Failed in earlier version
> # tranformdate did not work for datetime
> x <- iso8601todataframe("2019-08-17T16:15:14+00", "toyearday")
> expect_equal(x$year, 2019L)
> expect_equal(x$month, NULL)
> expect_equal(x$day, NULL)
> expect_equal(x$yearday, 229L)
> expect_equal(x$hour, 16)
> expect_equal(x$minutes, 15)
> expect_equal(x$seconds, 14)
> expect_equal(x$tzoffsethours, 0)
> expect_equal(x$tzoffsetminutes, 0)
> 
> # Failed in earlier version
> # tranformdate did not work for datetime
> x <- iso8601todataframe("2019229T161514", "toyearmonthday")
> expect_equal(x$year, 2019L)
> expect_equal(x$month, 8L)
> expect_equal(x$day, 17L)
> expect_equal(x$yearday, NULL)
> expect_equal(x$hour, 16)
> expect_equal(x$minutes, 15)
> expect_equal(x$seconds, 14)
> expect_equal(x$tzoffsethours, NULL)
> expect_equal(x$tzoffsetminutes, NULL)
> 
> 
> proc.time()
   user  system elapsed 
   0.21    0.03    0.23