tests/testthat/test-pmx-vpc-bin.R

In ggPMXdevelopment/ggPMX: 'ggplot2' Based Tool to Facilitate Diagnostic Plots for NLME Models

if (helper_skip()) {

  library(ggPMX)
  ctr <- theophylline()

  context("Test pmx_vpc_bin function")

  test_that("pmx_vpc_bin: params result: identical type", {
    p <- ctr %>% pmx_vpc_bin()
    expect_true(inherits(p, "list"))
    expect_identical(pmx_vpc_bin(), NULL)
  })


  test_that("pmx_vpc_bin: params result:  ", {
    p <- ctr %>% pmx_vpc_bin(style = "equal")
    styles <- c("fixed", "sd", "equal", "pretty", "quantile", "kmeans", "hclust", "jenks")
    expect_true(is.element(p$style, styles))
  })


  test_that("pmx_vpc_bin: params result: error", {
    expect_error(ctr %>% pmx_vpc_bin(style = c("sd", "jenks"), within_strat = FALSE))
  })


  test_that("pmx_vpc_bin: params result: identical type", {
    p <- pmx_vpc_bin()
    expect_identical(p, NULL)
  })
}