tests/apitest/test-avisApiUsuarios.R

context ("Remote API Client: avisApiUsuarios")

response <- .avisApiUsuarios()

test_that(".avisApiUsuarios output is a matrix",{

  	expect_true(is.matrix (response))
})

test_that(".avisApiUsuarios returns expected header",{

	expectedNames <- c("UserId", "User","Observations","Species","Provinces","UTMs","Periods")

  	expect_equal (colnames (response), expectedNames)
})

Try the rAvis package in your browser

Any scripts or data that you put into this service are public.

rAvis documentation built on May 30, 2017, 6:42 a.m.