From 53b1898e064d27d54f3df7175f159aef34a72d09 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Fri, 6 Dec 2024 11:49:18 +0100
Subject: [PATCH] test_entropy: fail again, but disable on arm64

---
 tests/dune            | 4 +++-
 tests/test_entropy.ml | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/dune b/tests/dune
index 32afebe7..f0363cae 100644
--- a/tests/dune
+++ b/tests/dune
@@ -41,7 +41,9 @@
  (name test_entropy)
  (modules test_entropy)
  (package mirage-crypto-rng)
- (libraries mirage-crypto-rng ohex))
+ (libraries mirage-crypto-rng ohex)
+ (enabled_if (<> %{architecture} "arm64")))
+ ; see https://github.com/mirage/mirage-crypto/issues/216
 
 (test
  (name test_ec)
diff --git a/tests/test_entropy.ml b/tests/test_entropy.ml
index 77b69e15..13cb91fe 100644
--- a/tests/test_entropy.ml
+++ b/tests/test_entropy.ml
@@ -35,7 +35,7 @@ let timer_check () =
     let data' = Mirage_crypto_rng.Entropy.interrupt_hook () in
     if String.equal !data data' then begin
       Ohex.pp Format.std_formatter data';
-      print_endline ("same data from timer at " ^ string_of_int i);
+      failwith ("same data from timer at " ^ string_of_int i);
     end;
     data := data'
   done