fix search tests to sleep before Search() call to allow data to be found

Author: sckott

tests/testthat/test-search.r

@@ -12,7 +12,6 @@ test_that("basic search works", {
 })
 
 test_that("search for document type works", {
-
   b <- Search(index="shakespeare", type="line")
   expect_match(vapply(b$hits$hits, "[[", "", "_type"), "line")
 })
@@ -44,42 +43,43 @@ test_that("getting json data back from search works", {
   expect_is(jsonlite::fromJSON(f), "list")
 })
 
-test_that("Search works with special characters", {
-  if (index_exists("a+b")) {
-    invisible(index_delete("a+b"))
-  }
+test_that("Search works with special characters - +", {
+  invisible(tryCatch(index_delete("a+b"), error = function(e) e))
   invisible(index_create("a+b"))
   invisible(docs_create(index = "a+b", type = "wiz", id=1, body=list(a="ddd", b="eee")))
 
-  vv <- Search(index = "a+b")
-  
-  expect_is(vv, "list")
-  expect_equal(length(vv$hits$hits), 1)
-  expect_equal(vapply(vv$hits$hits, "[[", "", "_index"), 'a+b')
+  Sys.sleep(1)
+  aplusb <- Search(index = "a+b")
 
-  if (index_exists("a^z")) {
-    invisible(index_delete("a^z"))
-  }
-  index_create("a^z")
+  expect_is(aplusb, "list")
+  expect_equal(length(aplusb$hits$hits), 1)
+  expect_equal(vapply(aplusb$hits$hits, "[[", "", "_index"), 'a+b')
+})
+
+test_that("Search works with special characters - ^", {
+  invisible(tryCatch(index_delete("a^z"), error = function(e) e))
+  invisible(index_create("a^z"))
   invisible(docs_create(index = "a^z", type = "bang", id=1, body=list(a="fff", b="ggg")))
 
-  vv <- Search(index = "a^z")
+  Sys.sleep(1)
+  ahatz <- Search(index = "a^z")
 
-  expect_is(vv, "list")
-  expect_equal(length(vv$hits$hits), 1)
-  expect_equal(vapply(vv$hits$hits, "[[", "", "_index"), 'a^z')
+  expect_is(ahatz, "list")
+  expect_equal(length(ahatz$hits$hits), 1)
+  expect_equal(vapply(ahatz$hits$hits, "[[", "", "_index"), 'a^z')
+})
 
-  if (index_exists("a$z")) {
-    invisible(index_delete("a$z"))
-  }
-  index_create("a$z")
+test_that("Search works with special characters - $", {
+  invisible(tryCatch(index_delete("a$z"), error = function(e) e))
+  invisible(index_create("a$z"))
   invisible(docs_create(index = "a$z", type = "bang", id=1, body=list(a="fff", b="ggg")))
 
-  vv <- Search(index = "a$z")
+  Sys.sleep(1)
+  adollarz <- Search(index = "a$z")
 
-  expect_is(vv, "list")
-  expect_equal(length(vv$hits$hits), 1)
-  expect_equal(vapply(vv$hits$hits, "[[", "", "_index"), 'a$z')
+  expect_is(adollarz, "list")
+  expect_equal(length(adollarz$hits$hits), 1)
+  expect_equal(vapply(adollarz$hits$hits, "[[", "", "_index"), 'a$z')
 })
 
 test_that("Search works with wild card", {
@@ -88,19 +88,20 @@ test_that("Search works with wild card", {
   }
   invisible(index_create("voobardang1"))
   invisible(docs_create(index = "voobardang1", type = "wiz", id=1, body=list(a="ddd", b="eee")))
-  
+
   if (index_exists("voobardang2")) {
     invisible(index_delete("voobardang2"))
   }
   index_create("voobardang2")
   invisible(docs_create(index = "voobardang2", type = "bang", id=1, body=list(a="fff", b="ggg")))
 
-  vv <- Search(index = "voobardang*")
+  Sys.sleep(1)
+  aster <- Search(index = "voobardang*")
 
-  expect_is(vv, "list")
-  expect_equal(length(vv$hits$hits), 2)
-  expect_equal(vapply(vv$hits$hits, "[[", "", "_index"), c('voobardang1', 'voobardang2'))
-  expect_equal(vapply(vv$hits$hits, "[[", "", "_id"), c('1', '1'))
+  expect_is(aster, "list")
+  expect_equal(length(aster$hits$hits), 2)
+  expect_equal(vapply(aster$hits$hits, "[[", "", "_index"), c('voobardang1', 'voobardang2'))
+  expect_equal(vapply(aster$hits$hits, "[[", "", "_id"), c('1', '1'))
 })
 
 test_that("Search fails as expected", {