test_that("dataquieR_resultset2 works", {
    # Call the function
  result <- dataquieR_resultset2(a = 1, b = 2, c = 3)

  # Check that the result is a dataquieR_resultset_class2
  expect_is(result, "dataquieR_resultset2")
})