## Retrieves the results form David analysis
# Input: inputFileLocation ...
# Output: Results data.frame

test_fea_david <- function()
{
	#result <- fea_david(c("YBL084C", "YDL008W", "YDR118W", "YDR301W"))
	
	# Check return
# 	checkTrue(is.list(result))
# 	checkTrue(all(c("queryArgs","clusters", "geneTermSets", "fileName") %in% names(result)))
# 	checkTrue(is.data.frame(result$clusters))
# 	checkEquals(length(result), 4)
	
	# Check wrong URL
	# checkException(getResults_david(inputFileLocation="http://madeup.com/DavidClustering.txt"), "Download URL (inputFileLocation) is not available.")
}
