tests/testthat/test-REST.R

In USGS-R/sbtools: USGS ScienceBase Tools

test_that("generic post fails w/o auth", {
	skip_on_cran()
	
	assign("keycloak_expire", NULL, envir = sbtools:::pkg.env)
	assign("keycloak_token", NULL, envir = sbtools:::pkg.env)
	
	# auth passes, and file is there, but auth fails on sciencebase.gov
	files <- system.file('extdata',"This_works_new_extension.zip", package='sbtools')
	expect_warning(item_append_files("54e265a4e4b08de9379b4dfb", files))
})

test_that("generic get w/ and w/o auth", {
	skip_on_cran()
	
	public_item <- '5c081d14e4b0815414d0346c' # public read access
	non_item <-     '4f4e4a62e4b0a92fa7e9cf36' # made-up ID
	#private_item <- '55569325e4b0a92fa7e9cf36' # private to whom? can we test with a session that has access and yet is Travis-runable?
	
	# public access to public items, with or without login
	expect_s3_class(item_get(public_item), 'sbitem')
	
	# 'not found' error for missing items, with or without login
	expect_warning(expect_warning(item_get(non_item)))
	
})