R devel - May 2017 - [R] R-3.4.0 fails test

On 2017-05-17 09:42, Patrick Connolly wrote:
> After installing R-3.4.0 I ran 'make check'  which halted here:
> 
> $ > tail reg-tests-1d.Rout.fail -n 16
This problem was brought up on the R-devel list early this morning.  See 
https://stat.ethz.ch/pipermail/r-devel/2017-May/074275.html


Henric Winell



>> ## format()ing invalid hand-constructed  POSIXlt  objects
>> d <- as.POSIXlt("2016-12-06"); d$zone <- 1
>> tools::assertError(format(d))
>> d$zone <- NULL
>> stopifnot(identical(format(d),"2016-12-06"))
>> d$zone <- "CET" # = previous, but 'zone' now is
last
>> tools::assertError(format(d))
>> dlt <- structure(
> +     list(sec = 52, min = 59L, hour = 18L, mday = 6L, mon = 11L, year =
116L,
> +          wday = 2L, yday = 340L, isdst = 0L, zone = "CET",
gmtoff = 3600L),
> +     class = c("POSIXlt", "POSIXt"), tzone =
c("", "CET", "CEST"))
>> dlt$sec <- 10000 + 1:10 # almost three hours & uses re-cycling
..
>> fd <- format(dlt)
>> stopifnot(length(fd) == 10, identical(fd, format(dct <-
as.POSIXct(dlt))))
> Error: identical(fd, format(dct <- as.POSIXct(dlt))) is not TRUE
> Execution halted
> 
> ... so, of course, the remaining tests aren't done.
> 
> AFAICT, that test will fail anywhere outside of tzone CET, but I could
> be missing something.
> 
> What is the point of this test and is there a better way to move on to
> the remaining tests besides editing the corresponding .R file?
> 
> Changing the line
> 
>> stopifnot(length(fd) == 10, identical(fd, format(dct <-
as.POSIXct(dlt))))
> to
>> stopifnot(length(fd) == 10, identical(fd, format(dct <-
as.POSIXlt(dlt))))
>                                                                  ^^^^
> would pass.  But would that be any use?
> 
> TIA
> 
> (Linux Mint 17.3)
>

On Wed, 17-May-2017 at 01:21PM +0200, Peter Dalgaard wrote:

|> 
|> Anyways, you might want to 
|> 
|> a) move the discussion to R-devel
|> b) include your platform (hardware, OS) and time zone info

System:    Host: MTA-V1-427894 Kernel: 3.19.0-32-generic x86_64 (64 bit gcc:
4.8.2)
           Desktop: KDE Plasma 4.14.2 (Qt 4.8.6) Distro: Linux Mint 17.3 Rosa
Machine:   System: innotek product: VirtualBox v: 1.2
           Mobo: Oracle model: VirtualBox v: 1.2 Bios: innotek v: VirtualBox
date: 12/01/2006
CPU:       Quad core Intel Core i7-4790 (-MCP-) cache: 8192 KB
           flags: (lm nx sse sse2 sse3 sse4_1 sse4_2 ssse3) bmips: 28734
           clock speeds: max: 3591 MHz 1: 3591 MHz 2: 3591 MHz 3: 3591 MHz 4:
3591 MHz
Graphics:  Card: InnoTek Systemberatung VirtualBox Graphics Adapter bus-ID:
00:02.0
           Display Server: X.Org 1.17.1 drivers: vboxvideo (unloaded:
fbdev,vesa) Resolution: 1920x1080 at 60.0hz
           GLX Renderer: Chromium GLX Version: 2.1 Chromium 1.9 Direct
Rendering: Yes
Audio:     Card Intel 82801AA AC'97 Audio Controller driver: snd_intel8x0
ports: d100 d200 bus-ID: 00:05.0
           Sound: Advanced Linux Sound Architecture v: k3.19.0-32-generic
Network:   Card: Intel 82540EM Gigabit Ethernet Controller
           driver: e1000 v: 7.3.21-k8-NAPI port: d240 bus-ID: 00:08.0
           IF: eth0 state: up speed: 1000 Mbps duplex: full mac: <filter>
Drives:    HDD Total Size: 131.7GB (56.5% used) ID-1: /dev/sda model:
VBOX_HARDDISK size: 131.7GB
Partition: ID-1: / size: 117G used: 66G (60%) fs: ext4 dev: /dev/sda1
           ID-2: swap-1 size: 4.16GB used: 0.00GB (0%) fs: swap dev: /dev/sda5
RAID:      No RAID devices: /proc/mdstat, md_mod kernel module present
Sensors:   None detected - is lm-sensors installed and configured?
Info:      Processes: 256 Uptime: 17:01 Memory: 3533.8/14955.3MB Init: Upstart
runlevel: 2 Gcc sys: 4.8.4
           Client: Shell (bash 4.3.111) inxi: 2.2.28 


Time zone: NZST

|> c) run the offending code lines "by hand" and show us the values
of format(dlt) and format(dct) so we can see what the problem is, something like
|> 
|> dlt <- structure(
|>     list(sec = 52, min = 59L, hour = 18L, mday = 6L, mon = 11L, year =
116L,
|>        wday = 2L, yday = 340L, isdst = 0L, zone = "CET", gmtoff
= 3600L),
|>        class = c("POSIXlt", "POSIXt"), tzone =
c("", "CET", "CEST"))
|> dlt$sec <- 10000 + 1:10 
|> dct <- as.POSIXct(dlt)
|> cbind(format(dlt), format(dct))
> cbind(format(dlt), format(dct))
      [,1]                  [,2]                 
 [1,] "2016-12-06 21:45:41" "2016-12-06 22:45:41"
 [2,] "2016-12-06 21:45:42" "2016-12-06 22:45:42"
 [3,] "2016-12-06 21:45:43" "2016-12-06 22:45:43"
 [4,] "2016-12-06 21:45:44" "2016-12-06 22:45:44"
 [5,] "2016-12-06 21:45:45" "2016-12-06 22:45:45"
 [6,] "2016-12-06 21:45:46" "2016-12-06 22:45:46"
 [7,] "2016-12-06 21:45:47" "2016-12-06 22:45:47"
 [8,] "2016-12-06 21:45:48" "2016-12-06 22:45:48"
 [9,] "2016-12-06 21:45:49" "2016-12-06 22:45:49"
[10,] "2016-12-06 21:45:50" "2016-12-06
22:45:50"
> 

-- 
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.   
   ___    Patrick Connolly   
 {~._.~}                   Great minds discuss ideas    
 _( Y )_  	         Average minds discuss events 
(:_~*~_:)                  Small minds discuss people  
 (_)-(_)  	                      ..... Eleanor Roosevelt
	  
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.