tests: fix error on creation_section after adding class to objects

Refs #6

tests: fix error on creation_section after adding class to objects
Refs #6
bfe96e57 · Dorchies David · 32bd78b5 · bfe96e57
Commit bfe96e57 authored 3 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 2 deletions
+2 -2
--- a/tests/testthat/test-create_section_txt.R
+++ b/tests/testthat/test-create_section_txt.R
@@ -7,7 +7,7 @@ profT <- list(

 test_that("Trapezoidale minor section", {
  expect_equal(
-    create_section_txt("toto", 1000, "T", profT, distance_majeur = FALSE),
+    create_section_txt("toto", 1000, "T", profT, distance_majeur = FALSE)[1:3],
    c("toto $ 1000 $  $ 0 $ T", "2\t1", "102\t100")
  )
  profT_wrong <- profT
@@ -23,7 +23,7 @@ test_that("X/Z minor section", {
  )
  profA <- matrix(c(0, 2, 4, 6, 102, 100, 100, 102), ncol = 2)
  expect_equal(
-    create_section_txt("toto", 1000, "A", profA, distance_majeur = FALSE),
+    create_section_txt("toto", 1000, "A", profA, distance_majeur = FALSE)[1:5],
    c("toto $ 1000 $  $ 0 $ A", "0\t102", "2\t100", "4\t100", "6\t102")
  )
 })