tests/testthat/test_structure.R

In mmostly-harmless/ggparty: 'ggplot' Visualizations for the 'partykit' Package

context("general structure and type based tests")
test_dataframe <- function(party_object){
  test_that("valid types in data frame", {
    expect_is(get_plot_data(party_object), "data.frame")
    expect_is(get_plot_data(party_object)$x, "numeric")
    expect_is(get_plot_data(party_object)$y, "numeric")
    expect_is(get_plot_data(party_object)$parent, "integer")
  })
}
test_dataframe(py)

test_structure <- function(party_object){
  test_that("valid structure", {
    plot <- ggparty(party_object)
    expect_is(plot,"ggplot")
    expect_is(party_object,"party")
  })
}
test_structure(py)