Running ‘TimeIn_DataFrame.R’ [1s/1s]
  Comparing ‘TimeIn_DataFrame.Rout’ to ‘TimeIn_DataFrame.Rout.save’ ... OK
  Running ‘posixst.R’ [1s/1s]
Running the tests in ‘tests/posixst.R’ failed.
Complete output:
  > #===========================================================
  > # The following code test if the POSIXst constructors are ok
  > # first serie of tests check the ranges of definition
  > library( timetools )
  
  Attaching package: 'timetools'
  
  The following object is masked from 'package:base':
  
      tapply
  
  > 
  > # all theses must raise an error
  > try( POSIXst(62, 'second', 'minute') )
  Error in validityMethod(object) : 
    For second of minute, object@subtime should be between 0 and 61
  > try( POSIXst(3602, 'second', 'hour') )
  Error in validityMethod(object) : 
    For second of hour, object@subtime should be between 0 and 3601
  > try( POSIXst(86402, 'second', 'day') )
  Error in validityMethod(object) : 
    For second of day, object@subtime should be between 0 and 86401
  > try( POSIXst(604802, 'second', 'week') )
  Error in validityMethod(object) : 
    For second of week, object@subtime should be between 0 and 604801
  > try( POSIXst(2678402, 'second', 'month') )
  Error in validityMethod(object) : 
    For second of month, object@subtime should be between 0 and 2678401
  > try( POSIXst(31622402, 'second', 'year') )
  Error in validityMethod(object) : 
    For second of year, object@subtime should be between 0 and 31622401
  > 
  > try( POSIXst(60, 'minute', 'hour') )
  Error in validityMethod(object) : 
    For minute of hour, object@subtime should be between 0 and 59
  > try( POSIXst(1440, 'minute', 'day') )
  Error in validityMethod(object) : 
    For minute of day, object@subtime should be between 0 and 1439
  > try( POSIXst(10080, 'minute', 'week') )
  Error in validityMethod(object) : 
    For minute of week, object@subtime should be between 0 and 10079
  > try( POSIXst(44640, 'minute', 'month') )
  Error in validityMethod(object) : 
    For minute of month, object@subtime should be between 0 and 44639
  > try( POSIXst(527040, 'minute', 'year') )
  Error in validityMethod(object) : 
    For minute of year, object@subtime should be between 0 and 527039
  > 
  > try( POSIXst(24, 'hour', 'day') )
  Error in validityMethod(object) : 
    For hour of day, object@subtime should be between 0 and 23
  > try( POSIXst(168, 'hour', 'week') )
  Error in validityMethod(object) : 
    For hour of week, object@subtime should be between 0 and 167
  > try( POSIXst(744, 'hour', 'month') )
  Error in validityMethod(object) : 
    For hour of month, object@subtime should be between 0 and 743
  > try( POSIXst(8784, 'hour', 'year') )
  Error in validityMethod(object) : 
    For hour of year, object@subtime should be between 0 and 8783
  > 
  > try( POSIXst(7, 'day', 'week') )
  Error in validityMethod(object) : 
    For day of week, object@subtime should be between 0 and 6
  > try( POSIXst(0, 'day', 'month') )
  Error in validityMethod(object) : 
    For day of month, object@subtime should be between 1 and 31
  > try( POSIXst(32, 'day', 'month') )
  Error in validityMethod(object) : 
    For day of month, object@subtime should be between 1 and 31
  > try( POSIXst(366, 'day', 'year') )
  Error in validityMethod(object) : 
    For day of year, object@subtime should be between 0 and 365
  > 
  > try( POSIXst(1, 'week', 'month') )
  Error in validityMethod(object) : week of month not implemented
  > try( POSIXst(1, 'week', 'year') )
  Error in validityMethod(object) : week of year not implemented
  > 
  > try( POSIXst(12, 'month') )
  Error in validityMethod(object) : 
    For month of year, object@subtime should be between 0 and 11
  > 
  > # all theses must succeed
  > POSIXst(c(0, 61), 'second', 'minute')
  [1] "0th second of minute"  "61st second of minute"
  > POSIXst(c(0, 3601), 'second', 'hour')
  [1] "0th second of hour"    "3601st second of hour"
  > POSIXst(c(0, 86401), 'second', 'day')
  [1] "0th second of day"     "86401st second of day"
  > POSIXst(c(0, 604801), 'second', 'week')
  [1] "0th second of week"      "604801st second of week"
  > POSIXst(c(0, 2678401), 'second', 'month')
  [1] "0th second of month"       "2678401st second of month"
  > POSIXst(c(0, 31622401), 'second', 'year')
  [1] "0th second of year"        "31622401st second of year"
  > 
  > POSIXst(c(0, 59), 'minute', 'hour')
  [1] "0th minute of hour"  "59th minute of hour"
  > POSIXst(c(0, 1439), 'minute', 'day')
  [1] "0th minute of day"    "1439th minute of day"
  > POSIXst(c(0, 10079), 'minute', 'week')
  [1] "0th minute of week"     "10079th minute of week"
  > POSIXst(c(0, 44639), 'minute', 'month')
  [1] "0th minute of month"     "44639th minute of month"
  > POSIXst(c(0, 527039), 'minute', 'year')
  [1] "0th minute of year"      "527039th minute of year"
  > 
  > POSIXst(c(0, 23), 'hour', 'day')
  [1] "0th hour of day"  "23rd hour of day"
  > POSIXst(c(0, 167), 'hour', 'week')
  [1] "0th hour of week"   "167th hour of week"
  > POSIXst(c(0, 743), 'hour', 'month')
  [1] "0th hour of month"   "743rd hour of month"
  > POSIXst(c(0, 8783), 'hour', 'year')
  [1] "0th hour of year"    "8783rd hour of year"
  > 
  > format(POSIXst(c(0, 6), 'day', 'week'), '%s %v of %m')
  [1] "day 0 of week" "day 6 of week"
  > POSIXst(c(1, 31), 'day', 'month')
  [1] "1st day of month"  "31st day of month"
  > POSIXst(c(0, 365), 'day', 'year')
  [1] "0th day of year"   "365th day of year"
  > 
  > format(POSIXst(c(0, 11), 'month'), '%s %v of %m')
  [1] "month 0 of year"  "month 11 of year"
  > 
  > #==============================================
  > # the following tests check posixst 'extractor'
  > 
  > cet <- as.POSIXct('2012-09-08 02:00', 'CET')
  > utc <- as.POSIXct('2012-09-08', 'UTC')
  > 
  > # in UTC
  > POSIXst(utc, 'second', 'minute')
  [1] "0th second of minute"
  > POSIXst(utc, 'second', 'hour')
  [1] "0th second of hour"
  > POSIXst(utc, 'second', 'day')
  [1] "0th second of day"
  > POSIXst(utc, 'second', 'week')
  [1] "518400th second of week"
  > POSIXst(utc, 'second', 'month')
  [1] "604800th second of month"
  > POSIXst(utc, 'second', 'year')
  [1] "21686400th second of year"
  > 
  > POSIXst(utc, 'minute', 'hour')
  [1] "0th minute of hour"
  > POSIXst(utc, 'minute', 'day')
  [1] "0th minute of day"
  > POSIXst(utc, 'minute', 'week')
  [1] "8640th minute of week"
  > POSIXst(utc, 'minute', 'month')
  [1] "10080th minute of month"
  > POSIXst(utc, 'minute', 'year')
  [1] "361440th minute of year"
  > 
  > POSIXst(utc, 'hour', 'day')
  [1] "0th hour of day"
  > POSIXst(utc, 'hour', 'week')
  [1] "144th hour of week"
  > POSIXst(utc, 'hour', 'month')
  [1] "168th hour of month"
  > POSIXst(utc, 'hour', 'year')
  [1] "6024th hour of year"
  > 
  > format(POSIXst(utc, 'day', 'week'), '%s %v of %m')
  [1] "day 6 of week"
  > POSIXst(utc, 'day', 'month')
  [1] "8th day of month"
  > POSIXst(utc, 'day', 'year')
  [1] "251st day of year"
  > 
  > format(POSIXst(utc, 'month'), '%s %v of %m')
  [1] "month 8 of year"
  > POSIXst(utc, 'year')
  [1] "year 2012"
  > 
  > # in CET
  > POSIXst(cet, 'second', 'minute')
  [1] "0th second of minute"
  > POSIXst(cet, 'second', 'hour')
  [1] "0th second of hour"
  > POSIXst(cet, 'second', 'day')
  [1] "7200th second of day"
  > POSIXst(cet, 'second', 'week')
  [1] "525600th second of week"
  > POSIXst(cet, 'second', 'month')
  [1] "612000th second of month"
  > POSIXst(cet, 'second', 'year')
  [1] "21693600th second of year"
  > 
  > POSIXst(cet, 'minute', 'hour')
  [1] "0th minute of hour"
  > POSIXst(cet, 'minute', 'day')
  [1] "120th minute of day"
  > POSIXst(cet, 'minute', 'week')
  [1] "8760th minute of week"
  > POSIXst(cet, 'minute', 'month')
  [1] "10200th minute of month"
  > POSIXst(cet, 'minute', 'year')
  [1] "361560th minute of year"
  > 
  > POSIXst(cet, 'hour', 'day')
  [1] "2nd hour of day"
  > POSIXst(cet, 'hour', 'week')
  [1] "146th hour of week"
  > POSIXst(cet, 'hour', 'month')
  [1] "170th hour of month"
  > POSIXst(cet, 'hour', 'year')
  [1] "6026th hour of year"
  > 
  > format(POSIXst(cet, 'day', 'week'), '%s %v of %m')
  [1] "day 6 of week"
  > POSIXst(cet, 'day', 'month')
  [1] "8th day of month"
  > POSIXst(cet, 'day', 'year')
  [1] "251st day of year"
  > 
  > format(POSIXst(cet, 'month'), '%s %v of %m')
  [1] "month 8 of year"
  > POSIXst(cet, 'year')
  [1] "year 2012"
  > 
  > # in UTC from CET. All must be TRUE
  > all.equal( POSIXst(cet, 'second', 'minute', 'UTC'), POSIXst(utc, 'second', 'minute') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'second', 'hour', 'UTC'), POSIXst(utc, 'second', 'hour') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'second', 'day', 'UTC'), POSIXst(utc, 'second', 'day') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'second', 'week', 'UTC'), POSIXst(utc, 'second', 'week') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'second', 'month', 'UTC'), POSIXst(utc, 'second', 'month') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'second', 'year', 'UTC'), POSIXst(utc, 'second', 'year') )
  [1] TRUE
  > 
  > all.equal( POSIXst(cet, 'minute', 'hour', 'UTC'), POSIXst(utc, 'minute', 'hour') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'minute', 'day', 'UTC'), POSIXst(utc, 'minute', 'day') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'minute', 'week', 'UTC'), POSIXst(utc, 'minute', 'week') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'minute', 'month', 'UTC'), POSIXst(utc, 'minute', 'month') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'minute', 'year', 'UTC'), POSIXst(utc, 'minute', 'year') )
  [1] TRUE
  > 
  > all.equal( POSIXst(cet, 'hour', 'day', 'UTC'), POSIXst(utc, 'hour', 'day') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'hour', 'week', 'UTC'), POSIXst(utc, 'hour', 'week') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'hour', 'month', 'UTC'), POSIXst(utc, 'hour', 'month') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'hour', 'year', 'UTC'), POSIXst(utc, 'hour', 'year') )
  [1] TRUE
  > 
  > all.equal( POSIXst(cet, 'day', 'week', 'UTC'), POSIXst(utc, 'day', 'week') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'day', 'month', 'UTC'), POSIXst(utc, 'day', 'month') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'day', 'year', 'UTC'), POSIXst(utc, 'day', 'year') )
  [1] TRUE
  > 
  > all.equal( POSIXst(cet, 'month', tz='UTC'), POSIXst(utc, 'month') )
  [1] TRUE
  > all.equal( POSIXst(cet, 'year', tz='UTC'), POSIXst(utc, 'year') )
  [1] TRUE
  > 
  > # in CET from UTC. All must be TRUE
  > all.equal( POSIXst(utc, 'second', 'minute', 'CET'), POSIXst(cet, 'second', 'minute') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'second', 'hour', 'CET'), POSIXst(cet, 'second', 'hour') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'second', 'day', 'CET'), POSIXst(cet, 'second', 'day') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'second', 'week', 'CET'), POSIXst(cet, 'second', 'week') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'second', 'month', 'CET'), POSIXst(cet, 'second', 'month') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'second', 'year', 'CET'), POSIXst(cet, 'second', 'year') )
  [1] TRUE
  > 
  > all.equal( POSIXst(utc, 'minute', 'hour', 'CET'), POSIXst(cet, 'minute', 'hour') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'minute', 'day', 'CET'), POSIXst(cet, 'minute', 'day') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'minute', 'week', 'CET'), POSIXst(cet, 'minute', 'week') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'minute', 'month', 'CET'), POSIXst(cet, 'minute', 'month') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'minute', 'year', 'CET'), POSIXst(cet, 'minute', 'year') )
  [1] TRUE
  > 
  > all.equal( POSIXst(utc, 'hour', 'day', 'CET'), POSIXst(cet, 'hour', 'day') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'hour', 'week', 'CET'), POSIXst(cet, 'hour', 'week') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'hour', 'month', 'CET'), POSIXst(cet, 'hour', 'month') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'hour', 'year', 'CET'), POSIXst(cet, 'hour', 'year') )
  [1] TRUE
  > 
  > all.equal( POSIXst(utc, 'day', 'week', 'CET'), POSIXst(cet, 'day', 'week') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'day', 'month', 'CET'), POSIXst(cet, 'day', 'month') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'day', 'year', 'CET'), POSIXst(cet, 'day', 'year') )
  [1] TRUE
  > 
  > all.equal( POSIXst(utc, 'month', tz='CET'), POSIXst(cet, 'month') )
  [1] TRUE
  > all.equal( POSIXst(utc, 'year', tz='CET'), POSIXst(cet, 'year') )
  [1] TRUE
  > 
  > #===================================
  > # test for Time*DataFrame extraction
  > 
  > ti <- RegularTimeInstantDataFrame('2012-01-01', '2012-01-01 02:23', 'second')
  Error in FUN(X[[i]], ...) : subscript out of bounds
  Calls: RegularTimeInstantDataFrame -> + -> + -> [[ -> [[.POSIXlt -> lapply
  Execution halted