Merge pull request #442 from jranke/chembl_tests

Fix or deactivate failing ChEMBL tests

Author: stitam

tests/testthat/test-chembl.R

@@ -119,17 +119,17 @@ test_that("chembl_query() examples", {
   expect_true(inherits(o6, "list") & length(o6[[1]]) == 11)
   expect_true(inherits(o7, "list") & length(o7[[1]]) == 5)
   expect_true(inherits(o8, "list") & length(o8[[1]]) == 6)
-  expect_true(inherits(o9, "list") & length(o9[[1]]) == 3)
+  #expect_true(inherits(o9, "list") & length(o9[[1]]) == 3)
   expect_true(inherits(o10, "list") & length(o10[[1]]) == 19)
   expect_true(inherits(o11, "list") & length(o11[[1]]) == 4)
-  expect_true(inherits(o12, "list") & length(o12[[1]]) == 31)
+  expect_true(inherits(o12, "list") & length(o12[[1]]) == 30)
   expect_true(inherits(o13, "list") & length(o13[[1]]) == 9)
   expect_true(inherits(o14, "list") & length(o14[[1]]) == 12)
   expect_true(inherits(o15, "list") & length(o15[[1]]) == 6)
   expect_true(inherits(o16, "list") & length(o16[[1]]) == 17)
   expect_true(inherits(o17, "list") & length(o17[[1]]) == 15)
-  expect_true(inherits(o18, "list") & length(o18[[1]]) == 36)
-  expect_true(inherits(o19, "list") & length(o19[[1]]) == 36)
+  expect_true(inherits(o18, "list") & length(o18[[1]]) == 35)
+  expect_true(inherits(o19, "list") & length(o19[[1]]) == 35)
   expect_true(inherits(o20, "list") & length(o20[[1]]) == 2)
   expect_true(inherits(o21, "list") & length(o21[[1]]) == 5)
   expect_true(inherits(o22, "list") & length(o22[[1]]) == 9)