hashTest :: Test
hashTest = TestCase $ do
  assertBool "hash produces different values" (hash key1 /= hash key2)
  where key1 = "foo"; key2 = "bar"

-- XXX hack: is there no other way to wait?
hashTest :: Test
hashTest = TestCase $ do
  assertBool "hash produces different values" (hash key1 /= hash key2)
  where key1 = "foo"; key2 = "bar"

-- XXX hack: is there no other way to wait?
hashTest = TestCase $ do
  assertBool "hash produces different values" (hash key1 /= hash key2)
  where key1 = "foo"; key2 = "bar"

-- XXX hack: is there no other way to wait?