SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/tests/abIndex-tsts.R
ViewVC logotype

Diff of /pkg/Matrix/tests/abIndex-tsts.R

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

revision 2661, Wed Apr 6 06:55:54 2011 UTC revision 2902, Tue Sep 10 10:56:46 2013 UTC
# Line 96  Line 96 
96          for(v in ex.) {          for(v in ex.) {
97              va <- as(v, "abIndex")              va <- as(v, "abIndex")
98              for(s in list(-1, 17L, TRUE, FALSE)) {# numeric *and* logical              for(s in list(-1, 17L, TRUE, FALSE)) {# numeric *and* logical
99                  if(!(identical(s, FALSE) && ng == "/")) ## division by 0 often "fails"                  if(!((identical(s, FALSE) && ng == "/")) && ## division by 0 often "fails"
100                       (Sys.info()[["sysname"]] == "Linux" || .Platform$OS.type == "windows"))# not Solaris
101                  stopifnot(AEq(as(G(v, s), "abIndex"), G(va, s)),                  stopifnot(AEq(as(G(v, s), "abIndex"), G(va, s)),
102                            AEq(as(G(s, v), "abIndex"), G(s, va)))                            AEq(as(G(s, v), "abIndex"), G(s, va)))
103              }              }

Legend:
Removed from v.2661  
changed lines
  Added in v.2902

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