diff options
Diffstat (limited to 'tests/Test.hs')
| -rw-r--r-- | tests/Test.hs | 7 |
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 |