Haskell：Web APIのテスト

Question

私は、ネットワーク上の要求を行うHaskellアプリケーションのテストにどのようなメソッドが使用されているのだろうと考えていますか？ Rubyの土地から来て、私はハスケル関数をテストする目的で、ネットワーク呼び出しをスタブまたは「シミュレート」できるものを探してきました。私はとりわけ "VCR"のようなソリューション（例えばhttps://github.com/myronmarston/vcr）に興味があります。これは最も実行可能なオプションのようです。

したがって、ネットワークの要求/応答のペアを一度記録し、その後のテストでこれらのレコードを再利用できるようにしたいと考えています。テストの前にウェブサーバ（ワープ）を起動し、あらかじめ記録されたレスポンスを提供する私自身の単純な組み合わせを考え出しましたが、アプリケーション内のすべてのURLを "localhost"にする必要があります。私は、アプリケーション内のすべてのURLを置き換えることが常に可能なわけではないと推測します。私は上記の私自身のセットアップにはとても満足していますが（後で専用のテストツール/フレームワーク "プラグイン"を作りたいと思っていますが）、私はむしろホイールを再開発したくありません。

Answer 1

Control.Proxy.Tutorialをご覧ください。あなたがあなたのタイプの周りのプロキシラッパーを書くことができるならば、あなたは簡単にテストインタフェースと、このような実際のインターフェイスを入れ替えることができます。

client <-< simulatedServer 

client <-< realServer 

編集：コメントにあなたの質問に答えるためには、次のように記述するServerを使用しますあなたのsimpleHTTPリクエストのラッパー：シミュレートされたサーバーは次のようになり

realServer 
:: HStream ty => Request ty -> Server (Request ty) (Result (Response ty)) IO r 
realServer = foreverK $ \req -> do 
    result <- lift $ simpleHTTP req 
    respond result 

：

simulatedServer 
:: (Monad m, HStream ty) 
=> Request ty -> Server (Request ty) (Result (Response ty)) m r 
simulatedServer = foreverK $ \req -> do 
    result <- lift $ simulatedRequest req 
    respond result 

そして、あなたのクライアントはリクになりますE：

client 
:: (Monad m, HStream ty) =>() -> Client (Request ty) (Result (Response ty)) m r 
client() = forever $ do 
    let req = <something> 
    result <- request req 
    lift $ doSomethingWith result 

次に、あなたが使用して実サーバと偽のサーバーをテストすることができます。

-- Test the real server 
main = runSession $ client <-< realServer 

-- Test the fake server 
main = runSession $ client <-< simulatedServer 

clientとsimulatedServerは、私が何をベースモナド彼らは希望を知らないだけであるため、ベースモナドで多形性あなたのテストのために使用してください。唯一の要件は、あなたが構成する2つのものが同じ基本モナドを持つか、少なくとも1つが基本モナドの多形であるということです。