tests/testthat/test-Subsetting.R

In steveped/ngsReports: Load FastqQC reports and other NGS related files

test_that("Single bracket subsetting works",{
    expect_length(fdl[1], 1)
    expect_length(fdl[names(fdl)[1]], 1)
})

test_that("Double bracket subsetting works",{
    expect_true(is(fdl[[1]], "FastqcData"))
    expect_true(is(fdl[[names(fdl)[1]]], "FastqcData"))
})

test_that("Subsetting out of range errors",{
    expect_error(fdl[0])
    expect_error(fdl[7])
    expect_error(fdl["foo"])
})