diff --git a/Ledger/Utils.hs b/Ledger/Utils.hs
index 9290cad68..ed4a56b93 100644
--- a/Ledger/Utils.hs
+++ b/Ledger/Utils.hs
@@ -41,6 +41,7 @@ import Text.ParserCombinators.Parsec (parse)
 -- testing
 
 assertequal e a = assertEqual "" e a
+assertnotequal e a = assertBool "expected inequality, got equality" (e /= a)
 
 parsewith p ts = parse p "" ts