fix tests

eblondel · Nov 4, 2022 · b4b94be · b4b94be
1 parent 9395b10
commit b4b94be
Show file tree

Hide file tree

Showing 11 changed files with 19 additions and 19 deletions.
diff --git a/tests/testthat/test_ISOBinding.R b/tests/testthat/test_ISOBinding.R
@@ -55,7 +55,7 @@ test_that("encoding",{
   md2 <- ISOBinding$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
 
@@ -116,6 +116,6 @@ test_that("encoding - i18n",{
   md2 <- ISOBinding$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOBoundAssociationRole.R b/tests/testthat/test_ISOBoundAssociationRole.R
@@ -55,7 +55,7 @@ test_that("encoding",{
   md2 <- ISOBoundAssociationRole$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
 
@@ -162,6 +162,6 @@ test_that("encoding - i18n",{
   md2 <- ISOBoundAssociationRole$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOBoundFeatureAttribute.R b/tests/testthat/test_ISOBoundFeatureAttribute.R
@@ -56,7 +56,7 @@ test_that("encoding",{
   md2 <- ISOBoundFeatureAttribute$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
 
@@ -164,6 +164,6 @@ test_that("encoding - i18n",{
   md2 <- ISOBoundFeatureAttribute$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOFeatureAssociation.R b/tests/testthat/test_ISOFeatureAssociation.R
@@ -82,6 +82,6 @@ test_that("encoding",{
   md2 <- ISOFeatureAssociation$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOFeatureAttribute.R b/tests/testthat/test_ISOFeatureAttribute.R
@@ -34,7 +34,7 @@ test_that("encoding",{
   md2 <- ISOFeatureAttribute$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
 
@@ -74,6 +74,6 @@ test_that("encoding - i18n",{
   md2 <- ISOFeatureAttribute$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOFeatureCatalogue.R b/tests/testthat/test_ISOFeatureCatalogue.R
@@ -93,7 +93,7 @@ test_that("encoding",{
   fc2 <- ISOFeatureCatalogue$new(xml = xml)
   xml2 <- fc2$encode()
 
-  expect_true(ISOAbstractObject$compare(fc, fc2))
+  expect_true(ISOAbstractObject$compare(fc, fc2, "xml"))
 
 })
 
@@ -315,6 +315,6 @@ test_that("encoding - i18n",{
   fc2 <- ISOFeatureCatalogue$new(xml = xml)
   xml2 <- fc2$encode()
 
-  expect_true(ISOAbstractObject$compare(fc, fc2))
+  expect_true(ISOAbstractObject$compare(fc, fc2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOFeatureOperation.R b/tests/testthat/test_ISOFeatureOperation.R
@@ -25,7 +25,7 @@ test_that("encoding",{
   md2 <- ISOFeatureOperation$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
 
@@ -58,6 +58,6 @@ test_that("encoding - i18n",{
   md2 <- ISOFeatureOperation$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOFeatureType.R b/tests/testthat/test_ISOFeatureType.R
@@ -64,7 +64,7 @@ test_that("encoding",{
   md2 <- ISOFeatureType$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
 
@@ -180,6 +180,6 @@ test_that("encoding",{
   md2 <- ISOFeatureType$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOInheritanceRelation.R b/tests/testthat/test_ISOInheritanceRelation.R
@@ -238,6 +238,6 @@ test_that("encoding",{
   md2 <- ISOInheritanceRelation$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOMultiplicity.R b/tests/testthat/test_ISOMultiplicity.R
@@ -20,6 +20,6 @@ test_that("encoding",{
   md2 <- ISOMultiplicity$new(xml = xml)
   xml2 <- md2$encode()
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
diff --git a/tests/testthat/test_ISOPropertyType.R b/tests/testthat/test_ISOPropertyType.R
@@ -23,7 +23,7 @@ test_that("encoding",{
   md2 <- ISOPropertyType$new(xml = xml)
   xml2 <- md2$encode(validate = F)
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })
 
@@ -52,6 +52,6 @@ test_that("encoding - i18n",{
   md2 <- ISOPropertyType$new(xml = xml)
   xml2 <- md2$encode(validate = F)
 
-  expect_true(ISOAbstractObject$compare(md, md2))
+  expect_true(ISOAbstractObject$compare(md, md2, "xml"))
 
 })