Detect unchanged promotions

jonasseglare · Dec 8, 2018 · d475a72 · d475a72
1 parent 492fb37
commit d475a72
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/test/bluebell/utils/ebmd/java_test.clj b/test/bluebell/utils/ebmd/java_test.clj
@@ -332,7 +332,13 @@
     (.extendArgSpec r :u :a)
     (is (= 7 (.getMutationCounter r)))
     (.extendArgSpec r :u :b)
-    (is (= 8 (.getMutationCounter r)))))
+    (is (= 8 (.getMutationCounter r)))
+    (.registerPromotion r :b (Promotion. identity 2.3) :a)
+    (is (= 9 (.getMutationCounter r)))
+    (.registerPromotion r :b (Promotion. identity 2.3) :a)
+    (is (= 9 (.getMutationCounter r)))
+    (.registerPromotion r :b (Promotion. identity 2.4) :a)
+    (is (= 10 (.getMutationCounter r)))))
 
 (deftest basic-poly-fns
   (let [reg (Registry. debug-settings)