tests/testthat/test_account_to_steam.R

In johnWilshire/dota2api: An R Wrapper for the Dota 2 api

# test account_to_steam

test_that( "account_to_steam", {
  # test with just key arguments
  sixtyfour <- "76561197992765754"
  thirtytwo <- 32500026
  expect_equal(account_to_steam(thirtytwo), sixtyfour)


  expect_equal(account_to_steam(as.character(thirtytwo)), sixtyfour)

  expect_equal(steam_to_account(as.character(sixtyfour)), thirtytwo)
})