itIsNotInDomain =
  let Just url = importURL "http://a.b.c/test" in
  False @=? isInDomain "a.b.d" url
itIsNotInDomain =
  let Just url = importURL "http://a.b.c/test" in
  False @=? isInDomain "a.b.d" url
itIsNotInDomain =
  let Just url = importURL "http://a.b.c/test" in
  False @=? isInDomain "a.b.d" url