spec :: Spec
spec = do
    --
    describe "scrapingFraHomeAnnounce" $
        it "test 01" $ do
            html <- TL.readFile ("test/MatsuiCoJp/" ++ test01HomeAnnounce)
            scrapingFraHomeAnnounce [html] >>= shouldBe test01HomeAnnounce'
    --
    describe "scrapingFraStkSell" $ do
        it "test 01" $ do
            html <- TL.readFile ("test/MatsuiCoJp/" ++ test01StkHavingList)
            scrapingFraStkSell [html] >>= shouldBe test01StkSell
        --
        it "test 02" $ do
            html <- TL.readFile ("test/MatsuiCoJp/" ++ test02StkHavingList)
            scrapingFraStkSell [html] >>= shouldBe test02StkSell
    --
    describe "scrapingFraAstSpare" $
        it "test 01" $ do
            html <- TL.readFile ("test/MatsuiCoJp/" ++ test01AstSpare)
            scrapingFraAstSpare [html] >>= shouldBe test01AstSpare'
spec = do
    --
    describe "scrapingFraHomeAnnounce" $
        it "test 01" $ do
            html <- TL.readFile ("test/MatsuiCoJp/" ++ test01HomeAnnounce)
            scrapingFraHomeAnnounce [html] >>= shouldBe test01HomeAnnounce'
    --
    describe "scrapingFraStkSell" $ do
        it "test 01" $ do
            html <- TL.readFile ("test/MatsuiCoJp/" ++ test01StkHavingList)
            scrapingFraStkSell [html] >>= shouldBe test01StkSell
        --
        it "test 02" $ do
            html <- TL.readFile ("test/MatsuiCoJp/" ++ test02StkHavingList)
            scrapingFraStkSell [html] >>= shouldBe test02StkSell
    --
    describe "scrapingFraAstSpare" $
        it "test 01" $ do
            html <- TL.readFile ("test/MatsuiCoJp/" ++ test01AstSpare)
            scrapingFraAstSpare [html] >>= shouldBe test01AstSpare'