1 files changed, 6 insertions, 0 deletions

diff --git a/tests/properties.hs b/tests/properties.hs
index 2e5345f..876b954 100644
--- a/tests/properties.hs
+++ b/tests/properties.hs
@@ -70,3 +70,9 @@ main = hspec $ do
 
     it "generic records" $ property $
       prop_bencodable (T :: T FileInfo)
+
+  describe "Get" $ do
+    it "catchable from pure code" $ do
+      fromDict (fail "fatal error" :: Get Int) (BDict BE.Nil)
+           `shouldBe`
+       Left "fatal error"