Tweak

Author: krlmlr

tests/testthat/test-read_graph.R

@@ -8,15 +8,15 @@ test_that("reading GraphML file works", {
 })
 
 test_that("reading graph in ncol format", {
-  library(igraph)
+  ncol_path <- tempfile("zoo", fileext = ".ncol")
   g <- make_graph(c(1, 2, 2, 3))
   write_graph(g, "zoo.ncol", "ncol")
-  expect_no_error(g2 <- read_graph("zoo.ncol", "ncol"))
+  expect_no_error(g2 <- read_graph(ncol_path, "ncol"))
 })
 
 test_that("reading graph in lgl format", {
-  library(igraph)
+  ncol_path <- tempfile("zoo", fileext = ".ncol")
   g <- make_graph(c(1, 2, 2, 3))
   write_graph(g, "zoo.lgl", "lgl")
-  expect_no_error(g2 <- read_graph("zoo.lgl", "lgl"))
+  expect_no_error(g2 <- read_graph(ncol_path, "lgl"))
 })