tests/testthat/test_check.R

In RTCGA: The Cancer Genome Atlas Data Integration

test_that("checkTCGA() function works properly", {
    expect_equal( length(checkTCGA('Dates')) >= 60, T )
    expect_is( checkTCGA('Dates'), "character" )
    expect_equal( "2015-06-01" %in% checkTCGA('Dates'), T )
    #expect_error( checkTCGA('DataSets', 'OV', checkTCGA('Dates')[6] ) )
    expect_equal( nrow(checkTCGA('DataSets', 'OV', "2015-06-01" )) == 42, T )
    expect_is( checkTCGA('DataSets', 'OV', tail(checkTCGA('Dates'),2)[1]), "data.frame" )
})