More coverage tests (#14)

Author: MichaelChirico

tests/testthat/test-bit.R

@@ -1,10 +1,3 @@
-library("testthat")
-library("bit")
-
-# expect_identical <- function(x, y, ...){
-#   stopifnot(identical(x,y))
-# }
-
 test_that("Can create zero length bit objects", {
   expect_identical(bit(), bit(0))
   expect_identical(as.bit(), bit(0))
@@ -451,3 +444,9 @@ test_that("aggregation functions work", {
   }
 
 })
+
+test_that("rev() methods work", {
+  x = c(FALSE, TRUE)
+  expect_identical(rev(as.bit(x)), as.bit(rev(x)))
+  expect_identical(rev(as.bitwhich(x)), as.bitwhich(rev(x)))
+})

tests/testthat/test-bitsort.R

@@ -231,4 +231,13 @@ test_that("bit_setops work", {
   expect_false(bit_setequal(x_na, y_na))
   expect_true(bit_setequal(x, x))
   expect_true(bit_setequal(x_na, x_na))
+
+  expect_identical(bit_rangediff(c(1L, 6L), c(3L, 4L)), c(1:2, 5:6))
+  expect_identical(bit_rangediff(c(6L, 1L), c(3L, 4L), revx=TRUE), -(1:6))
+  expect_identical(bit_rangediff(c(6L, 1L), c(3L, 4L), revx=TRUE, revy=TRUE), -c(1:2, 5:6))
+})
+
+test_that("bitsort works", {
+  expect_identical(bitsort(c(2L, 0L, 1L, NA, 2L)), c(0:2, 2L))
+  expect_identical(bitsort(c(2L, 0L, 1L, NA, 2L), na.last=TRUE), c(0:2, 2L, NA))
 })