diff --git a/tests/testthat/test-search.r b/tests/testthat/test-search.r
index 2b2748e..76ade96 100644
--- a/tests/testthat/test-search.r
+++ b/tests/testthat/test-search.r
@@ -63,7 +63,15 @@ test_that("search terminate_after parameter works", {
 test_that("getting json data back from search works", {
 
   suppressMessages(require('jsonlite'))
-  f <- Search(x, index="shakespeare", type="scene", raw=TRUE)
+
+  if (es_version(x) >= 700) {
+    expect_warning(
+      f <- Search(x, index="shakespeare", type="scene", raw=TRUE),
+      "Specifying types in search requests is deprecated"
+    )
+  } else {
+    f <- Search(x, index="shakespeare", type="scene", raw=TRUE)
+  }
   expect_is(f, "character")
   expect_true(jsonlite::validate(f))
   expect_is(jsonlite::fromJSON(f), "list")
diff --git a/tests/testthat/test-search_template.R b/tests/testthat/test-search_template.R
index ec4a9a3..3879513 100644
--- a/tests/testthat/test-search_template.R
+++ b/tests/testthat/test-search_template.R
@@ -27,6 +27,11 @@ body2 <- '{
  }
 }'
 
+if (es_version(x) >= 700) {
+  body1 <- sub("inline", "source", body1)
+  body2 <- sub("inline", "source", body2)
+}
+
 iris2 <- stats::setNames(iris, gsub("\\.", "_", names(iris)))
 
 test_that("basic Search_template works", {
@@ -34,7 +39,7 @@ test_that("basic Search_template works", {
   
   if (index_exists(x, "iris")) invisible(suppressMessages(index_delete(x, "iris")))
   invisible(docs_bulk(x, iris2, "iris"))
-
+  
   a <- Search_template(x, body = body1)
   expect_equal(names(a), c('took','timed_out','_shards','hits'))
   expect_is(a, "list")