tests/testthat/test-get_actigraph_SN.R

In martakarass/arcstats: Processing and Physical Activity Summaries of Minute Level Activity Data

# rm(list = ls()); library(testthat); library(arcstats)

context("Testing get_actigraph_SN()")

test_that("Test if ActigraphSN returns correct Actigraph serial number.", {

  expect_equal(
    get_actigraph_SN(system.file("extdata", extdata_fnames[1], package = "arcstats")),
    "TAS1D47140221"
    )

})