tests/testthat/test-connection.R

In hrbrmstr/slackr: Send Messages, Images, R Objects and Files to 'Slack' Channels/Users

test_that("Initial setup completes", {
  skip_on_cran()

  with_slack_config({
    expect_equal(
      if (Sys.getenv("ENVIRONMENT") == "production") {
        slackr_setup(
          channel = Sys.getenv("SLACK_CHANNEL"),
          username = Sys.getenv("SLACK_USERNAME"),
          icon_emoji = Sys.getenv("SLACK_ICON_EMOJI"),
          incoming_webhook_url = Sys.getenv("SLACK_INCOMING_WEBHOOK_URL"),
          token = Sys.getenv("SLACK_TOKEN")
        )
      } else {
        slackr_setup(
          config_file = "~/.slackr_config"
        )
      },
      "Successfully connected to Slack"
    )
  })
})

test_that("slackr_setup() connects", {
  skip_on_cran()

  with_slack_config({
    expect_equal(
      slackr_setup(
        channel = "#test",
        token = Sys.getenv("SLACK_TOKEN"),
        incoming_webhook_url = Sys.getenv("SLACK_INCOMING_WEBHOOK_URL"),
        username = "slackr",
        icon_emoji = "robot_face"
      ),
      "Successfully connected to Slack"
    )

    expect_true(
      grepl("^xox.-", Sys.getenv("SLACK_TOKEN"))
    )

    expect_true(
      grepl("^https://hooks", Sys.getenv("SLACK_INCOMING_WEBHOOK_URL"))
    )

    expect_equal(
      Sys.getenv("SLACK_CHANNEL"),
      "#test"
    )
  })
})

test_that("config file setup works", {
  skip_on_cran()

  with_slack_config({
    tmp <- tempfile(fileext = ".dcf")
    create_config_file(
      filename = tmp,
      token = Sys.getenv("SLACK_TOKEN"),
      channel = Sys.getenv("SLACK_CHANNEL"),
      username = Sys.getenv("SLACK_USERNAME"),
      incoming_webhook_url = Sys.getenv("SLACK_INCOMING_WEBHOOK_URL"),
      icon_emoji = Sys.getenv("SLACK_ICON_EMOJI")
    )

    expect_equal(
      slackr_setup(config_file = tmp),
      "Successfully connected to Slack"
    )
  })
})