fix tests

Author: tdhock

tests/testthat/helper-functions.R

@@ -192,7 +192,7 @@ expect_color <- function(computed, expected){
   }
   if(grepl("rgb", computed[1])){
     ## On firefox, grey50 is "rgb(127, 127, 127)"
-    computed.vec <- gsub("[rgb() ]", "", computed)
+    computed.vec <- gsub("[ )]", "", sub("rgb[(]", "", computed))
     expected.mat <- col2rgb(expected)
     expected.vec <- apply(expected.mat, 2, paste, collapse=",")
   }else{

tests/testthat/test-renderer1-geom-text-color.R

@@ -17,7 +17,7 @@ test_that("geom_text color rendered as fill style", {
   expect_identical(opacity, c("1","1","1","1"))
 })
 
-clickID("plot_text_y_variable_foo_svg")#or foo_label?
+clickID("plot_text_y_variable_foo_label")#not _svg.
 after.html <- getHTML()
 test_that("geom_text color rendered as fill style", {
   fill <- getStyleValue(after.html, '//text[@class="geom"]', "fill")

tests/testthat/test-renderer2-colour.R

@@ -35,7 +35,7 @@ test_that("default clicking line only changes opacity", {
     "opacity")
   opacity.tab <- sort(table(opacity.str))
   expect_equal(as.numeric(opacity.tab), c(1, 4))
-  expect_equal(names(opacity.tab), c("0.5","1"))
+  expect_equal(names(opacity.tab), c("1","0.5"))
   stroke.str <- getStyleValue(
     info$html,
     '//svg[@id="plot_default"]//path[@class="geom"]',
@@ -50,7 +50,7 @@ test_that("setting colour_off makes stroke and opacity change", {
     "opacity")
   opacity.tab <- sort(table(opacity.str))
   expect_equal(as.numeric(opacity.tab), c(1, 4))
-  expect_equal(names(opacity.tab), c("0.5","1"))
+  expect_equal(names(opacity.tab), c("1","0.5"))
   stroke.str <- getStyleValue(
     info$html,
     '//svg[@id="plot_coff"]//path[@class="geom"]',