
R version 2.9.0 Under development (unstable) (2009-03-06 r48061)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library("CCl4")
Loading required package: Biobase

Welcome to Bioconductor

  Vignettes contain introductory material. To view, type
  'openVignette()'. To cite Bioconductor, see
  'citation("Biobase")' and for packages 'citation(pkgname)'.

Loading required package: limma
> dataPath = system.file("extdata", package="CCl4")
> if(setequal(dir(dataPath),
+             c("251316214319_auto_479-628.gpr", "251316214320_auto_478-629.gpr",
+               "251316214321_auto_410-592.gpr", "251316214329_auto_429-673.gpr",
+               "251316214330_auto_457-658.gpr", "251316214331_auto_431-588.gpr",
+               "251316214332_auto_492-625.gpr", "251316214333_auto_487-712.gpr",
+               "251316214379_auto_443-617.gpr", "251316214380_auto_493-682.gpr",
+               "251316214381_auto_497-602.gpr", "251316214382_auto_481-674.gpr",
+               "251316214384_auto_450-642.gpr", "251316214389_auto_456-694.gpr",
+               "251316214390_auto_456-718.gpr", "251316214391_auto_475-599.gpr",
+               "251316214393_auto_460-575.gpr", "251316214394_auto_463-521.gpr",
+               "samplesInfo.txt", "013162_D_SequenceList_20060815.txt"))) {
+   cat("Fine.\n")
+ } else {
+   cat(sprintf("Contents of %s differs from expectation.\n", dataPath))
+ }
Fine.
> 
