tests/testthat/test-system-release.R

In nealrichardson/distro: Linux Distribution Properties

with_mock_system_release <- function(string, expr) {
  with_mock(
    `distro:::have_lsb_release` = function() FALSE, # Make sure we don't call lsb_release
    `distro:::read_os_release` = function() NULL, # Or use /etc/os_release
    `distro:::read_system_release` = function() string,
    eval.parent(expr)
  )
}

test_that("system_release", {
  expect_equal(
    with_mock_system_release("CentOS Linux release 7.7.1908 (Core)", distro()),
    list(id = "centos", version = "7.7.1908", codename = NA, short_version = "7")
  )
})