Add edge case test for defaults in sum-of-multiples

exercism · Apr 25, 2016 · 4a546a6 · 4a546a6
1 parent 76f0fbb
commit 4a546a6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/exercises/sum-of-multiples/example.hs b/exercises/sum-of-multiples/example.hs
@@ -1,5 +1,6 @@
 module SumOfMultiples (sumOfMultiples) where
 
 sumOfMultiples :: [Int] -> Int -> Int
+sumOfMultiples [] upperBound = sumOfMultiples [3,5] upperBound
 sumOfMultiples targets upperBound = sum (filter f [1..upperBound-1])
   where f n = any ((==0) . mod n) targets
diff --git a/exercises/sum-of-multiples/sum-of-multiples_test.hs b/exercises/sum-of-multiples/sum-of-multiples_test.hs
@@ -25,6 +25,8 @@ sumOfMultiplesTests =
     23 @=? sumOfMultiples [3, 5] 10
   , testCase "1000" $
     233168 @=? sumOfMultiples [3, 5] 1000
+  , testCase "[7, 13, 17] 20" $
+    543 @=? sumOfMultiples [] 50
   , testCase "[7, 13, 17] 20" $
     51 @=? sumOfMultiples [7, 13, 17] 20
   , testCase "[4, 6] 15" $