tests/testthat/test_get_event_stats_for_account.R

In LyzandeR/RDota2: An R Steam API Client for Valve's Dota2

context("test get_event_stats_for_account is working")

test_that('function fails if no key has been set', {

 testthat::skip_on_cran()
 testthat::skip_on_travis()

 #fails if no key is provided and key has not been set
 expect_error(get_event_stats_for_account(eventid = 65006,
                                          accountid = 89550641,
                                          language = 'en',
                                          key = NULL),
              'The function cannot find an API key.')

 #registering key
 key_actions('register_key', Sys.getenv('RDota_KEY'))
 expect_error(get_event_stats_for_account(eventid = 65006,
                                          accountid = 89550641,
                                          language = 'en',
                                          key = NULL),
              NA)

 #make sure url contains the right path
 expect_true(grepl('GetEventStatsForAccount',
                   get_event_stats_for_account(eventid = 65006, accountid = 89550641)$url))

 #make sure response received i.e. api working
 expect_equal(get_event_stats_for_account(eventid = 65006,
                                          accountid = 89550641)$response$status_code,
              200L)

 #make sure user_agent has been set properly
 expect_identical(
  get_event_stats_for_account(eventid = 65006,
                              accountid = 89550641)$response$request$options$useragent,
                              'http://github.com/lyzander/RDota2'
 )

 #make sure function returned a results list
 expect_true(is.list(get_event_stats_for_account(eventid = 65006, accountid = 89550641)$content))

 #delete key
 key_actions('delete_key')

})