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)))


  }
)