spec :: Spec
spec = do
   describe "getBulletML" $ do
     it "empty bulletml" $ do
        "<bulletml></bulletml>" `parsedWith` getBulletML `shouldBe` [BulletML ONone []]
   describe "getSpeed" $ do
     it "relative speed" $ do
        "<speed type='relative'>6</speed>" `parsedWith` getSpeed `shouldBe` [Speed SOATRelative 6]
   describe "getActionContent" $ do
     it "actionRef" $ do
        "<actionRef label='toto'><param>1</param><param>2</param></actionRef>" `parsedWith` getActionContent `shouldBe` [(ACActionRef (Reference "toto" [1.0, 2.0]))]
spec :: Spec
spec = do
   describe "getBulletML" $ do
     it "empty bulletml" $ do
        "<bulletml></bulletml>" `parsedWith` getBulletML `shouldBe` [BulletML ONone []]
   describe "getSpeed" $ do
     it "relative speed" $ do
        "<speed type='relative'>6</speed>" `parsedWith` getSpeed `shouldBe` [Speed SOATRelative 6]
   describe "getActionContent" $ do
     it "actionRef" $ do
        "<actionRef label='toto'><param>1</param><param>2</param></actionRef>" `parsedWith` getActionContent `shouldBe` [(ACActionRef (Reference "toto" [1.0, 2.0]))]
spec = do
   describe "getBulletML" $ do
     it "empty bulletml" $ do
        "<bulletml></bulletml>" `parsedWith` getBulletML `shouldBe` [BulletML ONone []]
   describe "getSpeed" $ do
     it "relative speed" $ do
        "<speed type='relative'>6</speed>" `parsedWith` getSpeed `shouldBe` [Speed SOATRelative 6]
   describe "getActionContent" $ do
     it "actionRef" $ do
        "<actionRef label='toto'><param>1</param><param>2</param></actionRef>" `parsedWith` getActionContent `shouldBe` [(ACActionRef (Reference "toto" [1.0, 2.0]))]