#     Tests for the rp.power function

# setwd('rpanel')
# library(devtools)
# library(testthat)
# load_all()

# For some unidentified reason, these checks fail in devtools::check()

# test_that('Standard calls', {
#    expect_no_error(pnl <- rp.power())
#    rp.control.dispose(pnl)
#    expect_no_error(rp.power(panel = FALSE, populations.showing = TRUE))
# })