# is_r_devel ----

test_that("is_r_devel works as expected", {
  expect_flag(is_r_devel())
})

# is_linux ----

test_that("is_linux works as expected", {
  expect_flag(is_linux())
})

# get_compiler ----

test_that("get_compiler works as expected", {
  expect_string(get_compiler())
})

# is_using_clang ----

test_that("is_using_clang works as expected", {
  expect_flag(is_using_clang())
})

test_that("is_using_clang gives the same information as R_compiled_by in recent R versions", {
  skip_if(getRversion() < "4.3")
  result <- is_using_clang()
  expected <- grepl("clang", R_compiled_by()["C"]) # Only available from R 4.3 onward.
  expect_identical(result, expected)
})

# parse_clang_major ----

test_that("parse_clang_major works as expected", {
  result <- parse_clang_major("Debian clang version 17.0.6 (3)")
  expected <- 17L
  expect_identical(result, expected)
})

# get_clang_major ----

test_that("get_clang_major works as expected", {
  skip_if(!is_using_clang())
  result <- get_clang_major()
  expect_int(result)
})

# is_non_standard_clang ----

test_that("is_non_standard_clang works as expected for Fedora", {
  os_string <- "Fedora Linux 36 (Workstation Edition)"
  expect_false(is_non_standard_clang(os_string, clang_major_version = 14L))
  expect_false(is_non_standard_clang(os_string, clang_major_version = 13L))
  expect_true(is_non_standard_clang(os_string, clang_major_version = 15L))
})

test_that("is_non_standard_clang returns FALSE for non-listed Fedora versions", {
  os_string <- "Fedora Linux 12"
  expect_false(is_non_standard_clang(os_string, clang_major_version = 14L))
  expect_false(is_non_standard_clang(os_string, clang_major_version = 13L))
  expect_false(is_non_standard_clang(os_string, clang_major_version = 15L))
})

test_that("is_non_standard_clang works as expected for Debian", {
  os_string <- "Debian GNU/Linux trixie/sid"
  expect_false(is_non_standard_clang(os_string, clang_major_version = 16L))
  expect_false(is_non_standard_clang(os_string, clang_major_version = 15L))
  expect_true(is_non_standard_clang(os_string, clang_major_version = 17L))
})

test_that("is_non_standard_clang returns FALSE for non-listed Debian versions", {
  os_string <- "Debian GNU/Linux bla"
  expect_false(is_non_standard_clang(os_string, clang_major_version = 14L))
  expect_false(is_non_standard_clang(os_string, clang_major_version = 13L))
  expect_false(is_non_standard_clang(os_string, clang_major_version = 15L))
})

test_that("is_non_standard_clang returns FALSE for other Linux distributions", {
  os_string <- "Solaris"
  expect_false(is_non_standard_clang(os_string, clang_major_version = 14L))
  expect_false(is_non_standard_clang(os_string, clang_major_version = 13L))
  expect_false(is_non_standard_clang(os_string, clang_major_version = 15L))
})

# is_r_devel_linux_clang ----

test_that("is_r_devel_linux_clang works as expected", {
  expect_flag(is_r_devel_linux_clang())
})