tests/testthat/test-openfile.R

In billspat/borisr: Reads BORIS video project files

library(testthat)

context("testing  boris")

# TO DO: create simpler data frile from string

context("file data handling")

# this only works with
boris_file = system.file("extdata", "examplevideotrial.boris", package = "borisr")
# 'data/examplevideotrial.boris'
boris.data = borisr::read_boris(boris_file)
test_obs_names = c("animalu22","animalu41")  # to do, make it generic

test_that("can open a boris file", {
  expect_gt(length(boris.data),0)
})

test_that("can read boris data structure ", {
  expect_gt(length(names(boris.data)),0)
  expect_true("observations" %in% names(boris.data))
})

test_that("can get obs ",{
  obs = get_obslist(boris.data)
  expect_gt(length(obs),0)
  for(ob in test_obs_names) {expect_true(ob %in% obs)}

})

test_that("can get ethogram",{
  eth = get_ethogram(boris.data)
  expect_gt(length(eth),0)
})

test_that("can get state events",{
  ev = get_event_types(boris.data )
  expect_gt(nrow(ev),0)
})

test_that("can get point events",{
  ev = get_event_types(boris.data, "Point event" )
  expect_gt(nrow(ev),0)
})

test_that("can get eventtypes", {
  evtypes.df = get_event_types(boris.data)
  expect_gt(nrow(evtypes.df),0)
  expect_true("code" %in% names(evtypes.df))
  expect_true("modifier" %in% names(evtypes.df))
})