tests/testthat/test_QueryNode.R

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

# Testing QueryNode
test_that("QueryNode returns correct structure for terminal node", {
  search_operator <- DefaultOperator("4HHB")
  result <- QueryNode(search_operator)
  expect_equal(result$type, "terminal")
  expect_equal(result$service, infer_search_service(search_operator))
  expect_equal(result$parameters, search_operator)
})

test_that("QueryNode returns correct structure for group node", {
  queries <- list(DefaultOperator("4HHB"), ExactMatchOperator("rcsb_entry_info.resolution_combined", "2.0"))
  query_group <- QueryGroup(queries, "AND")
  result <- QueryNode(query_group)
  expect_equal(result$type, "group")
  expect_equal(result$nodes, query_group)
})