library(batman)
context("Reading the file")
test_that("file is read properly", {
normal_file <- "testdata/S06/s160518a.txt"
empty_file <- "testdata/S01/a160624a.txt"
expect_is(read_gate_data(normal_file),"data.frame")
expect_error(read_gate_data(empty_file), "no data")
expect_length(names(read_gate_data(normal_file)), 4)
})
context("Extracting year from file name")
test_that("year of a creation year is extracted", {
expect_equal(.extract_year("a160428a.txt", "20"), "2016")
expect_equal(.extract_year("S6/a160428a.txt", "20"), "2016")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.