tests/testthat/test-filter_greater_than.R

In eider: Declarative Feature Extraction from Tabular Data Records

test_that("filter_greater_than", {
  filtered_data <- filter_all(
    iris,
    list(
      type = "GT",
      value = 5,
      column = "Sepal.Length"
    )
  )
  expect_true(all(filtered_data$passed$Sepal.Length > 5))
})