library(biggr)
library(stringr)
test_that("user_data return the correct values", {
user_data <-
ec2_instance_script(phone_number = 1111111111,
postgres_password = 'postgrespass')
expect_equal(
str_detect(user_data,
'1111111111'),
TRUE
)
expect_equal(
str_detect(user_data,
'postgrespass'),
TRUE
)
})
test_that("user_data return the correct values when no phone supplied", {
user_data <-
ec2_instance_script(postgres_password = 'postgrespass')
expect_equal(
str_detect(user_data,
'5555555555'),
TRUE
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.