using 0-based indices in the tests.

apache · Sep 24, 2018 · bfe853d · bfe853d
1 parent b391556
commit bfe853d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/r/tests/testthat/test-Array.R b/r/tests/testthat/test-Array.R
@@ -53,8 +53,8 @@ test_that("Array", {
 })
 
 test_that("Array supports NA", {
-  x_int <- array(1:10, NA)
+  x_int <- array(as.integer(c(1:10, NA)))
   x_dbl <- array(as.numeric(c(1:10, NA)))
-  expect_true(x_int$IsNull(11))
-  expect_true(x_dbl$IsNull(11))
+  expect_true(x_int$IsNull(10))
+  expect_true(x_dbl$IsNull(10))
 })