Running ‘testthat.R’ [39s/99s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > if (packageVersion("testthat") >= "0.7.1.99") {
  +   library(testthat)  
  +   test_check("lubridate")
  + }
  Loading required package: lubridate
  
  Attaching package: 'lubridate'
  
  The following object is masked from 'package:base':
  
      date
  
  ── 1. Error: Comparison operators work with POSIX and Date objects (@test-ops-co
  CCTZ: Unrecognized output timezone: ""
  1: expect_true(ymd_hms("2016-01-03 00:00:00", tz = "") == "2016-01-03 00:00:00") at testthat/test-ops-compare.R:4
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: ymd_hms("2016-01-03 00:00:00", tz = "")
  5: .parse_xxx_hms(..., orders = c("ymdTz", "ymdT"), quiet = quiet, tz = tz, locale = locale, 
         truncated = truncated)
  6: parse_date_time(dates, orders, tz = tz, quiet = quiet, locale = locale)
  7: .local_parse(x[to_parse], TRUE)
  8: .parse_date_time(x, formats, tz = tz, quiet = quiet, locale = locale)
  9: .strptime(x, formats[[1]], tz = tz, quiet = quiet, locale = locale)
  10: force_tz(out, tzone = tz)
  11: C_force_tz(time, tz = tzone, roll)
  
  ── 2. Error: difftime comparison with periods works (@test-ops-compare.R#63)  ──
  Invalid timezone of input vector: ""
  1: expect_true(days(1) == (t + days(1)) - t) at testthat/test-ops-compare.R:63
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: t + days(1)
  5: t + days(1)
  6: add_period_to_date(e2, e1)
  7: update(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  8: update.POSIXt(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  9: do.call(update_date_time, c(list(object, roll = roll, week_start = week_start), list(...)))
  10: (function (object, years = integer(), months = integer(), days = integer(), mdays = integer(), 
         ydays = integer(), wdays = integer(), hours = integer(), minutes = integer(), 
         seconds = double(), tzs = NULL, roll = FALSE, week_start = 7) 
     {
         if (!length(object)) 
             return(object)
         if (length(days) > 0) 
             mdays = days
         updates <- list(year = years, month = months, yday = ydays, mday = mdays, wday = wdays, 
             hour = hours, minute = minutes, second = seconds)
         maxlen <- max(unlist(lapply(updates, length)))
         if (maxlen > 1) {
             for (nm in names(updates)) {
                 len <- length(updates[[nm]])
                 if (len != maxlen && len > 1) 
                     updates[[nm]] <- rep_len(updates[[nm]], maxlen)
             }
         }
         if (is.null(tzs)) 
             tzs <- tz(object)
         updates[["dt"]] <- as.POSIXct(object)
         updates[["roll"]] <- roll
         updates[["tz"]] <- tzs
         updates[["week_start"]] <- week_start
         reclass_date(do.call(C_update_dt, updates), object)
     })(structure(list(sec = 21.3145332336426, min = 34L, hour = 8L, mday = 19L, mon = 2, 
         year = 118L, wday = 1L, yday = 77L, isdst = 0L, zone = "CET", gmtoff = 3600L), .Names = c("sec", 
     "min", "hour", "mday", "mon", "year", "wday", "yday", "isdst", "zone", "gmtoff"), class = c("POSIXlt", 
     "POSIXt"), tzone = c("", "CET", "CEST")), roll = FALSE, week_start = 7, days = 20, 
         hours = 8, minutes = 34, seconds = 21.3145332336426)
  11: reclass_date(do.call(C_update_dt, updates), object)
  12: reclass_date.POSIXlt(do.call(C_update_dt, updates), object)
  13: as.POSIXlt(new)
  14: do.call(C_update_dt, updates)
  15: (function (dt, year, month, yday, mday, wday, hour, minute, second, tz = NULL, roll = FALSE, 
         week_start = 7L) 
     {
         .Call(`_lubridate_C_update_dt`, dt, year, month, yday, mday, wday, hour, minute, 
             second, tz, roll, week_start)
     })(year = integer(0), month = integer(0), yday = integer(0), mday = 20, wday = integer(0), 
         hour = 8, minute = 34, second = 21.3145332336426, dt = structure(1521444861.31453, class = c("POSIXct", 
         "POSIXt"), tzone = ""), roll = FALSE, tz = "", week_start = 7)
  
  ── 3. Failure: with_tz throws warning on unrecognized time zones (@test-timezone
  `with_tz(now(), "UTC")` produced warnings.
  
  ── 4. Failure: with_tz throws warning on unrecognized time zones (@test-timezone
  `with_tz(now(), "")` produced warnings.
  
  ── 5. Failure: with_tz throws warning on unrecognized time zones (@test-timezone
  `with_tz(now(), "America/New_York")` produced warnings.
  
  ── 6. Error: Updateing on seconds doesn't affect hours (@test-update.R#414)  ───
  Invalid timezone of input vector: ""
  1: `second<-`(`*tmp*`, value = 5) at testthat/test-update.R:414
  2: `second<-`(`*tmp*`, value = 5)
  3: x + seconds(value - second(x))
  4: x + seconds(value - second(x))
  5: add_period_to_date(e2, e1)
  6: update(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  7: update.POSIXt(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  8: do.call(update_date_time, c(list(object, roll = roll, week_start = week_start), list(...)))
  9: (function (object, years = integer(), months = integer(), days = integer(), mdays = integer(), 
         ydays = integer(), wdays = integer(), hours = integer(), minutes = integer(), 
         seconds = double(), tzs = NULL, roll = FALSE, week_start = 7) 
     {
         if (!length(object)) 
             return(object)
         if (length(days) > 0) 
             mdays = days
         updates <- list(year = years, month = months, yday = ydays, mday = mdays, wday = wdays, 
             hour = hours, minute = minutes, second = seconds)
         maxlen <- max(unlist(lapply(updates, length)))
         if (maxlen > 1) {
             for (nm in names(updates)) {
                 len <- length(updates[[nm]])
                 if (len != maxlen && len > 1) 
                     updates[[nm]] <- rep_len(updates[[nm]], maxlen)
             }
         }
         if (is.null(tzs)) 
             tzs <- tz(object)
         updates[["dt"]] <- as.POSIXct(object)
         updates[["roll"]] <- roll
         updates[["tz"]] <- tzs
         updates[["week_start"]] <- week_start
         reclass_date(do.call(C_update_dt, updates), object)
     })(structure(list(sec = 30.3383021354675, min = 35L, hour = 8L, mday = 19L, mon = 2, 
         year = 118L, wday = 1L, yday = 77L, isdst = 0L, zone = "CET", gmtoff = 3600L), .Names = c("sec", 
     "min", "hour", "mday", "mon", "year", "wday", "yday", "isdst", "zone", "gmtoff"), class = c("POSIXlt", 
     "POSIXt"), tzone = c("", "CET", "CEST")), roll = FALSE, week_start = 7, days = 19, 
         hours = 8, minutes = 35, seconds = 5)
  10: reclass_date(do.call(C_update_dt, updates), object)
  11: reclass_date.POSIXlt(do.call(C_update_dt, updates), object)
  12: as.POSIXlt(new)
  13: do.call(C_update_dt, updates)
  14: (function (dt, year, month, yday, mday, wday, hour, minute, second, tz = NULL, roll = FALSE, 
         week_start = 7L) 
     {
         .Call(`_lubridate_C_update_dt`, dt, year, month, yday, mday, wday, hour, minute, 
             second, tz, roll, week_start)
     })(year = integer(0), month = integer(0), yday = integer(0), mday = 19, wday = integer(0), 
         hour = 8, minute = 35, second = 5, dt = structure(1521444930.3383, class = c("POSIXct", 
         "POSIXt"), tzone = ""), roll = FALSE, tz = "", week_start = 7)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 2429 SKIPPED: 4 FAILED: 6
  1. Error: Comparison operators work with POSIX and Date objects (@test-ops-compare.R#4) 
  2. Error: difftime comparison with periods works (@test-ops-compare.R#63) 
  3. Failure: with_tz throws warning on unrecognized time zones (@test-timezones.R#82) 
  4. Failure: with_tz throws warning on unrecognized time zones (@test-timezones.R#83) 
  5. Failure: with_tz throws warning on unrecognized time zones (@test-timezones.R#84) 
  6. Error: Updateing on seconds doesn't affect hours (@test-update.R#414) 
  
  Error: testthat unit tests failed
  Execution halted