tests/testthat/test-responses.R

In facebookresearch/Radlibrary: Facebook Ad Library API Tool

# Copyright (c) Meta Platforms, Inc. and affiliates.
# All rights reserved.
#
# This source code is licensed under the license found in the
# LICENSE file in the root directory of this source tree.

test_that("Access token censoring", {
  expect_equal(
    censor_access_token(c(
      "https://www.facebook.com/ads/archive/render_ad/?id=524408398417058&access_token=abc123",
      "https://www.facebook.com/ads/archive/render_ad/?id=458130611506266&access_token=abc123"
    )),
    c(
      "https://www.facebook.com/ads/archive/render_ad/?id=524408398417058&access_token={access_token}",
      "https://www.facebook.com/ads/archive/render_ad/?id=458130611506266&access_token={access_token}"
    )
  )
  expect_equal(censor_access_token("access_token={access_token}"), "access_token={access_token}")
})

test_that("Access token detecting", {
  expect_true(detect_access_token(c(
    "https://www.facebook.com/ads/archive/render_ad/?id=524408398417058&access_token=abc123",
    "https://www.facebook.com/ads/archive/render_ad/?id=458130611506266&access_token=abc123"
  )))
  expect_false(detect_access_token(c(
    "https://www.facebook.com/ads/archive/render_ad/?id=524408398417058&access_token={access_token}",
    "https://www.facebook.com/ads/archive/render_ad/?id=458130611506266&access_token={access_token}"
  )))
})