assert the reset service has worked as expected (digital-asset#2305)

* assert the reset service has worked as expected * flipping hlint
FlashSheridan · Jul 26, 2019 · 77ed83b · 77ed83b
1 parent d84afb6
commit 77ed83b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/language-support/hs/bindings/test/DA/Ledger/Tests.hs b/language-support/hs/bindings/test/DA/Ledger/Tests.hs
@@ -582,6 +582,8 @@ resetSandbox :: Sandbox-> IO ()
 resetSandbox sandbox = runWithSandbox sandbox $ do
     lid <- getLedgerIdentity
     Ledger.reset lid
+    lid2 <- getLedgerIdentity
+    unless (lid /= lid2) $ fail "resetSandbox: reset did not change the ledger-id"
 
 ----------------------------------------------------------------------
 -- misc expectation combinators