inst/unitTests/test_SuppFileSupport.R

In ian1roberts/GEOquery: Get data from NCBI Gene Expression Omnibus (GEO)

## Test unit 'testSuppFileSupport'

.setUp <-
function () {
	## Specific actions for svUnit: prepare context
	if ("package:svUnit" %in% search()) {
		.Log <- Log() ## Make sure .Log is created
		.Log$..Unit <- "inst/unitTests/runittestSuppFileSupport.R"
		.Log$..File <- ""
		.Log$..Obj <- ""
		.Log$..Tag <- ""
		.Log$..Msg <- ""
		rm(..Test, envir = .Log)
	}
}

.tearDown <-
function () {
	## Specific actions for svUnit: clean up context
	if ("package:svUnit" %in% search()) {
		.Log$..Unit <- ""
		.Log$..File <- ""
		.Log$..Obj <- ""
		.Log$..Tag <- ""
		.Log$..Msg <- ""
		rm(..Test, envir = .Log)
	}
}

"testSuppFileSupport" <- function() {
    ####################################
    ## GSE
    fres = getGEOSuppFiles('GSE1000')

    if(.Platform$OS.type == "unix") {
        checkEquals(10,ncol(fres))
    } else {
        checkEquals(7,ncol(fres))
    }
    checkEquals(2,nrow(fres))

    #####################################
    ## GSM
    fres = getGEOSuppFiles('GSM15789')

    if(.Platform$OS.type == "unix") {
        checkEquals(10,ncol(fres))
    } else {
        checkEquals(7,ncol(fres))
    }
    checkEquals(1,nrow(fres))

    #####################################
    ## GSM
    fres = getGEOSuppFiles('GSM15789',baseDir=tempdir())

    if(.Platform$OS.type == "unix") {
        checkEquals(10,ncol(fres))
    } else {
        checkEquals(7,ncol(fres))
    }
    checkEquals(1,nrow(fres))
}