diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw index 807916f45..78123b73f 100644 --- a/inst/tests/tests.Rraw +++ b/inst/tests/tests.Rraw @@ -21853,16 +21853,16 @@ test(2378.95, .Call(CresizeVector, NULL, 2L), error = "must be a vector") # #7252 as.IDate()/as.ITime preserve names and are compliant with as.Date() test(2379.01, as.IDate(c(a = "2019-01-01")), as.IDate(as.Date(c(a = "2019-01-01")))) -test(2379.02, c(a = as.IDate("2019-01-01")), structure(as.IDate("2019-01-01"), names="a")) -test(2379.03, as.ITime(c(a = "12:00:00")), structure(as.ITime("12:00:00"), names="a")) -test(2379.04, as.IDate(structure(as.POSIXct("2019-01-01 12:00:00", tz="UTC"), names = "a")), as.IDate(as.Date(structure(as.POSIXct("2019-01-01 12:00:00", tz="UTC"), names = "a")))) -test(2379.05, as.ITime(structure(3600, names = "a")), structure(as.ITime(3600), names="a")) +test(2379.02, c(a = as.IDate("2019-01-01")), setNames(as.IDate("2019-01-01"), "a")) +test(2379.03, as.ITime(c(a = "12:00:00")), setNames(as.ITime("12:00:00"), "a")) +test(2379.04, as.IDate(c(a=as.POSIXct("2019-01-01 12:00:00", tz="UTC"))), as.IDate(as.Date(c(a=as.POSIXct("2019-01-01 12:00:00", tz="UTC"))))) +test(2379.05, as.ITime(c(a=3600)), setNames(as.ITime(3600), "a")) test(2379.06, as.IDate(c(a = 18000)), as.IDate(as.Date(c(a = 18000), origin="1970-01-01"))) test(2379.07, as.IDate(c(a = 1), origin = "2020-01-01"), as.IDate(as.Date(c(a = 1), origin = "2020-01-01"))) -test(2379.08, as.ITime(c(a = "12-00-00"), format = "%H-%M-%S"), structure(as.ITime("12:00:00"), names="a")) +test(2379.08, as.ITime(c(a = "12-00-00"), format = "%H-%M-%S"), setNames(as.ITime("12:00:00"), "a")) test(2379.09, as.IDate(as.POSIXct(c(a = "2019-01-01"), tz="America/New_York")), as.IDate(as.Date(as.POSIXct(c(a = "2019-01-01"), tz="America/New_York")))) test(2379.10, as.IDate(c(a = 1), origin = c(b = "2020-01-01")), as.IDate(as.Date(c(a = 1), origin = c(b = "2020-01-01")))) -test(2379.11, as.IDate(c(a = 20.5), origin="2020-01-01"), structure(as.IDate("2020-01-21"), names="a")) +test(2379.11, as.IDate(c(a = 20.5), origin="2020-01-01"), setNames(as.IDate("2020-01-21"), "a")) d = c(a="2020-01-02") a = c(a=1L) test(2379.12, as.IDate(d) + 1L, as.IDate(as.Date(d) + 1L))