SCM

SCM Repository

[matrix] Diff of /branches/Matrix-mer2/tests/validObj.R
ViewVC logotype

Diff of /branches/Matrix-mer2/tests/validObj.R

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

revision 611, Fri Mar 4 17:34:45 2005 UTC revision 612, Fri Mar 4 17:35:12 2005 UTC
# Line 22  Line 22 
22      invisible(t.res)      invisible(t.res)
23  }  }
24    
25  ## "dMatrix"  ### --- "dMatrix" ---
26  str(new("Matrix"))  ## the empty ones:
27    chk.matrix(new("Matrix"))
28    chk.matrix(new("dMatrix"))
29    chk.matrix(new("ddenseMatrix"))
30    chk.matrix(new("dgeMatrix"))
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'
 if(FALSE)## FIXME: this creates an integer '@ x' !  
34  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'
35  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
36  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 59  Line 62 
62  ### Very basic  triangular matrix stuff  ### Very basic  triangular matrix stuff
63    
64  assertError( new("dtrMatrix", Dim = c(2,2), x= 1:4) )# double 'Dim'  assertError( new("dtrMatrix", Dim = c(2,2), x= 1:4) )# double 'Dim'
 if(FALSE)## FIXME: this creates an integer '@ x' !  
65  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'
66  ## This caused a segfault (before revision r1172 in ../src/dtrMatrix.c):  ## This caused a segfault (before revision r1172 in ../src/dtrMatrix.c):
67  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.611  
changed lines
  Added in v.612

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