tests/testthat/test-software_maintainability.R

test_that("Software maintainability index (MI) calculation works", {

  result <- software_maintainability("./test_file.R")

  expect_true(is.numeric(result))
  expect_equal( result, 112.9317, tolerance = 0.005 )
})
JSzitas/qa documentation built on Dec. 18, 2021, 12:28 a.m.