tests/testthat/test_DefaultOperator.R

# Testing DefaultOperator
test_that("DefaultOperator returns correct structure", {
  value <- "4HHB"
  result <- DefaultOperator(value)
  expect_equal(result$value, value)
  expect_s3_class(result, "DefaultOperator")
})

Try the rPDBapi package in your browser

Any scripts or data that you put into this service are public.

rPDBapi documentation built on Oct. 19, 2024, 5:08 p.m.