tests/testthat/test_provSummarize.R

In End-to-end-provenance/provSummarizeR: Summarizes Provenance Related to Inputs and Outputs of a Script or Console Commands

library(provSummarizeR)
library(testthat)

# Test prov.summarize.file
test.data <- system.file("testdata", "prov.json", package = "provSummarizeR", mustWork=TRUE)
test.expected <- system.file("testsummaries", "prov.expected", package = "provSummarizeR", mustWork=TRUE)
expect_known_output(prov.summarize.file(test.data, details = TRUE, check = FALSE), test.expected, update = FALSE)

# Test summaries that include error messages
test.data <- system.file("testdata", "warnings.json", package = "provSummarizeR", mustWork=TRUE)
test.expected <- system.file("testsummaries", "warnings.expected", package = "provSummarizeR", mustWork=TRUE)
expect_known_output(prov.summarize.file(test.data, details = TRUE, check = FALSE), test.expected, update = FALSE)

# Test console session
test.data <- system.file("testdata", "console.json", package = "provSummarizeR", mustWork=TRUE)
test.expected <- system.file("testsummaries", "console.expected", package = "provSummarizeR", mustWork=TRUE)
expect_known_output(prov.summarize.file(test.data, details = TRUE, check = FALSE), test.expected, update = FALSE)

# Test files & urls
test.data <- system.file("testdata", "files.json", package = "provSummarizeR", mustWork=TRUE)
test.expected <- system.file("testsummaries", "files.expected", package = "provSummarizeR", mustWork=TRUE)
expect_known_output(prov.summarize.file(test.data, details = TRUE, check = FALSE), test.expected, update = FALSE)

# Test details = FALSE
test.data <- system.file("testdata", "no-details.json", package = "provSummarizeR", mustWork=TRUE)
test.expected <- system.file("testsummaries", "no-details.expected", package = "provSummarizeR", mustWork=TRUE)
expect_known_output(prov.summarize.file(test.data, details = FALSE, check = FALSE), test.expected, update = FALSE)