Test from false frame.plot

Author: ldecicco-USGS

tests/testthat/tests-par.R

@@ -27,4 +27,11 @@ test_that("graphics par behaves as expected",{
   expect_is(par("usr")[c(1,2)], 'numeric')
   expect_equal(par("usr")[c(1,2)],par()$usr[c(1,2)])
   expect_equal(gsplot::par("usr","mar"), graphics::par("usr","mar"))
+})
+
+test_that("No frame plot", {
+  gs <- gsplot(frame.plot=FALSE) %>%
+    points(3,2,cex=2)
+  expect_false(gs[['global']][['config']][['frame.plot']])
+  
 })