From 1fd4b3ab1e066cb07506ea1eb4de57fe97ce94da Mon Sep 17 00:00:00 2001
From: Andrew Martin <andrew.thaddeus@gmail.com>
Date: Mon, 5 Aug 2019 12:12:37 -0400
Subject: [PATCH] add more tests for doubleDec

---
 test/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/Main.hs b/test/Main.hs
index 00ba39f..1169a97 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -71,6 +71,10 @@ tests = testGroup "Tests"
         pack ("0.5") @=? run 1 (doubleDec 0.5)
     , THU.testCase "doubleDec-I" $
         pack ("-0.5") @=? run 1 (doubleDec (-0.5))
+    , THU.testCase "doubleDec-J" $
+        pack ("999999999") @=? run 1 (doubleDec 999999999)
+    , THU.testCase "doubleDec-K" $
+        pack ("-99999999") @=? run 1 (doubleDec (-99999999))
     ]
   , testGroup "alternate"
     [ TQC.testProperty "HexWord64" $ \x y ->