Revert "Fix timeSeries tests on M1 architecture"

This reverts commit 917934b. The call to expect_identical() was not the problem.
joshuaulrich · Nov 24, 2023 · a917ff4 · a917ff4
1 parent 7857889
commit a917ff4
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/inst/tinytest/test-timeSeries.R b/inst/tinytest/test-timeSeries.R
@@ -47,24 +47,26 @@ if (requireNamespace("timeSeries", quietly = TRUE)) {
   # test 'reclass'
 
   info_msg <- "test.timeSeries_reclass"
-  expect_equal(sample.timeSeries,reclass(try.xts(sample.timeSeries)), info = info_msg)
+  expect_identical(sample.timeSeries,reclass(try.xts(sample.timeSeries)), info = info_msg)
 
   info_msg <- "test.timeSeries_reclass_subset_reclass_j1"
-  expect_equal(sample.timeSeries[,1],reclass(try.xts(sample.timeSeries))[,1], info = info_msg)
+  expect_identical(sample.timeSeries[,1],reclass(try.xts(sample.timeSeries))[,1], info = info_msg)
 
   info_msg <- "test.timeSeries_reclass_subset_as.xts_j1"
   spl <- sample.timeSeries[,1:2]
   respl <- reclass(try.xts(sample.timeSeries)[,1:2])
   # timeSeries fails to maintain @positions correctly if one column is selected
 
-  expect_equal(spl,respl, info = info_msg)
+  expect_identical(spl,respl, info = info_msg)
+  #expect_identical(1,1, info = info_msg)
 
   info_msg <- "test.timeSeries_reclass_subset_timeSeries_j1"
   spl <- sample.timeSeries[,1:2]
   respl <- reclass(try.xts(sample.timeSeries[,1:2]))
   # timeSeries fails to maintain @positions correctly if one column is selected
 
-  expect_equal(spl,respl, info = info_msg)
+  expect_identical(spl,respl, info = info_msg)
+  # expect_identical(1,1, info = info_msg)
 
   # end 'reclass' 
   ###############################################################################