From 4ada4f140214a954e180e676040bcd31d793182f Mon Sep 17 00:00:00 2001
From: Bob Ippolito <bob@redivi.com>
Date: Sat, 25 Oct 2014 09:46:21 -0700
Subject: [PATCH] sum-of-multiples: ensure correct sum if one multiple is a
 factor of another

---
 sum-of-multiples/sum-of-multiples_test.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/sum-of-multiples/sum-of-multiples_test.hs b/sum-of-multiples/sum-of-multiples_test.hs
index 37da2c883..48ab924f4 100644
--- a/sum-of-multiples/sum-of-multiples_test.hs
+++ b/sum-of-multiples/sum-of-multiples_test.hs
@@ -14,9 +14,6 @@ main :: IO ()
 main = exitProperly $ runTestTT $ TestList
        [ TestList sumOfMultiplesTests ]
 
-ints :: [Int] -> [Int]
-ints = id
-
 -- Note that the upper bound is not included in the result
 sumOfMultiplesTests :: [Test]
 sumOfMultiplesTests =
@@ -32,4 +29,6 @@ sumOfMultiplesTests =
     51 @=? sumOfMultiples [7, 13, 17] 20
   , testCase "[43, 47] 10000" $
     2203160 @=? sumOfMultiples [43, 47] 10000
+  , testCase "[5, 25] 51" $
+    275 @=? sumOfMultiples [5,25] 51
   ]