oai/tests/testthat/test-list_metadataformats.R at master · ropensci/oai · GitHub

Name: oai/tests/testthat/test-list_metadataformats.R at master · ropensci/oai · GitHub
Rating: 4.8 (5601 reviews)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
context("list_metadataformats")

test_that("list_metadataformats - basic functionality works", {
 skip_on_cran()

aa<- list_metadataformats()

 expect_is(aa, "data.frame")
 expect_is(aa$metadataPrefix, "character")
 expect_is(aa$schema, "character")
 expect_is(aa$metadataNamespace, "character")

 expect_named(aa, c('metadataPrefix', 'schema', 'metadataNamespace'))
})

test_that("list_metadataformats - no formats avail. vs. avail", {
 skip_on_cran()

aa<- list_metadataformats(id="foo-bar")
bb<- list_metadataformats(id="ad7295e0-3261-4028-8308-b2047d51d408")

 expect_null(aa[[1]])
 expect_is(bb[[1]], "data.frame")
})

test_that("list_metadataformats - curl options", {
 skip_on_cran()

 library("httr")

 expect_error(list_metadataformats(config= timeout(0.001)),
"Timeout was reached")
})

test_that("list_metadataformats fails well", {
 skip_on_cran()

 expect_error(list_metadataformats("stuff"),
"One or more of your URLs")
 expect_null(list_metadataformats(id="adfadfsdf")[[1]])
})