Better test

Author: ldecicco-USGS

tests/testthat/tests-config.R

@@ -32,26 +32,35 @@ test_that("non-existant type hits error", {
 })
 
 test_that("config temp", {
+  orig.par <- par(no.readonly = TRUE)
   df <- data.frame(x = 1:10, y=1:10, z = seq(2,20,2))
 
   gsp <- gsplot(config.file = system.file("extdata", "lineScatter.yaml", package = "gsplot")) %>%
     lines(df$x, df$y, col="red", legend.name = "points") %>%
     legend()
   expect_true(gsp$global$config$config.file)
+  expect_equal(par(no.readonly = TRUE)$lwd, orig.par$lwd)
+  gsp
   expect_equal(par(no.readonly = TRUE)$lwd, 0.8)
 
   gspDef <- gsplot() %>%
     lines(df$x, df$y, col="red", legend.name = "points") 
   expect_false(gspDef$global$config$config.file)
-  expect_equal(par(no.readonly = TRUE)$lwd, 1)
+  expect_equal(par(no.readonly = TRUE)$lwd, orig.par$lwd)
 
   loadConfig(system.file("extdata", "lineScatter.yaml", package = "gsplot"))
+  expect_equal(par(no.readonly = TRUE)$lwd, orig.par$lwd)
+  
   gsp <- gsplot() %>%
     lines(df$x, df$y, col="red", legend.name = "points") 
+  expect_equal(par(no.readonly = TRUE)$lwd, orig.par$lwd)
   expect_false(gsp$global$config$config.file)
   expect_equal(gsp$side.1$axis$lwd, 0.8)
+  gsp
+  expect_equal(par(no.readonly = TRUE)$lwd, 0.8)
 
   loadConfig()
+  expect_equal(par(no.readonly = TRUE)$lwd, orig.par$lwd)
   gspDef2 <- gsplot() %>%
     lines(df$x, df$y, col="red", legend.name = "points") 
   expect_false(gspDef2$global$config$config.file)