optimize tests

eblondel · Jul 17, 2018 · 6ea4d80 · 6ea4d80
1 parent 14ee515
commit 6ea4d80
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/tests/testthat/test_GNManager.R b/tests/testthat/test_GNManager.R
@@ -33,16 +33,14 @@ test_that("UPDATE metadata",{
   id <- "my-metadata-identifier"
   md <- GN$getMetadataByUUID(id)
   md$setDataSetURI("new-dataset-uri")
-
   metaId <- GN$get(md$fileIdentifier, by = "uuid", output = "id")
   updated <- GN$updateMetadata(id = metaId, xml = md$encode())
   expect_equal(updated, metaId)
 })
 
 test_that("DELETE metadata",{
   id <- "my-metadata-identifier"
-  md <- GN$getMetadataByUUID(id)
-  metaId <- GN$get(md$fileIdentifier, by = "uuid", output = "id")
+  metaId <- GN$get(id, by = "uuid", output = "id")
   deleted <- GN$deleteMetadata(id = metaId)
   expect_equal(deleted, metaId)
 })