tests/testthat/test_ExactMatchOperator.R

# Testing ExactMatchOperator
test_that("ExactMatchOperator returns correct structure", {
  attribute <- "rcsb_entry_info.resolution_combined"
  value <- "2.0"
  result <- ExactMatchOperator(attribute, value)
  expect_equal(result$attribute, attribute)
  expect_equal(result$value, value)
  expect_equal(result$operator, "exact_match")
  expect_s3_class(result, "ExactMatchOperator")
})

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.