tests/testthat/test_examples.R

In eyelinker: Import ASC Files from EyeLink Eye Trackers

context("SR research test files")

test_that("test_files_load", {

    # Read in all test files into a single named list
    files <- c(
        'mono250.asc.gz', 'mono500.asc.gz', 'mono1000.asc.gz', 'mono2000.asc.gz',
        'bino250.asc.gz', 'bino500.asc.gz', 'bino1000.asc.gz',
        'monoRemote250.asc.gz', 'monoRemote500.asc.gz',
        'binoRemote250.asc.gz', 'binoRemote500.asc.gz'
    )
    ascs <- lapply(files, function(f) {
        fpath <- system.file(paste0("extdata/", f), package = "eyelinker")
        read_asc(fpath)
    })
    names(ascs) <- files

    # Test general structure & attributes
    for (f in files) {
        expect_equal(length(ascs[[f]]), 8)
        expect_equal(ascs[[f]]$info$model, "EyeLink 1000 Plus")
    }

    # Test specific attributes of different files
    expect_equal(ascs[["mono250.asc.gz"]]$info$sample.rate, 250)
    expect_equal("remote.info" %in% names(ascs[["monoRemote500.asc.gz"]]$raw), TRUE)

    # Test parse_all functionality
    fpath <- system.file("extdata/mono2000.asc.gz", package = "eyelinker")
    a <- read.asc(fpath, parse_all = TRUE)
    expect_equal(nrow(a$msg), 150)
    expect_equal(sum(a$msg$block %% 1 != 0), 118)
})