inst/tests/test-orderer.r

context('orderer')

# TODO: Test on prediction as well

test_that("it orders a dataframe correctly", {
  iris2 <- iris
  orderer(iris2, 'Sepal.Length')
  expect_equal(iris2, iris[order(iris$Sepal.Length), ])
})
robertzk/syberiaMungebits documentation built on July 30, 2019, 3:37 p.m.