import Data.Aeson
import Data.Default
import qualified Data.HashMap.Strict as HM
+import Data.Either
import Data.Maybe
import qualified Data.Text as T
import Control.Applicative.Combinators
in session `shouldThrow` anySessionException
it "initializeResponse" $ runSession "hie" fullCaps "test/data/renamePass" $ do
rsp <- initializeResponse
- liftIO $ rsp ^. result `shouldNotBe` Nothing
+ liftIO $ rsp ^. result `shouldSatisfy` isLeft
it "runSessionWithConfig" $
runSession "hie" didChangeCaps "test/data/renamePass" $ return ()