Add another test for plot_AbanicoPlot()

tests/testthat/test_plot_AbanicoPlot.R

@@ -275,8 +275,15 @@ test_that("more coverage", {
 
   ), log.z = TRUE, summary = c("mean", "sd.abs")))
 
+ ## handling of negative values; but with zlim
+ expect_silent(plot_AbanicoPlot(data = data.frame(
+   x = c(-1,10),
+   y = c(0.1,3),
+   zlim = c(2,10)
+
+ ), log.z = TRUE, summary = c("mean", "sd.abs")))
+
  ## test lines 2144 onwards
- ## handling of negative values; before it produced wrong plots
  par(mfrow = c(4,4))
  expect_silent(plot_AbanicoPlot(data = data.frame(
    x = c(-1,10),
@@ -285,4 +292,13 @@ test_that("more coverage", {
  ), log.z = TRUE, summary = c("mean", "sd.abs")))
  par(mfrow = c(1,1))
 
+ ## test lines 2888 onwards (same was above, just with the rotated plot)
+ par(mfrow = c(3,3))
+ expect_silent(plot_AbanicoPlot(data = data.frame(
+   x = c(-1,10),
+   y = c(0.1,3)
+
+ ), log.z = TRUE, rotate = TRUE))
+ par(mfrow = c(1,1))
+
 })