From d16cbc7e2b2849e237b0e6aed612787a42f6e5e8 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 1 Feb 2014 23:32:16 +0900
Subject: [PATCH] Adding a modular-expt test.

---
 tests/prime-tests.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/prime-tests.scm b/tests/prime-tests.scm
index a560e88b..74f63e0f 100644
--- a/tests/prime-tests.scm
+++ b/tests/prime-tests.scm
@@ -82,4 +82,9 @@
 (test #f (probable-prime? 4611686020243253183))
 (test #f (probable-prime? 4611686020243253247))
 
+(test 5
+    (modular-expt 7670626353261554806
+                  5772301760555853353
+                  (* 2936546443 3213384203)))
+
 (test-end)