tests/testthat/test-UserMetrics.R

In dmpe/rbitly: R Wrapper for the 'Bit.ly' and 'Is.gd'/'v.gd' URL Shortening Services

library(testthat)
library(httr)
library(jsonlite)
library(stringr)
library(urlshorteneR)
library(lubridate)

context("User Metrics")

test_that("will rollup the click counts to a referrer about a single Bitlink.", {
  expect_gte(bitly_user_metrics_referring_domains(bitlink = "bit.ly/2EUGovW", size = 100)$units, -1)
  umrd2 <- bitly_user_metrics_referring_domains(bitlink = "bit.ly/2EUGovW", size = 100)
  expect_gte(umrd2$metrics[umrd2$metrics$value == "direct", ]$clicks, 1)
})

context("Link Metrics")

test_that("Returns the number of clicks on a single Bitlink.", {
  lmc <- bitly_retrieve_clicks(bitlink = "bit.ly/2EUGovW", unit = "month", units = -1, size = 100)
  expect_equal(length(lmc), 4)
  lmcs <- bitly_retrieve_clicks_summary(bitlink = "bit.ly/DPetrov", unit = "day", units = -1, size = 100)
  expect_named(lmcs, c("unit_reference", "total_clicks", "units", "unit"))
})

test_that("Returns metrics about the countries referring click traffic to a single Bitlink.", {
  lmcc <- bitly_retrieve_metrics_by_countries(bitlink = "bit.ly/DPetrov", unit = "day", units = -1, size = 100)
  expect_named(lmcc, c("unit_reference", "metrics", "units", "unit", "facet"))
})

test_that("Returns Bitlinks for Group.", {
  user_info  <- bitly_user_info()
  lmrd <- bitly_retrieve_bitlinks_by_groups(group_guid = user_info$default_group_guid[1])
  expect_equal(length(lmrd), 2)
})

test_that("Returns Sorted Bitlinks for Group.", {
  user_info  <- bitly_user_info()
  rsbbg <- bitly_retrieve_sorted_bitlinks_by_groups(group_guid = user_info$default_group_guid[1])
  expect_equal(dim(rsbbg$sorted_links)[[2]], 2)
  expect_equal(dim(rsbbg$links)[[2]], 12)
})


test_that("Returns metrics about the pages referring click traffic to a single Bitlink.", {
  lmr <- bitly_retrieve_metrics_by_referrers(bitlink = "bit.ly/DPetrov", unit = "day", units = -1, size = 100)
  expect_named(lmr, c("unit_reference", "metrics", "units", "unit", "facet"))
})

test_that("Returns metrics for a Bitlink by referrers, by domain", {
  lmrbd <- bitly_retrieve_metrics_by_referrers_by_domain(bitlink = "bit.ly/DPetrov", unit = "day", units = -1, size = 100)
  expect_named(lmrbd, c("unit_reference", "referrers_by_domain", "units", "unit", "facet"))
})