library(testthat)
library(data.table)
library(DTwrappers2)

# Assign iris_dt to the global environment to ensure visibility
iris_dt <- as.data.table(iris)
assign("iris_dt", iris_dt, envir = globalenv())

describe("Functionality of dt.remove.erroneous.characters", {

  it("executes without errors and returns a data.table", {
    result <- dt.remove.erroneous.characters(dt.name = "iris_dt", threshold.for.numeric = 0.8)
    expect_true(is.data.table(result), "The result should be a data.table")
  })

})

# Cleanup: Remove iris_dt from the global environment after testing
rm("iris_dt", envir = globalenv())