Fix tests

Author: stitam

tests/testthat/test-pubchem-pugview.R

@@ -378,7 +378,7 @@ test_that("1H NMR Spectra", {
   res <- pc_sect(1983, "1H NMR Spectra")
   expect_equal(
     res$`Shifts [ppm]:Intensity`[1],
-    "9.63:20.93, 6.67:40.69, 6.65:35.56, 1.97:100.00, 7.31:35.75, 7.33:37.16, 9.11:34.80"
+    "7.31:35.75, 6.65:35.56, 9.63:20.93, 6.67:40.69, 7.33:37.16, 1.97:100.00, 9.11:34.80"
   )
 })
 
@@ -520,7 +520,7 @@ test_that("Uses", {
   skip_if_not(Sys.getenv("RUN_ONLINE_TESTS") == "true", "Skipping online tests")
 
   res <- pc_sect(1983, "Uses")
-  expect_true(nrow(res) > 300)
+  expect_true(nrow(res) > 150)
   expect_true("Pharmaceutical" %in% res$Function_Category)
 })
 

tests/testthat/test-pubchem.R

@@ -165,14 +165,13 @@ test_that("pc_page()", {
   skip_if_not(up, "PubChem service is down")
   skip_if_not(Sys.getenv("RUN_ONLINE_TESTS") == "true", "Skipping online tests")
 
-  a <- pc_page(c(311, 176, 1118, "balloon", NA), "Dissociation Constants")
-
-  expect_type(a, "list")
-  expect_length(a, 5)
-  expect_s3_class(a[[1]], c("Node", "R6"))
-  expect_s3_class(a[[2]], c("Node", "R6"))
-  expect_equal(a[[4]], NA)
-  expect_equal(a[[5]], NA)
+  a <- pc_page(311, "Dissociation Constants")
+  b <- pc_page("balloon", "Dissociation Constants")
+  c <- pc_page(NA, "Dissociation Constants")
+
+  expect_equal(class(a), "list")
+  expect_true(inherits(b, "empty_row"))
+  expect_true(inherits(c, "empty_row"))
 })
 
 test_that("pc_sect()", {
@@ -189,18 +188,15 @@ test_that("pc_sect()", {
 
   b <- pc_sect(2231, "depositor-supplied synonyms", "substance")
   expect_s3_class(b, c("tbl_df", "tbl", "data.frame"))
-  expect_equal(names(b), c("SID", "Name", "Result", "SourceName", "SourceID"))
   expect_equal(b$Result, c("cholesterol", "57-88-5",
                                 "5-cholestene-3beta-ol"), ignore_attr = TRUE)
 
   c <- pc_sect(780286, "modify date", "assay")
   expect_s3_class(c, c("tbl_df", "tbl", "data.frame"))
-  expect_equal(names(c), c("AID", "Name", "Result", "SourceName", "SourceID"))
-  expect_equal(c$Result, c("2014-05-03", "2018-09-28", "2020-06-30"))
+  expect_equal(c$`Version 1.1`, "2014-05-03")
 
   d <- pc_sect("1ZHY_A", "Sequence", "protein")
   expect_s3_class(d, c("tbl_df", "tbl", "data.frame"))
-  expect_equal(names(d), c("pdbID", "Name", "Result", "SourceName", "SourceID"))
-  expect_equal(d$Result[1], ">pdb|1ZHY|A Chain A, KES1 protein (Run BLAST)",
+  expect_equal(d$Header[1], ">pdb|1ZHY|A Chain A, KES1 protein (Run BLAST)",
                ignore_attr = TRUE)
  })