diff --git a/tests/visual_tests/add_header_left.Rmd b/tests/visual_tests/add_header_left.Rmd
deleted file mode 100644
index 3083fa3..0000000
--- a/tests/visual_tests/add_header_left.Rmd
+++ /dev/null
@@ -1,19 +0,0 @@
----
-title: "add_header_left"
-output: 
-  pdf_document:
-    keep_tex: true
----
-
-```{r}
-library(knitr)
-library(kableExtra)
-
-mtcars[1:10, 1:6] %>%
-  kable("latex", booktabs= T) %>%
-  kable_styling(latex_options = "striped") %>%
-  add_header_above(c(" ", "a%" = 3, "b" = 3)) %>%
-  add_header_left(c("a%knjnuulkjlkj" = 3, "b" = 7), "new", align = "l") %>%
-  add_header_left(c("aadjfoi adlfsjs adsa" = 4, "b" = 6), "new2",  width = "1.5cm") %>%
-  add_header_left(c("a" = 5, "b" = 5), "xx", width = "1cm", align = "r")
-```
diff --git a/tests/visual_tests/add_header_left_html.Rmd b/tests/visual_tests/add_header_left_html.Rmd
deleted file mode 100644
index 09e739f..0000000
--- a/tests/visual_tests/add_header_left_html.Rmd
+++ /dev/null
@@ -1,17 +0,0 @@
----
-title: "add_header_left"
-output: html_document
----
-
-```{r}
-library(knitr)
-library(kableExtra)
-
-mtcars[1:10, 1:6] %>%
-  kable("html") %>%
-  kable_styling() %>%
-  add_header_above(c(" ", "a" = 3, "b" = 3)) %>%
-  add_header_left(c("a" = 2, "b" = 3), width = "3cm", bold = T) %>%
-  add_header_left(c("a%" = 3, "b" = 7)) %>%
-  column_spec(1, bold = T, width = "1cm")
-```
diff --git a/tests/visual_tests/cell_spec_html.Rmd b/tests/visual_tests/cell_spec_html.Rmd
index fb645ad..e56a260 100644
--- a/tests/visual_tests/cell_spec_html.Rmd
+++ b/tests/visual_tests/cell_spec_html.Rmd
@@ -5,6 +5,14 @@
 output: html_document
 ---
 
+<script>
+  $( function() {
+    $( document ).tooltip();
+  } );
+</script>
+
+
+<div><div class = "tooltip">sss</div>ssa</div>
 ```{r, include=F}
 library(knitr)
 library(kableExtra)
@@ -17,7 +25,7 @@
     mpg = cell_spec(mpg, "html", color = "white", background = spec_color(mpg)),
     disp = cell_spec(disp, "html", color = spec_color(disp, option = "B"), 
                      bold = T, font_size = spec_font_size(disp)),
-    hp = cell_spec(hp, "html", hover_message = paste0("cyl:\n", cyl))
+    hp = cell_spec(hp, "html", tooltip = paste0("cyl:\n", cyl))
   ) %>%
   kable("html", escape = F) %>%
   kable_styling("condensed", full_width = F)
@@ -29,7 +37,7 @@
     cell_spec(x, "html", 
               color = spec_color(x, option = "A"), 
               font_size = spec_font_size(x),
-              bold = T)
+              bold = T, tooltip = "1")
     }) %>%
   kable("html", escape = F, booktabs = T, linesep = "", align = "c")%>%
   row_spec(0, angle = 270, align = "right") %>%
diff --git a/tests/visual_tests/tooltip.Rmd b/tests/visual_tests/tooltip.Rmd
new file mode 100644
index 0000000..55f81b3
--- /dev/null
+++ b/tests/visual_tests/tooltip.Rmd
@@ -0,0 +1,35 @@
+---
+title: "Untitled"
+author: "Hao"
+date: "10/15/2017"
+output: html_document
+---
+
+```{r, include=FALSE}
+library(knitr)
+library(kableExtra)
+library(tidyverse)
+```
+
+```{r}
+htmlFun = function(content) {
+  x = htmltools::tags$div(content, class = 'error')
+  # you could also do this if you don't care about escaping HTML entities in 'content':
+  # x = htmltools::HTML(paste('<div class="error">', content, '</div>'))
+  d = htmltools::htmlDependency(
+    'knitr-css', '1.2.3', src = system.file('misc', package = 'knitr'),
+    stylesheet = 'knitr.css'
+  )
+  x = htmltools::attachDependencies(x, d)
+  x
+}
+
+htmlFun('Hello World!')
+```
+
+```{r}
+mtcars[1:5, 1:2] %>%
+  mutate(mpg = cell_spec(mpg, tooltip = cyl)) %>%
+  kable("html", escape = F) %>%
+  htmltools::HTML() 
+```