context("account_methods_tests")
SLAccount <- account()
test_that("canCreateAccountObject", {
expect_true(inherits(SLAccount, "account"))
})
test_that("canGetUser", {
userInfo <- getUser(SLAccount)
expect_identical(userInfo$username, "seleniumPipes")
}
)
test_that("canGetSubUser", {
userInfo <- getUser(SLAccount, username = "rsaucelabs")
expect_identical(userInfo$username, "rsaucelabs")
}
)
test_that("checkCanCreateSubAccount", {
expect_warning(
newUser <- createUser(SLAccount, username = "seleniumPipes",
newUsername = "testUser12367",
password = "testPass",
name = "aUser", email = "testUser@example.com")
)
expect_identical(newUser$error,
paste("Sorry, the email you've provided is already" ,
"associated with another account. Please use" ,
"another email address.")
)
}
)
test_that("canGetUserConcurrency", {
userConcur <- getUserConcurrency(SLAccount, username = "seleniumPipes")
expect_identical(userConcur$concurrency$self$username, "seleniumPipes")
}
)
test_that("canGetSubUserConcurrency", {
userConcur <- getUserConcurrency(SLAccount, username = "rsaucelabs")
expect_identical(userConcur$concurrency$self$username, "rsaucelabs")
expect_identical(userConcur$concurrency$ancestor$username,
"seleniumPipes")
}
)
test_that("canGetListOfSubAccounts", {
userAccs <- getListOfSubAccounts(SLAccount, username = "seleniumPipes")
expect_equal(userAccs$users_total, 2L)
expect_identical(vapply(userAccs$users, "[[", character(1), "username"),
c("rsaucelabs", "testUser12367"))
}
)
test_that("canGetListOfSiblingAccounts", {
sibAccs <- getListOfSiblingAccounts(SLAccount, username = "rsaucelabs")
expect_identical(vapply(sibAccs, "[[", character(1), "username"),
"testUser12367")
}
)
test_that("canGetSubAccountInformation", {
subAccInfo <- getSubAccountInformation(SLAccount, "testUser12367")
expect_identical(subAccInfo[[1]]$username, "testUser12367")
}
)
test_that("canChangeAccessKey", {
subAccInfo <- getSubAccountInformation(SLAccount, "testUser12367")
oldAccessKey <- subAccInfo[[1]]$access_key
res <- changeAccessKey(SLAccount, "testUser12367")
expect_false(identical(oldAccessKey, res$accessKey))
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.