git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/gmapR@91006 bc3139a8-67e5-0310-9ffc-ced21a209358
Michael Lawrence authored on 04/06/2014 23:33:32
| ... | ... |
@@ -49,6 +49,7 @@ test_GmapGenome_accessors <- function() {
|
| 49 | 49 |
if (file.exists(genomeDir)) unlink(genomeDir, recursive=TRUE) |
| 50 | 50 |
dir.create(genomeDir, recursive=TRUE) |
| 51 | 51 |
on.exit(unlink(genomeDir, recursive=TRUE)) |
| 52 |
+ genomeDir <- tools::file_path_as_absolute(genomeDir) |
|
| 52 | 53 |
gmapGenome <- GmapGenome(genome=dna, directory=genomeDir, |
| 53 | 54 |
name=genomeName, create=FALSE, k=12) |
| 54 | 55 |
checkIdentical(path(gmapGenome), file.path(genomeDir, genomeName)) |
| ... | ... |
@@ -5,6 +5,7 @@ test_GmapGenomeDirectory <- function() {
|
| 5 | 5 |
on.exit(unlink(genomeDir, recursive=TRUE)) |
| 6 | 6 |
|
| 7 | 7 |
##test constructor |
| 8 |
+ genomeDir <- tools::file_path_as_absolute(genomeDir) |
|
| 8 | 9 |
ggd <- GmapGenomeDirectory(path=genomeDir, create=TRUE) |
| 9 | 10 |
checkTrue(is(ggd, "GmapGenomeDirectory")) |
| 10 | 11 |
|