Fix warnings generated by tests and tell travis-ci to use node 5

Author: telser

.travis.yml

@@ -1,7 +1,6 @@
 language: node_js
 sudo: false
-node_js:
-  - 0.10
+node_js: 5
 env:
   - PATH=$HOME/purescript:$PATH
 install:

test/Test/Data/Map.purs

@@ -3,17 +3,20 @@ module Test.Data.Map where
 import Prelude
 
 import Control.Alt ((<|>))
-import Control.Monad.Eff.Console (log)
+import Control.Monad.Eff (Eff())
+import Control.Monad.Eff.Console (log, CONSOLE())
+import Control.Monad.Eff.Exception (EXCEPTION())
+import Control.Monad.Eff.Random (RANDOM())
 import Data.Foldable (foldl, for_)
 import Data.Function (on)
-import Data.List (List(..), groupBy, length, nubBy, sortBy, singleton, toList)
+import Data.List (List(..), groupBy, length, nubBy, sortBy, singleton)
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Maybe.Unsafe (unsafeThrow)
 import Data.Tuple (Tuple(..), fst)
 import Test.QuickCheck ((<?>), quickCheck, quickCheck')
-import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
+import Test.QuickCheck.Arbitrary (class Arbitrary, arbitrary)
 
-import qualified Data.Map as M
+import Data.Map as M
 
 newtype TestMap k v = TestMap (M.Map k v)
 
@@ -107,6 +110,14 @@ smallKey k = k
 number :: Int -> Int
 number n = n
 
+mapTests :: forall t.
+      Eff
+        ( console :: CONSOLE
+        , random :: RANDOM
+        , err :: EXCEPTION
+        | t
+        )
+        Unit
 mapTests = do
 
   -- Data.Map
@@ -181,7 +192,7 @@ mapTests = do
                        in f (f arr) == f (arr :: List (Tuple SmallKey Int)) <?> show arr
 
   log "fromList . toList = id"
-  quickCheck $ \(TestMap m) -> let f m = M.fromList (M.toList m) in
+  quickCheck $ \(TestMap m) -> let f m' = M.fromList (M.toList m') in
                      M.toList (f m) == M.toList (m :: M.Map SmallKey Int) <?> show m
 
   log "fromListWith const = fromList"

test/Test/Data/StrMap.purs

@@ -8,11 +8,13 @@ import Data.Function (on)
 import Data.Maybe (Maybe(..))
 import Data.Maybe.Unsafe (unsafeThrow)
 import Data.Tuple (Tuple(..), fst)
-import Control.Monad.Eff.Console (log)
+import Control.Monad.Eff(Eff())
+import Control.Monad.Eff.Console (log, CONSOLE())
+import Control.Monad.Eff.Exception (EXCEPTION())
+import Control.Monad.Eff.Random (RANDOM())
 import Test.QuickCheck ((<?>), quickCheck, quickCheck')
-import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
-import qualified Data.String as S
-import qualified Data.StrMap as M
+import Test.QuickCheck.Arbitrary (class Arbitrary, arbitrary)
+import Data.StrMap as M
 
 newtype TestStrMap v = TestStrMap (M.StrMap v)
 
@@ -45,6 +47,14 @@ runInstructions instrs t0 = foldl step t0 instrs
 number :: Int -> Int
 number n = n
 
+strMapTests :: forall t.
+        Eff
+          ( console :: CONSOLE
+          , random :: RANDOM
+          , err :: EXCEPTION
+          | t
+          )
+          Unit
 strMapTests = do
   log "Test inserting into empty tree"
   quickCheck $ \k v -> M.lookup k (M.insert k v M.empty) == Just (number v)
@@ -110,7 +120,7 @@ strMapTests = do
 
   log "fromList . toList = id"
   quickCheck $ \(TestStrMap m) ->
-    let f m = M.fromList (M.toList m) in
+    let f m1 = M.fromList (M.toList m1) in
     M.toList (f m) == M.toList (m :: M.StrMap Int) <?> show m
 
   log "fromListWith const = fromList"

test/Test/Main.purs

@@ -2,11 +2,22 @@ module Test.Main where
 
 import Prelude
 
-import Control.Monad.Eff.Console (log)
+import Control.Monad.Eff (Eff())
+import Control.Monad.Eff.Console (log, CONSOLE())
+import Control.Monad.Eff.Exception (EXCEPTION())
+import Control.Monad.Eff.Random (RANDOM())
 
 import Test.Data.Map (mapTests)
 import Test.Data.StrMap (strMapTests)
 
+main :: forall t.
+      Eff
+        ( console :: CONSOLE
+        , random :: RANDOM
+        , err :: EXCEPTION
+        | t
+        )
+        Unit
 main = do
   log "Running Map tests"
   mapTests