tests/testthat/test-tropr.R

In zedoul/tropr: TV Tropes Statistics

context("content")

test_that("trope_content, as.data.frame", {
  .url <- "http://tvtropes.org/pmwiki/pmwiki.php/Main/SenseiChan"
  content <- trope_content(.url)
  expect_true(inherits(content, "tropr.content"))

  .df <- as.data.frame(content)
  expect_true(inherits(.df, "data.frame"))
})

#test_that("trope_history, aggr", {
#  .url <- "http://tvtropes.org/pmwiki/pmwiki.php/Characters/LittleWitchAcademia"
#  hist_content <- trope_history(.url)
#  expect_true(inherits(hist_content, "data.frame"))
#
#  ret <- aggr_history_daily_count(hist_content)
#  expect_true(inherits(ret, "data.frame"))
#  ret <- aggr_history_editor_count(hist_content)
#  expect_true(inherits(ret, "data.frame"))
#})

test_that("More cases", {
  # anime page
  .url <- "http://tvtropes.org/pmwiki/pmwiki.php/Anime/GirlsUndPanzer"
  .df <- as.data.frame(trope_content(.url))
  expect_true(inherits(.df, "data.frame"))

  # character
  .url <- "http://tvtropes.org/pmwiki/pmwiki.php/Characters/GirlsUndPanzerOaraiAcademyAnglerfishTeam"
  .df <- as.data.frame(trope_content(.url))
  expect_true(inherits(.df, "data.frame"))

  # A bit tricky page
  .url <- "http://tvtropes.org/pmwiki/pmwiki.php/Main/Hikikomori"
  .df <- as.data.frame(trope_content(.url))
  expect_true(inherits(.df, "data.frame"))

  .url <- "http://tvtropes.org/pmwiki/pmwiki.php/Main/TabletopRPG"
  content <- trope_content(.url)
  .df <- as.data.frame(content)
  expect_true(inherits(.df, "data.frame"))
})