Nothing
context("report_df")
test_that("Test an instance of report_df", {
skip_on_cran()
stacomi(database_expected = FALSE)
env_set_test_stacomi()
r_df <- new("report_df")
r_df <- choice_c(
r_df,
2,
horodatedebut = "2013-01-01",
horodatefin = "2013-12-31",
silent = TRUE
)
expect_gt(nrow(r_df@df@data),
0,
label = "There should be data loaded by the choice_c method in the data slot of
the ref_df slot,nrow(r_df@df@data)")
expect_s4_class(r_df,
"report_df")
expect_error(
BfDF <- choice_c(
r_df,
2,
horodatedebut = "2013 01 011",
horodatefin = "2013-12-31",
silent = TRUE
)
)
rm(list = ls(envir = envir_stacomi), envir = envir_stacomi)
})
test_that("report_df charge method works", {
skip_on_cran()
stacomi(database_expected = TRUE)
env_set_test_stacomi()
r_df <- new("report_df")
r_df <- choice_c(
r_df,
2,
horodatedebut = "2013-01-01",
horodatefin = "2013-12-31",
silent = TRUE
)
r_df <- charge(r_df, silent = TRUE)
r_df <- connect(r_df, silent = TRUE)
expect_equal(nrow(r_df@data), 5)
rm(list = ls(envir = envir_stacomi), envir = envir_stacomi)
})
test_that("report_df plot method works", {
stacomi(database_expected = FALSE)
data(r_df)
r_df <- r_df
# expect_error(expr,NA) tests for an absence of error
expect_error({
invisible(capture.output(plot(r_df, plot.type = "1", silent = TRUE)))
invisible(capture.output(plot(r_df,
plot.type = "2",
silent = TRUE,
main = "An example title")))
plot(r_df,
plot.type = "3",
silent = TRUE,
main = "An example title")
plot(r_df,
plot.type = "4",
silent = TRUE,
main = "An example title")}, NA)
rm(list = ls(envir = envir_stacomi), envir = envir_stacomi)
})
test_that("report_df summary method works", {
skip_on_cran()
stacomi(database_expected = FALSE)
data(r_df)
r_df <- r_df
#expected <- ifelse(Sys.getlocale(category = "LC_TIME")=="French_France.utf8", "statistiques", "summary")
expect_output(summary(r_df, silent = TRUE))
rm(list = ls(envir = envir_stacomi), envir = envir_stacomi)
})
test_that("report_df print method works", {
skip_on_cran()
stacomi(database_expected = FALSE)
data(r_df)
r_df <- r_df
expect_output(print(r_df))
rm(list = ls(envir = envir_stacomi), envir = envir_stacomi)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.