tests/testthat/test-parse-context-node.R

In bkkkk/omnifocusR: Retrieve Task and Project Data from your OmniFocus Database

context("test-parse-context-node")

test_that("Parsing a context node works", {
  ns <- xml_ns(test_document_with_one_context)
  result <- parse_context_node(xml_find_all(test_document_with_one_context, "./d1:context", ns), ns)
  
  expect_length(result, 2)
  expect_equal(result$context_id, 'nIr8xE7NZof')
  expect_equal(result$name, 'Waiting')
})