tests/testthat/test_ExistsOperator.R

# Testing ExistsOperator
test_that("ExistsOperator returns correct structure", {
  attribute <- "rcsb_primary_citation.doi"
  result <- ExistsOperator(attribute)
  expect_equal(result$attribute, attribute)
  expect_equal(result$operator, "exists")
  expect_s3_class(result, "ExistsOperator")
})

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.