cleanup test files

tests/testthat/test02_blob.R

@@ -24,7 +24,7 @@ test_that("Blob client interface works",
     {
         Sys.sleep(5)
         state <- stor$sync_fields()
-        if(state == "Succeeded")
+        if(state %in% c("Succeeded", "Error", "Failed"))
             break
     }
     if(state != "Succeeded")

tests/testthat/test03_file.R

@@ -24,7 +24,7 @@ test_that("File client interface works",
     {
         Sys.sleep(5)
         state <- stor$sync_fields()
-        if(state == "Succeeded")
+        if(state %in% c("Succeeded", "Error", "Failed"))
             break
     }
     if(state != "Succeeded")

tests/testthat/test04_adls.R

@@ -24,7 +24,7 @@ test_that("ADLSgen2 client interface works",
     {
         Sys.sleep(5)
         state <- stor$sync_fields()
-        if(state == "Succeeded")
+        if(state %in% c("Succeeded", "Error", "Failed"))
             break
     }
     if(state != "Succeeded")
@@ -47,7 +47,6 @@ test_that("ADLSgen2 client interface works",
     create_adls_filesystem(paste0(ad$url, "newfs3"), key=ad$key)
 
     lst <- list_adls_filesystems(ad)
-    # list will include $xns autogenerated filesystem if hierarchical namespace enabled
     expect_true(is.list(lst) && inherits(lst[[1]], "adls_filesystem") && length(lst) == 3)
 
     expect_identical(fs, lst[["newfs1"]])
@@ -102,8 +101,7 @@ test_that("ADLSgen2 client interface works",
     delete_adls_filesystem(ad, "newfs2", confirm=FALSE)
     delete_adls_filesystem(paste0(ad$url, "newfs3"), key=ad$key, confirm=FALSE)
     Sys.sleep(5)
-    # $xns autogenerated filesystem will remain if hierarchical namespace enabled
-    expect_true(length(list_adls_filesystems(ad)) == 0)
+    expect_true(is_empty(list_adls_filesystems(ad)))
 })
 
 rg$delete(confirm=FALSE)