tests/testthat/test-har_functions.R

In johndharrison/bmproxy: Wrapper around the 'BrowserMob Proxy' REST API for R

context("har")
test_that("canCreateNewDefaultHAR", {
  prxy <- proxy(bmpPort = 9090L, port = 39500L)
  newHar <- prxy  %>% createHAR
  expect_identical(newHar$status, 204L)
  expect_identical(newHar$har, NULL)
  secondHar <- prxy  %>% createHAR
  expect_identical(secondHar$status, 200L)
  expect_identical(names(secondHar$har), "log")
  prxy %>% closeProxy
})

test_that("canCreateNewNamedHAR", {
  prxy <- proxy(bmpPort = 9090L, port = 39500L)
  newHar <- prxy  %>% createHAR(ref = "apples")
  expect_identical(newHar$status, 204L)
  expect_identical(newHar$har, NULL)
  secondHar <- prxy  %>% createHAR(ref = "apples")
  expect_identical(secondHar$status, 200L)
  expect_identical(secondHar$har[["log"]][["pages"]][[1]][['id']], 
                   "apples")
  prxy %>% closeProxy
})

test_that("canCreateNewPage", {
  prxy <- proxy(bmpPort = 9090L, port = 39500L)
  np <- prxy %>% createHAR()
  prxy %>% newPage()
  har <- prxy %>% getHAR()
  expect_equal(length(har[["log"]][["pages"]]), 2L)
  expect_identical(har[["log"]][["pages"]][[2]][["id"]], "Page 1")
  prxy %>% closeProxy
})

test_that("canCreateNewNamedPage", {
  prxy <- proxy(bmpPort = 9090L, port = 39500L)
  np <- prxy %>% createHAR()
  prxy %>% newPage(ref = 'crazyPage')
  har <- prxy %>% getHAR()
  expect_equal(length(har[["log"]][["pages"]]), 2L)
  expect_identical(har[["log"]][["pages"]][[2]][["id"]], "crazyPage")
  prxy %>% closeProxy
})