testthat::test_that("col_to_binaries", {
  test <-
    col_to_binaries(ex_survey, col = b_3, label_separator = "  -  ") |>
    dplyr::pull(`b_3___A bit`)
  testthat::expect_true(object = all(as.vector(test) %in% 0:1))
  testthat::expect_equal(attr(test, "label"),
                         expected = "How much do you like living in - Budapest  -  A bit")
  })