tests/apitest/test-avisApiBusOrden.R

context ("Remote API Client: avisApiBusOrden")

response <- .avisApiBusOrden()

test_that(".avisApiBusOrden returns data", { 

	expect_true (length(response) > 0)
})

test_that(".avisApiBusOrden returns double", { 

	expect_true (is.double(response))
})
ropensci/rAvis documentation built on May 18, 2022, 5:41 p.m.