.devel/testthat/test-owmax.R

In Rexamine/agop: Aggregation Operators and Preordered Sets

require('testthat')


test_that("owmax, owmin, wmax, wmin", {

   expect_equivalent(owmax(c(1,2,NA)), NA_real_)
   expect_error(owmax(numeric(0),  numeric(0)))
   expect_equivalent(owmax(1:10, 10:1), 5)
   expect_equivalent(owmax(10:1, 10:1), 5)
   expect_equivalent(owmax(1:10, 1:10), 10)
   expect_equivalent(owmax(c(1,6,3)), 6)

   expect_equivalent(wmax(c(1,2,NA)), NA_real_)
   expect_error(wmax(numeric(0),  numeric(0)))
   expect_equivalent(wmax(1:10, 1:10), 10)
   expect_equivalent(wmax(1:10, 10:1), 5)
   expect_equivalent(wmax(c(1,6,3)), 6)

   expect_equivalent(wmin(c(1,2,NA)), NA_real_)
   expect_error(wmin(numeric(0),  numeric(0)))
   expect_equivalent(wmin(1:10, 1:10), 1)
   expect_equivalent(wmin(1:10, 10:1), 6)
   expect_equivalent(wmin(c(1,6,3)), 1)

   expect_equivalent(owmin(c(1,2,NA)), NA_real_)
   expect_error(owmin(numeric(0),  numeric(0)))
   expect_equivalent(owmin(1:10, 1:10), 1)
   expect_equivalent(owmin(1:10, 10:1), 6)
   expect_equivalent(owmin(c(1,6,3)), 1)

})