tests/testthat/test-char.R

In decisionpatterns/ordering: Test, Check, Verify, Investigate the Monotonic Properties of Vectors

context("char")


# monotonic, sorted 
# increasing, decreasing 
# strictly,

int_strictly_increasing <- letters[ c(1:10) ]
int_strictly_decreasing <- letters[ c(10:1) ] 

x123 <- letters[ c(1,2,3) ]
x132 <- letters[ c(1,3,2) ]

x213 <- letters[ c(2,1,3) ] 
x231 <- letters[ c(2,3,1) ]

x312 <- letters[ c(3,1,2) ]
x321 <- letters[ c(3,2,1) ]

x1223 <- letters[ c(1,2,2,3) ]


test_that( "char", { 
  
  int_strictly_increasing %>% is_monotonic %>% expect_true()
  int_strictly_increasing %>% rev() %>% is_monotonic %>% expect_true()

  int_strictly_increasing %>% is_increasing() %>% expect_true()
  int_strictly_increasing %>% is_strictly_increasing() %>% expect_true()

  int_strictly_decreasing %>% is_decreasing() %>% expect_true()
  int_strictly_decreasing %>% is_strictly_decreasing() %>% expect_true()

  int_strictly_increasing %>% is_sorted %>% expect_true()
  int_strictly_decreasing %>% is_sorted %>% expect_true()
  
  int_strictly_increasing %>% monotonicity() %>% expect_equal(2)
  # int_strictly_decreasing %>% monotonicity() %>% expect_equal(-2)
  
})


context("char-strict")

x1223 <- letters[ c(1,2,2,3) ] 

test_that( "testing is_strictly_* functions", { 
  
  x1223 %>% is_monotonic() %>% expect_true()
  x1223 %>% is_strictly_monotonic() %>% expect_false()
  
  x1223 %>% is_increasing() %>% expect_true()
  x1223 %>% is_strictly_increasing() %>% expect_false()

  x1223 %>% is_decreasing() %>% expect_false()
  x1223 %>% is_strictly_decreasing() %>% expect_false() 

  x1223 %>% is_sorted() %>% expect_true()
  x1223 %>% is_strictly_sorted() %>% expect_false() 
  
})