test_that("handelsregister search returns a tibble", {
  skip_if_offline()
  skip_on_cran()

  result <- handelsregister_search("Deutsche Bahn")
  expect_s3_class(result, "tbl_df")
  expect_gt(nrow(result), 0)
  expect_true(all(c("name", "court", "register_num", "state") %in% names(result)))
})