# test_that(
#   "Test changing data class of i_labelled objects", {
#
#     # data to character
#     x <- i_labelled(iris$Species, label = "Species")
#     y <- i_data_to_character(x)
#     expect_equal(class(y), c("i_labelled", "double"))
#     expect_equal(`attributes<-`(y, NULL)[1:5], c("1","1","1","1","1"))
#     expect_equal(attr(y, "label", T), "Species")
#     expect_equal(names(attr(y, "labels", T)), c("setosa","versicolor", "virginica"))
#     expect_equal(unname(attr(y, "labels", T)), c(1,2,3))
#
#     # data to integer
#     x <- i_labelled(seq(1,5,.5), label = "Species")
#     y <- i_data_to_integer(x)
#     expect_equal(class(y), c("i_labelled", "double"))
#     expect_equal(`attributes<-`(y, NULL)[1:5], c(1,1,2,2,3))
#     expect_equal(attr(y, "label", T), "Species")
#     expect_warning(i_data_to_integer(i_labelled(as.character(iris$Species))))
#     z <- suppressWarnings(i_data_to_integer(i_labelled(as.character(iris$Species))))
#     expect_true(all(is.na(z)))
#
#
#   }
# )