tests/testthat/test-1-test_match_order.R

In drake69/semseeker: Stochastic Epigenetic Mutations SEM Seeker

test_that("semseeker:::test_match_order", {

  ####################################################################################
  #same order
  testthat::expect_true( semseeker:::test_match_order( probe_features$ABSOLUTE,probe_features$ABSOLUTE  ) )

  ####################################################################################
  #ordre not matching
  testthat::expect_true( !semseeker:::test_match_order( probe_features$ABSOLUTE,sort(probe_features$ABSOLUTE, decreasing = TRUE)))

  ####################################################################################
  #values not matching
  testthat::expect_true( !semseeker:::test_match_order( probe_features[-nrow(probe_features),"ABSOLUTE"],probe_features[-1, "ABSOLUTE"] ))

  ####################################################################################
  #one of two is NULL
  testthat::expect_false( semseeker:::test_match_order( probe_features$ABSOLUTE,NULL) )

}
)