[mmzk] (test) 2015 Part 4

MMZK1526 · Oct 10, 2023 · 03d5b1d · 03d5b1d
1 parent 0239ce6
commit 03d5b1d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Year2015/Exam.hs b/src/Year2015/Exam.hs
@@ -480,6 +480,8 @@ tester = runTest do
   label "Test 'executeBlock'" do
     execSumA' [9, 5, 7, 1] 3 ==. [("s", (Local, I 22))]
     execGlobalSumA' [9,5,7,1] 3 ==. [("s", (Global, I 22))]
+  label "Test 'translate'" do
+    fibMGenerator ==. fibM
 
 newtype EqValue = EqValue { unEQ :: Value }