tests/testthat/test-node_icc.R

In ILSM: Analyze Interconnection Structure of Tripartite Interaction Networks

test_that("Determine the type of matrices of inputing", {

   expect_error(node_icc(c(1:10)),
                "please check the type of 'network.or.subnet_mat1'")
   expect_error(node_icc(c("a", "b", "c")),
                "please check the type of 'network.or.subnet_mat1'")
   expect_error(node_icc(c(T, F, F, T, NA)),
                "please check the type of 'network.or.subnet_mat1'")
   expect_error(node_icc(matrix(1:10,2,5),c("a", "b", "c")),
                "please check the type of 'network.or.subnet_mat1'")

   m1<-matrix(1:10,5,2)
   rownames(m1)<-paste0("species",seq=1:5)
   m3<-matrix(1:12,6,2)
   rownames(m3)<-c(paste0("species",seq=1:5),NA)
   m4<-matrix(1:10,5,2)
   rownames(m4)<-c(paste0("species",seq=1:4),NA)
   m5<-matrix(1:15,5,3)
   rownames(m5)<-c(paste0("species",seq=1:4),NA)
   # m6<-matrix(1:18,6,3)
   # rownames(m6)<-paste0("species",seq=3:8)
   m7<-matrix(1:18,6,3)
   rownames(m7)<-c(paste0("species",seq=c(1,3,2,5,4)),NA)
   m8<-matrix(1:18,6,3)
   rownames(m8)<-c(paste0("species",seq=c(1,3,2,4)),NA,NA)
   expect_error(node_icc(m1,m7),
                "Please make sure the two matrices have appropriate row names. NA is not accepted.")
   expect_error(node_icc(m4,m5),
                "Please make sure the two matrices have appropriate row names. NA is not accepted.")
   expect_error(node_icc(m3,m7),
                "Please make sure the two matrices have appropriate row names. NA is not accepted.")
   expect_error(node_icc(m3,m8),
                "Please make sure the two matrices have appropriate row names. NA is not accepted.")
   expect_error(node_icc(m8,m3),
                "Please make sure the two matrices have appropriate row names. NA is not accepted.")
})


test_that("Make sure the function is implemented", {

   #' @srrstats {G5.7} The software ensures the high efficiency of algorithm performance.

   m1<-matrix(sample(c(rep(1,5),rep(0,5))),5,2)
   rownames(m1)<-paste0("species",seq=1:5)
   m2<-matrix(sample(c(rep(1,7),rep(0,8))),5,3)
   rownames(m2)<-c(paste0("species",seq=c(1,3,2,5,4)))
   N<-node_icc(m1,m2)
   expect_identical(colnames(node_icc(m1,m2))[2:4],
                    c("interconnection_degree","interconnection_betweenness","interconnection_closeness"))

   expect_identical(class(node_icc(m1,m2)),
                    "data.frame")
   expect_identical(class(N),
                    "data.frame")
   expect_identical(ncol(N),
                    4L)
   expect_length(rownames(N),
                 3L)
})