## 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.")
# }
