tests/testthat/test-import.R

In martingerdin/reporter: Compile a Data Review Report

context("Import functions")

test_that("import_codebook returns reporter_codebook", {
    path <- system.file("extdata", "codebook.csv", package = "reporter")
    expect_s3_class(import_codebook(path), "reporter_codebook")
})

test_that("import_codebook throws errors on faulty codebook", {
    path <- system.file("extdata", "faulty-codebook.csv", package = "reporter")
    expect_error(import_codebook(path), "The file that you")
})

test_that("import_dataset returns tibble", {
    path <- system.file("extdata", "dataset.csv", package = "reporter")
    expect_s3_class(import_dataset(path), "tbl_df")
})

test_that("import_dataset returns reporter_dataset", {
    path <- system.file("extdata", "dataset.csv", package = "reporter")
    expect_s3_class(import_dataset(path), "reporter_dataset")
})