       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 [
test01StkSell = FraStkSell
 { evaluation    = 561.0
 , profit        = -6.0
 , stocks        =
  [ HoldStock
   { sellOrderUrl  = Just "/servlet/ITS/stock/StkSellOrder;"
   , code          = 9399
   , caption       = "新華ホールディングス・リミテッド"
   , count         = 3
   , purchasePrice = 189.0
   , price         = 187.0
   }
  ]
 }
test01StkSell = FraStkSell
 { evaluation    = 561.0
 , profit        = -6.0
 , stocks        =
  [ HoldStock
   { sellOrderUrl  = Just "/servlet/ITS/stock/StkSellOrder;"
   , code          = 9399
   , caption       = "新華ホールディングス・リミテッド"
   , count         = 3
   , purchasePrice = 189.0
   , price         = 187.0
   }
  ]
 }