output.txt

[matt@bowie src (master)]$ runhaskell Tests.hs 

Tests.hs:13:9:
    Ambiguous type variable `a' in the constraints:
      `Show a' arising from a use of `~?=' at Tests.hs:(13,9)-(14,11)
      `Eq a' arising from a use of `~?=' at Tests.hs:(13,9)-(14,11)
    Probable fix: add a type signature that fixes these type variable(s)

Tests.hs

module Main
where

import Test.HUnit
import Cities

main = runTestTT tests

tests = TestList [
    "check" ~: 1 ~?= 0,

    "calculates for a single user"
      ~: affinities [("matt", ["london"])]
      ~?= [],

    "calculates city affinities"
      ~: affinities [("matt", ["london","paris","nyc"]),("sue", ["london", "nyc"])]
      ~?= [("london","nyc",2),("london","paris",1),("paris","nyc",1)]
  ]