はじめに
F#を使ってユニットテストしたいですよね。
.NETでmockと言えばMoqですよね。
Moqを使ってユニットテストを試してみましょう。
前提
テスト用のプロジェクト作成からやっていきます。
dotnetのコマンドをぽちぽち打ちながらやっていきます。
下準備
ソリューション作成
今回はNUnitMoqというソリューションを作ります。
その下にテスト対象のプロジェクトとテストプロジェクトを作っていきます。
mkdir NUnitMoq
cd NUnitMoq
# ソリューション作成
dotnet new sln
プロジェクト作成
テスト対象のプロジェクトとテストプロジェクトを作ります。
# テスト対象のプロジェクト作成
dotnet new console -lang="F#" -o="Sample"
# テストプロジェクトを作成
dotnet new nunit -lang="F#" -o="SampleTest"
それぞれのプロジェクトをソリューションに紐付けます。
dotnet sln NUnitMoq.sln add Sample
dotnet sln NUnitMoq.sln add SampleTest
テストプロジェクトからテスト対象プロジェクトへの参照を追加します。
dotnet add SampleTest reference Sample
FsUnitとMoqの依存を追加
SampleTest配下でこれをする。
dotnet add package FsUnit --version 5.2.0
dotnet add package Moq --version 4.18.4
テスト対象
TestTarget.fs
module TestTarget
open System
open GetDataPort
let getDataWithUpperLetter (getData: GetData) (dataType: DataType) =
getData dataType |> String.map Char.ToUpper
GetDataPort.fs
module GetDataPort
type DataType = TypeA | TypeB
type GetData = DataType -> string
GetData.fs
module GetData
open GetDataPort
let getData (x: DataType) =
match x with
| TypeA -> "hoge"
| TypeB -> "piyo"
テスト対象になるのはTestTarget.fsのgetDataWithUpperLetterです。
GetDataPortのGetDataを引数として受け取っています。
今回のテストでは、GetDataをmockしていきます。
※GetDataのイメージが付きやすくなるように、GetData.fsのソースものっけましたが、今回のテストをするだけならGetData.fsは不要です
テストを書いてみる
GetDataWithUpperLetterTest.fs
open System
open NUnit.Framework
open FsUnit
open Moq
open TestTarget
open GetDataPort
[<TestFixture>]
module GetDataWithUpperLetterTest =
[<Test>]
let ``Moqを使ってテストするぞ``() =
// モックの作成
let getDataMock = new Mock<GetData>()
// モックのセットアップ
getDataMock.Setup(fun x -> x DataType.TypeA).Returns "Hello World"
// モックのオブジェクトを取得
let getData = getDataMock.Object
// テスト実行
getDataWithUpperLetter getData DataType.TypeA |> should equal "HELLO WORLD"
// モックが期待通り動いたか確認
getDataMock.VerifyAll()
SampleTest配下でdotnet testを打つとテストが実行されます。
VerifyAll()はセットアップしたモックが正しく呼ばれているかなどを確認できる。
感想
一部C#っぽ記法が出ちゃうのは残念ですが、mockのパッケージを使えるのはありがたい。
色々端折ったところが多いので、ソース見たい方は下記を参照してください。
追記
モックが呼ばれていないことはVerifyNoOtherCallsで確認できそう
open System
open NUnit.Framework
open FsUnit
open Moq
open TestTarget
open GetDataPort
[<TestFixture>]
module GetDataWithUpperLetterTest =
[<Test>]
let ``Moqを使ってテストするぞ``() =
// モックの作成
let getDataMock = new Mock<GetData>()
// モックのセットアップ
getDataMock.Setup(fun x -> x DataType.TypeA).Returns "Hello World"
// モックのオブジェクトを取得
let getData = getDataMock.Object
// 呼ばれない予定のモック
let notCallMock = new Mock<NotCall>()
let notCall = notCallMock.Object
// テスト実行
getDataWithUpperLetter getData DataType.TypeA notCall |> should equal "HELLO WORLD"
// モックが期待通り動いたか確認
getDataMock.VerifyAll()
// モックが呼ばれていないことの確認
notCallMock.VerifyNoOtherCalls()