F#のコードをユニットテストで検証するその1

デフォルトのVisual Studio 2013の環境で、F#のコードのユニットテストを実行してみます。以下は普通のコンソールアプリケーションのプロジェクトに含まれているコードです。
Microsoft.VisualStudio.TestTools.UnitTesting名前空間を使うので、予め Microsoft.VisualStudio.QualityTools.UnitTestFramework への参照をプロジェクトに追加しておきます。

コードの例

module Test01
(* 参照の追加：Microsoft.VisualStudio.QualityTools.UnitTestFramework *)
open Microsoft.VisualStudio.TestTools.UnitTesting
 
let rangeData = [1..10]
 
[<TestClass>]
type ``A unit testing exercise``() =
    let mutable myList = []
 
    [<TestInitialize>]  
    member this.setup(): unit =
        // テストの準備
        myList <- rangeData
 
    [<TestMethod>]
    member this.body() : unit =
        let sum = List.fold (+) 0 myList  // リスト要素の総和を求める
        Assert.AreEqual(55 , sum)
 
    [<TestCleanup>]  
    member this.teardown(): unit =
        // テストの後始末
        ()

F#ではキーワード type を使ってclass宣言を行います。8行目の``A unit testing exercise``がユニットテストに用いるクラス名です。ユニットテストで使うことを明示するために TestClassアトリビュートを付加しておきます。クラス名をバッククォート記号「`」二つずつを前後に使って囲っているのは識別子名にホワイトスペースが含まれているからです。F#ではバッククォート記号で識別子名を囲むことによって識別子に使えない文字を混ぜることができます。

12行目のTestInitializeアトリビュートの付いたメソッドsetupはテスト実行前に必要な処理を書きます。F#ではアトリビュート識別子は [< ... >] で囲みます。
メソッドシグネチャは(unit -> unit)。

17行目のTestMethodアトリビュートの付いたメソッドbodyはテストで使われる本体部分です。
メソッドシグネチャは(unit -> unit)。ここではリストの要素（1から10までの整数）の総和を求めて55に等しいかを Assert.AreEqual メソッドを使って検査しています。

22行目のTestCleanupアトリビュートの付いたメソッドteardownはテスト完了後に必要な後処理を書きます。この例では特に何もしないので()を返しています。
メソッドシグネチャは(unit -> unit)。

テストを実行するために、メニューバーから「テスト」→「ウィンドウ」→「テストエクスプローラー」を選択してテスト画面を開きます。

f:id:pongitsune:20160210204115j:plain