library(Rperform)
library(testthat)
context("Check if repo metric functionalities work properly")
if(!dir.exists(paths = "./stringr")){
git2r::clone(url = "https://github.com/EngineerDanny/stringr", local_path = "./stringr")
}
setwd("./stringr")
test_that("Wrong parameter type results in error", {
expect_error(time_compare(test_path = "inst/tests/test-dup.r", num_commits = "5"))
expect_error(mem_compare(test_path = "inst/tests/test-dup.r", num_commits = "5"))
})
# test_that("Data frames returned by metric functions are of the correct dimensions",{
# expect_equal((ncol(time_compare(test_path = "tests/testthat/test-count.r", 2))), 6)
# expect_equal(ncol(mem_compare(test_path = "tests/testthat/test-count.r", 2)), 6)
#
# })
setwd("./../")
unlink(x = "./stringr", recursive = T, force = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.