module TestSuites.LoadURLSpec(spec) where
--standard
import Data.List (isInfixOf)
--3rd party
import Test.Hspec.Contrib.HUnit(fromHUnitTest)
import Test.Hspec (hspec)
import Test.HUnit
--own
import HsPredictor.LoadURL

main = hspec spec
spec = fromHUnitTest $ TestList [
  TestLabel ">>getBody" test_getBody
  ]

test_getBody = TestCase $ do
  b1 <- getBody "wrong url"
  b1 @?= "wrong url or no connection"
