SCM

SCM Repository

[matrix] Diff of /pkg/tests/validObj.R
ViewVC logotype

Diff of /pkg/tests/validObj.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 656, Wed Mar 16 16:55:32 2005 UTC revision 657, Wed Mar 16 16:57:52 2005 UTC
# Line 31  Line 31 
31    
32  ## "dge"  ## "dge"
33  assertError( new("dgeMatrix", Dim = c(2,2), x= 1:4) )# double 'Dim'  assertError( new("dgeMatrix", Dim = c(2,2), x= 1:4) )# double 'Dim'
34    if(paste(R.version$major, R.version$minor, sep=".") >= "2.0.1")
35  assertError( new("dgeMatrix", Dim = as.integer(c(2,2)), x= 1:4) )# int 'x'  assertError( new("dgeMatrix", Dim = as.integer(c(2,2)), x= 1:4) )# int 'x'
36  assertError( new("dgeMatrix", Dim = 2:2, x=as.double(1:4)) )# length(Dim) !=2  assertError( new("dgeMatrix", Dim = 2:2, x=as.double(1:4)) )# length(Dim) !=2
37  assertError( new("dgeMatrix", Dim = as.integer(c(2,2)), x= as.double(1:5)))  assertError( new("dgeMatrix", Dim = as.integer(c(2,2)), x= as.double(1:5)))
# Line 67  Line 68 
68  ### Very basic  triangular matrix stuff  ### Very basic  triangular matrix stuff
69    
70  assertError( new("dtrMatrix", Dim = c(2,2), x= 1:4) )# double 'Dim'  assertError( new("dtrMatrix", Dim = c(2,2), x= 1:4) )# double 'Dim'
71    if(paste(R.version$major, R.version$minor, sep=".") >= "2.0.1")
72  assertError( new("dtrMatrix", Dim = as.integer(c(2,2)), x= 1:4) )# int 'x'  assertError( new("dtrMatrix", Dim = as.integer(c(2,2)), x= 1:4) )# int 'x'
73  ## This caused a segfault (before revision r1172 in ../src/dtrMatrix.c):  ## This caused a segfault (before revision r1172 in ../src/dtrMatrix.c):
74  assertError( new("dtrMatrix", Dim = 2:2, x=as.double(1:4)) )# length(Dim) !=2  assertError( new("dtrMatrix", Dim = 2:2, x=as.double(1:4)) )# length(Dim) !=2

Legend:
Removed from v.656  
changed lines
  Added in v.657

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge