expect_identical(resBack[[1]], "We Leave From Here")
expect_identical(remDr$getTitle()[[1]], "This page has iframes")
expect_identical(remDr$getTitle()[[1]], "We Leave From Here")

skip("unix file command used to determine file type")
fileInfo <- system(paste("file --mime-type", tmpF), intern = TRUE)

"unix file command used to determine file type"

#     `utils::download.file` = function(url, destfile, ...){
#       list(sURL = url, sFile = destfile, tFile = tempFile)
#       expect_warning(out <- checkForServer(update = TRUE))
#   if(.Platform$OS.type != "unix") return()
#   if(Sys.info()[["sysname"]] != "Linux") return()
#     `base::system2` = function(command, args, ...){
#     `base::system` = function(command, ...){
#     `tools::pskill` = function(pid, ...){
#       expect_warning(out <- startServer(dir = dirname(selFILE)))
if (Sys.info()[["sysname"]] != "Linux") {
out <- getFirefoxProfile(tempdir(), useBase = TRUE)
fprof <- makeFirefoxProfile(list(browser.download.dir = "D:/temp"))