tests/testthat/test-table-filters.R

In jdeboer/ganalytics: Interact with 'Google Analytics'

library(ganalytics)

context("Using expressions to create filters")

test_that("a filter can be a basic expression", {
  expect_is(
    TableFilter(GaExpr("dimension1", "!", "yellow")),
    "gaFilter"
  )
  expect_equal(
    as(TableFilter(GaExpr("dimension1", "!", "yellow")), "character"),
    "ga:dimension1!=yellow"
  )
})

test_that("ANDed (but not ORed) filter expressions may mix dimensions with metrics", {
  expect_equal(as(
    TableFilter(Or(GaExpr("pageviews", ">", 10), GaExpr("entrances", "<", 5))),
    "character"), "ga:pageviews>10,ga:entrances<5")
  expect_error(
    TableFilter(Or(GaExpr("landingPagePath", "=", "/"), GaExpr("entrances", "<", 5))),
    "cannot mix metrics and dimensions"
  )
  expect_equal(as(
    TableFilter(And(GaExpr("landingPagePath", "=", "/"), GaExpr("entrances", "<", 5))),
    "character"), "ga:landingPagePath==/;ga:entrances<5")
  expect_error(
    TableFilter(
      And(
        Or(
          GaExpr("eventValue", "<", 50),
          GaExpr("keyword", "@", "contact")
        ),
        GaExpr("deviceCategory", "=", "mobile")
      )
    )
  )
})

test_that("Filter expressions cannot use '[]' or '<>' comparators", {
  expect_error(
    TableFilter(GaExpr("medium", "[]", c("organic", "cpc"))),
    "\\[\\]"
  )
  expect_error(
    TableFilter(GaExpr("pageviews", "<>", c(10, 100))),
    "<>"
  )
})