From 9b5a35b5d2ea48ab309e900ca41226599248f310 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 10 Oct 2008 11:11:49 +0000
Subject: [PATCH] assertnotequal

---
 Ledger/Utils.hs | 1 +
 1 file changed, 1 insertion(+)

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