tests/testthat/test-convert_logmar_to_etdrs.R

In admiralophtha: ADaM in R Asset Library - Ophthalmology

## Test 1: LogMAR converted correctly ----
test_that("convert_logmar_to_etdrs Test 1: LogMAR converted correctly", {
  input <- c(1.6, 1.5, 1.4, 1.3, 1.2, 1.1, -0.1)

  expected_output <- c(5, 10, 15, 20, 25, 30, 90)
  actual_output <- convert_logmar_to_etdrs(input)

  expect_equal(
    actual_output,
    expected_output,
  )
})