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

describe("dt.min.numerics functionality", {

  it("computes minimum values correctly with grouping by species", {
    min_values <- dt.min.numerics(
      dt.name = "iris",
      the.variables = c("Sepal.Length", "Sepal.Width"),
      grouping.variables = "Species"
    )

    expected_min <- data.table(
      Species = factor(c("setosa", "versicolor", "virginica"), levels = c("setosa", "versicolor", "virginica")),
      Sepal.Length = c(4.3, 4.9, 4.9),
      Sepal.Width = c(2.3, 2.0, 2.2)
    )
    setorder(expected_min, Species)
    setattr(expected_min, 'sorted', 'Species')

    expect_equal(min_values, expected_min, info = "Computed min should match expected min")
  })

})