tests/testthat/test_getRepo.R

In david-salgado/RepoTime: Implementation of a notation for time intervals

library(RepoTime)
context("Getter getRepo")

test_that("Getter returns a character vector", {
    expect_true(
        all(sapply(getRepo(newRepoTime('MM022013')), class) == 'character'))
    expect_true(
        all(sapply(getRepo(
            newRepoTime(paste0(paste0('MM0', 1:9), '2013'))), 
            class) == 'character'))
})