pivotal-tracker-0.2.0.0: test/Spec.hs

import Test.Hspec

--------------------------------------------------------------------------------
import           Data.Functor((<$>))
--------------------------------------------------------------------------------
import           Web.Tracker
import           Web.Tracker.Story
--------------------------------------------------------------------------------

main :: IO ()
main = hspec $
  describe "Web.Tracker story" $
    it "should return story data" $ do
      manager <- mkManager
      s <- runTrackerAPI token manager $ story (StoryId 104591424)
      show (sStoryType <$> s) `shouldBe` "Right Feature"
      show (sName <$> s) `shouldBe` "Right \"Shopper should be able to view contents of shopping cart\""
    where
        token = "7f3f76bc6ae8c48e7b528369c999c8d8"