tests/testthat/test-repo-metrics.R

In analyticalmonk/Rperform: Rperform - Performance testing for R packages

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)