tests/testthat/test-mapdeck_tokens.R

In mapdeck: Interactive Maps Using 'Mapbox GL JS' and 'Deck.gl'

context("tokens")

test_that("tokens accessed",{

	testthat::skip_on_appveyor()
	testthat::skip_on_cran()
	testthat::skip_on_travis()
	testthat::skip("run these manually")

	mapdeck::clear_tokens()
	expect_null( mapdeck:::get_access_token() )

	Sys.setenv("MAPBOX" = "abc")
	expect_equal( mapdeck:::get_access_token(), "abc" )
	Sys.unsetenv("MAPBOX")
	expect_null( mapdeck:::get_access_token() )

	Sys.setenv("MAPBOX_TOKEN" = "abc")
	expect_equal( mapdeck:::get_access_token(), "abc" )
	Sys.unsetenv("MAPBOX_TOKEN")
	expect_null( mapdeck:::get_access_token() )

	Sys.setenv("MAPBOX_KEY" = "abc")
	expect_equal( mapdeck:::get_access_token(), "abc" )
	Sys.unsetenv("MAPBOX_KEY")
	expect_null( mapdeck:::get_access_token() )

	Sys.setenv("MAPBOX_API_TOKEN" = "abc")
	expect_equal( mapdeck:::get_access_token(), "abc" )
	Sys.unsetenv("MAPBOX_API_TOKEN")
	expect_null( mapdeck:::get_access_token() )

	Sys.setenv("MAPBOX_API_KEY" = "abc")
	expect_equal( mapdeck:::get_access_token(), "abc" )
	Sys.unsetenv("MAPBOX_API_KEY")
	expect_null( mapdeck:::get_access_token() )

	Sys.setenv("MAPDECK" = "abc")
	expect_equal( mapdeck:::get_access_token(), "abc" )
	Sys.unsetenv("MAPDECK")
	expect_null( mapdeck:::get_access_token() )
})