Fix lookupDefault

1 files changed, 7 insertions, 0 deletions

diff --git a/tests/Test.hs b/tests/Test.hs
index 03dc979..03f9d39 100644
--- a/tests/Test.hs
+++ b/tests/Test.hs
@@ -25,6 +25,7 @@ main = defaultMain tests
 tests :: [Test]
 tests =
   [ testCase "binding" bindingAssertion
+  , testCase "lookupDefault" lookupDefaultAssertion
   , testCase "name" nameAssertion
   , testCase "value" valueAssertion
   , testCase "skip" skipAssertion
@@ -57,6 +58,12 @@ bindingAssertion = do
   assertEqual "overlapping bindings count" 2 (M.size . hashMap $ overlappingBindings)
   assertEqual "overlapping bindings redefinition" (Just "baz") (lookup "x" overlappingBindings :: Maybe String)
 
+lookupDefaultAssertion :: Assertion
+lookupDefaultAssertion = do
+  config <- forceGetConfig "x = 5"
+  assertEqual "x" 5 (lookupDefault 10 "x" config :: Int)
+  assertEqual "y" 10 (lookupDefault 10 "y" config :: Int)
+
 nameAssertion :: Assertion
 nameAssertion = do
   validNames <- forceGetConfig $ T.unlines