## out <- system('R -e "affxparser:::.testWriteAndReadEmptyCel()"', intern=TRUE)
 ## res <- any(regexpr("COMPLETE", out) != -1);
 .testWriteAndReadEmptyCel <- function() {
   pathname <- system.file("testscripts/writeAndReadEmptyCel.R", package="affxparser");
   cat("Pathname: ", pathname, "\n", sep="");
 
   source(pathname, echo=TRUE);
   
   cat("COMPLETE\n");
 } # .testWriteAndReadEmptyCel()
 
 
 ############################################################################
 # HISTORY:
 # 2012-09-26
 # o Created from testWriteAndReadEmptyCdf.R.
 ############################################################################