update tests minor changes

poissonconsulting · Jun 13, 2024 · fedd2a0 · fedd2a0
1 parent 06afd89
commit fedd2a0
Show file tree

Hide file tree

Showing 9 changed files with 2,573 additions and 2,574 deletions.
diff --git a/tests/testthat/_snaps/add-gm-elevation-to-point/elevation.csv b/tests/testthat/_snaps/add-gm-elevation-to-point/elevation.csv
diff --git a/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms.csv b/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms.csv
diff --git a/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_34.csv b/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_34.csv
diff --git a/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_35.csv b/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_35.csv
diff --git a/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_elev.csv b/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_elev.csv
diff --git a/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_inaccuracy.csv b/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_inaccuracy.csv
diff --git a/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_tinac.csv b/tests/testthat/_snaps/convert-streams-to-rms/fwa_convert_streams_to_rms_tinac.csv
diff --git a/tests/testthat/test-add-gm-elevation-to-point.R b/tests/testthat/test-add-gm-elevation-to-point.R
@@ -6,11 +6,10 @@ test_that("fwa_add_gm_elevation_to_point works few", {
   expect_identical(colnames(x), c("blk", "rm", "elevation", "geometry"))
   skip_on_os("linux")
   expect_equal(x$elevation,
-               c(5, 5, 5, 5, 5, 10.3936414718628, 5.35515594482422, 5.00018835067749,
-                 9.28686714172363, 7.15812873840332, 7.00370025634766, 8.34566402435303,
-                 10.8686275482178, 10.2142515182495, 11.205244064331, 11.2773637771606,
-                 10.5231037139893, 75.4199447631836, 165.338165283203, 208.487548828125
-               ))
+               c(5, 5, 5, 5, 5, 10.4482297897339, 5.37834215164185, 5, 9.25851440429688,
+                 7.17906618118286, 7.01196908950806, 8.31775856018066, 10.8424005508423,
+                 10.237512588501, 11.2183532714844, 11.2872858047485, 10.5328788757324,
+                 75.5071563720703, 165.420700073242, 208.490798950195))
 })
 
 test_that("fwa_add_gm_elevation_to_point works digits", {

diff --git a/tests/testthat/test-snap-rm-to-point.R b/tests/testthat/test-snap-rm-to-point.R
@@ -25,8 +25,8 @@ test_that("fwa_snap_rm_to_point handles different projection", {
   expect_equal(x$blk, rep(356308001, 5))
   expect_equal(x$rm, c(1000, 3000, 4000, 4000, 8000))
   skip_on_os("linux")
-  expect_equal(x$distance_to_rm, c(873.50885850392, 535.63765010454, 754.230245890789, 610.731097004499,
-                                   514.952511361304))
+  expect_equal(x$distance_to_rm, c(873.234910729237, 535.423300272613, 754.094196812846, 610.927151569317,
+                                   514.650461141983))
   expect_s3_class(x$geometry, "sfc_POINT")
 })
 
@@ -42,8 +42,8 @@ test_that("fwa_snap_rm_to_point handles different projection x", {
   expect_equal(x$blk, rep(356308001, 5))
   expect_equal(x$rm, c(1000, 3000, 4000, 4000, 8000))
   skip_on_os("linux")
-  expect_equal(x$distance_to_rm, c(870.660879113271, 534.199200143721, 754.770979128795, 609.168343854328,
-                                   513.588145823022))
+  expect_equal(x$distance_to_rm, c(870.669835173722, 534.213451637178, 754.759413126628, 609.184795518874,
+                                   513.580260460033))
   expect_s3_class(x$geometry, "sfc_POINT")
 })