Description: Do not try to write data file on /usr/lib
Author: Andreas Tille <tille@debian.org>
Last-Update: Mon, 09 Oct 2023 21:32:20 +0200

--- a/inst/unitTests/test_FaFile.R
+++ b/inst/unitTests/test_FaFile.R
@@ -1,13 +1,5 @@
 fl <- system.file("extdata", "ce2dict1.fa", package="Rsamtools")
 
-test_FaFile_openclose <- function()
-{
-    fa <- FaFile(fl)
-    checkIdentical(FALSE, isOpen(fa))
-    checkIdentical(TRUE, isOpen(open(fa)))
-    checkIdentical(FALSE, isOpen(close(fa)))
-}
-
 test_FaFile_emptyfile <- function()
 {
     fl <- tempfile()
@@ -23,14 +15,6 @@ test_FaFile_emptyid <- function()
     close(fa)
 }
 
-test_FaFile_indexFa <- function()
-{
-    fa <- FaFile(fl)
-    fai <- index(fa)
-    fa <- indexFa(fa)
-    checkIdentical(fai, index(fa))
-}
-
 test_FaFile_scanFaIndex <- function()
 {
     .checkIdx <- function(idx) {