tests/testthat/ec2_instance_script.R

In fdrennan/awsR: Convenience Functions For AWS R Users

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
  )
})