33 lines
1.3 KiB
Diff
33 lines
1.3 KiB
Diff
From 5feac2b6b427905cdb73dc947973aabfdb825f0d Mon Sep 17 00:00:00 2001
|
|
From: Elliott Sales de Andrade <quantum.analyst@gmail.com>
|
|
Date: Thu, 31 Dec 2020 02:45:14 -0500
|
|
Subject: [PATCH 2/2] Add test hashes for big-endian machines.
|
|
|
|
Signed-off-by: Elliott Sales de Andrade <quantum.analyst@gmail.com>
|
|
---
|
|
tests/testthat/test-hash.R | 12 +++++++++---
|
|
1 file changed, 9 insertions(+), 3 deletions(-)
|
|
|
|
diff --git a/tests/testthat/test-hash.R b/tests/testthat/test-hash.R
|
|
index c43c82ba..fb74d14c 100644
|
|
--- a/tests/testthat/test-hash.R
|
|
+++ b/tests/testthat/test-hash.R
|
|
@@ -1,5 +1,11 @@
|
|
test_that("simple hashes with no ALTREP and no attributes are reproducible", {
|
|
- expect_identical(hash(1), "a3f7d4a39b65b170005aafbbeed05106")
|
|
- expect_identical(hash("a"), "4d52a7da68952b85f039e85a90f9bbd2")
|
|
- expect_identical(hash(1:5 + 0L), "0d26bf75943b8e13c080c6bab12a7440")
|
|
+ if (.Platform$endian == "little") {
|
|
+ expect_identical(hash(1), "a3f7d4a39b65b170005aafbbeed05106")
|
|
+ expect_identical(hash("a"), "4d52a7da68952b85f039e85a90f9bbd2")
|
|
+ expect_identical(hash(1:5 + 0L), "0d26bf75943b8e13c080c6bab12a7440")
|
|
+ } else {
|
|
+ expect_identical(hash(1), "e102171758b6df27bab06e4b99ad7d61")
|
|
+ expect_identical(hash("a"), "49a20bac2e944a3b87d0f5f70b8b5553")
|
|
+ expect_identical(hash(1:5 + 0L), "f24b071216a7d95ccbfcf28616107d64")
|
|
+ }
|
|
})
|
|
--
|
|
2.29.2
|
|
|