update tests

dataobservatory-eu · Dec 16, 2024 · b2b8294 · b2b8294
1 parent 87dd990
commit b2b8294
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 9 deletions.
diff --git a/data/iris_dataset.rda b/data/iris_dataset.rda
diff --git a/tests/testthat/test-datacite.R b/tests/testthat/test-datacite.R
@@ -1,12 +1,12 @@
-iris_datacite <- datacite(
-   Title = "Iris Dataset",
-   Creator = person(family="Anderson", given ="Edgar", role = "aut"),
-   Publisher = "American Iris Society",
-   PublicationYear = 1935,
-   Geolocation = "US",
-   Language = "en")
 
 test_that("datacite() works", {
+  iris_datacite <- datacite(
+    Title = "Iris Dataset",
+    Creator = person(family="Anderson", given ="Edgar", role = "aut"),
+    Publisher = "American Iris Society",
+    PublicationYear = 1935,
+    Geolocation = "US",
+    Language = "en")
   expect_true(is.datacite(iris_datacite))
   expect_equal(iris_datacite$language, 'en')
   expect_equal(iris_datacite$geolocation, 'US')

diff --git a/tests/testthat/test-dublincore.R b/tests/testthat/test-dublincore.R
@@ -33,8 +33,6 @@ test_that("dublincore() works", {
   expect_equal(dct_iris$description, "The famous (Fisher's or Anderson's) iris data set gives the measurements in centimeters of the variables sepal length and width and petal length and width, respectively, for 50 flowers from each of 3 species of iris. The species are Iris setosa, versicolor, and virginica.")
 })
 
-x = iris_dataset
-
 test_that("as_dublincore() works", {
   expect_true(is.dublincore(as_dublincore(iris_dataset)))
   expect_true(is.list(as_dublincore(x=iris_dataset, type="list")))