Uncomment tests for chembl_atc_classes()

Author: stitam

tests/testthat/test-chembl.R

@@ -210,23 +210,23 @@ test_that("More chembl_query()", {
   expect_equal(o10m[2], "Service not available. Returning NA.")
 })
 
-# test_that("chembl_atc_classes()", {
-#   o1 <- chembl_atc_classes()
-#   o2 <- capture_messages(chembl_atc_classes(verbose = TRUE))
+test_that("chembl_atc_classes()", {
+  o1 <- chembl_atc_classes()
+  o2 <- capture_messages(chembl_atc_classes(verbose = TRUE))
 
-#   expect_s3_class(o1, c("tbl_df", "tbl", "data.frame"))
-#   expect_equal(o2[1], "Querying Page 1. ")
-#   expect_equal(o2[2], "OK (HTTP 200).")
+  expect_s3_class(o1, c("tbl_df", "tbl", "data.frame"))
+  expect_equal(o2[1], "Querying Page 1. ")
+  expect_equal(o2[2], "OK (HTTP 200).")
 
-#   #service down
+  #service down
 
-#   o3 <- chembl_atc_classes(test_service_down = TRUE)
-#   o3m <- capture_messages(
-#     chembl_atc_classes(test_service_down = TRUE, verbose = TRUE))
+  o3 <- chembl_atc_classes(test_service_down = TRUE)
+  o3m <- capture_messages(
+    chembl_atc_classes(test_service_down = TRUE, verbose = TRUE))
 
-#   expect_equal(o3, NA)
-#   expect_equal(o3m[2], "Service not available. Returning NA.")
-# })
+  expect_equal(o3, NA)
+  expect_equal(o3m[2], "Service not available. Returning NA.")
+})
 
 test_that("validate_chembl_version()", {
   expect_equal(validate_chembl_version()$version, "35")