source(file.path("..", "r-minor-helpers.R"))

test_that("pure-r (NeedsCompilation != yes) is not sensitive", {
  expect_identical(classify_from_metadata("no", NA, c("Rcpp")), "not-sensitive")
  expect_identical(
    classify_from_metadata("", "Rcpp", c("Rcpp")),
    "not-sensitive"
  )
})

test_that("LinkingTo a risky dep is sensitive (version constraints stripped)", {
  expect_identical(
    classify_from_metadata("yes", "Rcpp (>= 1.0)", c("Rcpp")),
    "sensitive"
  )
  expect_identical(
    classify_from_metadata("yes", "R6,\n  cpp11", c("Rcpp", "cpp11")),
    "sensitive"
  )
})

test_that("compiled but no risky LinkingTo is ambiguous (needs source)", {
  expect_identical(
    classify_from_metadata("yes", "R6", c("Rcpp", "cpp11")),
    "ambiguous"
  )
  expect_identical(classify_from_metadata("yes", NA, c("Rcpp")), "ambiguous")
})