The R Project SVN R

Rev

Rev 70274 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 70274 Rev 70613
Line 48... Line 48...
48 
stopifnot(identical(getDataPart(m1), 1:3),
 48 
stopifnot(identical(getDataPart(m1), 1:3),
49 
	  identical(getDataPart(m2), 1:3),
 49 
	  identical(getDataPart(m2), 1:3),
50 
	  identical(S3Part(m1, strict=TRUE), 1:3),
 50 
	  identical(S3Part(m1, strict=TRUE), 1:3),
51 
	  identical(S3Part(m2, strict=TRUE), 1:3),
 51 
	  identical(S3Part(m2, strict=TRUE), 1:3),
52 
	  identical(2*pi, S3Part(nn, strict = TRUE)))
 52 
	  identical(2*pi, S3Part(nn, strict = TRUE)))
- 
 
 53 
 
- 
 
 54 
if(FALSE) ## --- all these fail still:
- 
 
 55 
stopifnot(
- 
 
 56 
    identical(as(1L, "numeric"), as.numeric(1L))
- 
 
 57 
    ,
- 
 
 58 
    identical(as(1L, "numeric"), 1.0)
- 
 
 59 
    ,
- 
 
 60 
    is.double(as(1L, "double"))
- 
 
 61 
    )