tests/testthat/test_ContainsPhraseOperator.R

In rPDBapi: A Comprehensive Interface for Accessing the Protein Data Bank

# Testing ContainsPhraseOperator
test_that("ContainsPhraseOperator returns correct structure", {
  attribute <- "rcsb_primary_citation.title"
  value <- "molecular dynamics"
  result <- ContainsPhraseOperator(attribute, value)
  expect_equal(result$attribute, attribute)
  expect_equal(result$value, value)
  expect_equal(result$operator, "contains_phrase")
  expect_s3_class(result, "ContainsPhraseOperator")
})