From 5feac2b6b427905cdb73dc947973aabfdb825f0d Mon Sep 17 00:00:00 2001 From: Elliott Sales de Andrade 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 --- 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