tests/testthat/test_provParse3.R

In provParseR: Pulls Information from Prov.Json Files

library(provParseR)
library(testthat)

## Loading test data
test.data <- system.file("testdata", "prov2.json", package = "provParseR")
prov <- prov.parse(test.data)

context("Scripts access function")
scripts.df <- get.scripts(prov)
expect_match(class(scripts.df), "data.frame")
expect_equal(nrow(scripts.df), 5)

saved.scripts.df <- get.saved.scripts(prov)
expect_equal(nrow(saved.scripts.df), 5)
directory <- dirname (saved.scripts.df$script[1])
expect_true(endsWith (directory, "inst/testscripts/prov_prov2/scripts"))