tests/testthat/test_source.R

In sketch: Interactive Sketches

testthat::context("Test source files")

md5hash <- function(x) as.character(tools::md5sum(x))

testthat::test_that("Source sketch R script", {
    testthat::skip_on_os("windows") # see notes at the bottom of "test_assets.R"

    file <- system.file("test_files/test_sketch_basic.R", package = "sketch")
    output_file <- source_r(file, debug = TRUE, launch_browser = NULL)
    testthat::expect_equal(
        md5hash(output_file),
        "1710008f6cee4d0b283dfae2fe436f34"
    )

    output_file <- source_r(file, launch_browser = "NULL") # NULL in string is intentional here
    testthat::expect_equal(
        md5hash(output_file),
        "24578465eee10b27fe3c6a83098e3098"
    )

    # Need to set path so that referencing to another file would work
    current_wd <- getwd()
    dir <- system.file("test_files", package = "sketch")
    file <- "test_sketch.R"
    setwd(dir)
    output_file <- source_r(file, launch_browser = NULL)
    testthat::expect_equal(
        md5hash(output_file),
        "8b7958d316c698a7b7c1519d7203abc5"
    )
    setwd(current_wd)
})


testthat::test_that("basic_tags()", {
    # Simple file structure
    file <- system.file("test_files/test_sketch_basic.R", package = "sketch")
    output_file <- source_r(file, debug = TRUE, launch_browser = NULL)
    output_file_2 <- source_r(file, debug = TRUE, launch_browser = NULL,
                              asset_tags = basic_tags())
    testthat::expect_gt(
        file.size(output_file),   # with R functions
        file.size(output_file_2)  # without R functions
    )

    # With recursive dependencies
    current_wd <- getwd()
    dir <- system.file("test_files", package = "sketch")
    file <- "test_sketch.R"
    setwd(dir)
    file <- system.file("test_files/test_sketch.R", package = "sketch")
    output_file <- source_r(file, debug = TRUE, launch_browser = NULL)
    output_file_2 <- source_r(file, debug = TRUE, launch_browser = NULL,
                              asset_tags = basic_tags())
    testthat::expect_gt(
        file.size(output_file),   # with R functions
        file.size(output_file_2)  # without R functions
    )
    setwd(current_wd)
})