Add tests for uncovered functionality in 'util-misc' and 'util-networks'

Signed-off-by: Maximilian Löffler <[email protected]>

tests/test-misc.R

@@ -19,6 +19,35 @@
 ## All Rights Reserved.
 
 
+## / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
+## Network data ------------------------------------------------------------
+
+test_that("Get edgelist augmented with timestamps", {
+
+    ## construct network
+    edges = list(list("A", "A"), list("D", "C"), list("C", "A"), list("B", "C"))
+    timestamps = c("2016-12-07 15:30:02", "2016-08-07 15:37:02", "2016-07-12 15:59:25", "2016-07-12 15:59:59")
+    network =
+        igraph::make_empty_graph(n = 0, directed = TRUE) +
+        igraph::vertices("A", "B", "C", "D") +
+        igraph::edges(edges, relation = "mail", date = timestamps)
+
+
+    ## get edgelist augmented with timestamps
+    edgelist = get.edgelist.with.timestamps(network)
+
+    ## check correctness
+    expect_equal(names(edgelist), c("from", "to", "date"))
+    expect_equal(nrow(edgelist), 4)
+    lapply(1:4, function(i) {
+        actual = edgelist[i, ]
+        expect_equal(actual[["from"]], edges[[i]][[1]])
+        expect_equal(actual[["to"]], edges[[i]][[2]])
+        expect_equal(actual[["date"]], timestamps[i])
+    })
+})
+
+
 ## / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
 ## Parameter verification --------------------------------------------------
 

tests/test-networks.R

@@ -271,6 +271,44 @@ test_that("Simplify multiple basic multi-relational networks", {
     }
 })
 
+test_that("Remove isolated vertices", {
+
+    ## construct network
+    edges = c("A", "A", "D", "C", "E", "C")
+    network =
+        igraph::make_empty_graph(n = 0, directed = TRUE) +
+        igraph::vertices("A", "B", "C", "D", "E", "F") +
+        igraph::edges(edges, relation = "cochange")
+
+    ## remove isolate vertices
+    network = delete.isolates(network)
+
+    ## check correctness
+    expect_identical(igraph::vertex_attr(network, "name"), c("A", "C", "D", "E"))
+
+})
+
+test_that("Remove isolated authors given a specific edge type", {
+
+    ## construct network
+    edges_inter = c("A", "A", "D", "C", "E", "C")
+    edges_intra = c("F", "D", "A", "E", "D", "B")
+    network =
+        igraph::make_empty_graph(n = 0, directed = TRUE) +
+        igraph::vertices("A", "B", "C", "D", "E", "F", type = TYPE.AUTHOR) +
+        igraph::edges(edges_inter, relation = "cochange", type = TYPE.EDGES.INTER) +
+        igraph::edges(edges_intra, relation = "cochange", type = TYPE.EDGES.INTRA)
+
+    ## remove isolate vertices
+    network.without.isolates.inter = delete.authors.without.specific.edges(network, specific.edge.type = TYPE.EDGES.INTER)
+    network.without.isolates.intra = delete.authors.without.specific.edges(network, specific.edge.type = TYPE.EDGES.INTRA)
+
+    ## check correctness
+    expect_identical(igraph::vertex_attr(network.without.isolates.inter, "name"), c("A", "C", "D", "E"))
+    expect_identical(igraph::vertex_attr(network.without.isolates.intra, "name"), c("A", "B", "D", "E", "F"))
+
+})
+
 
 ## / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
 ## Merge -------------------------------------------------------------------