From 6ea4d804f78a5088817c2d9f81d5cb9fb930ec70 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 17 Jul 2018 20:27:28 +0200
Subject: [PATCH] optimize tests

---
 tests/testthat/test_GNManager.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/tests/testthat/test_GNManager.R b/tests/testthat/test_GNManager.R
index 0d33423..3a2c6a9 100644
--- a/tests/testthat/test_GNManager.R
+++ b/tests/testthat/test_GNManager.R
@@ -33,7 +33,6 @@ 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)
@@ -41,8 +40,7 @@ test_that("UPDATE metadata",{
 
 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)
 })
\ No newline at end of file