F#单体测试

最近试着写了些F#代码。不过习惯了TDD的我心里感觉有点不踏实，是不是还缺点什么呢？对了，单体测试。经过一番搜索和调查我决定试试 FsUnit。结合该框架的示例代码的学习备注如下。

(*　添加引用　*)
#r　"FsUnit.NUnit.dll"
#r　"nunit.framework.dll"
(*　导入命名空间　*)
open　NUnit.Framework
open　FsUnit
(*　定义被测类　*)
type　LightBulb(state)　=
　　　　　 member　x.On　=　state
　　　　　 override　x.ToString()　=
　　　　　　　　　　　　　 match　x.On　with
　　　　　　　　　　　　　 |　true　　　　->　"On"
　　　　　　　　　　　　　 |　false　->　"Off"
(*
首先通过Attribute定义了一个TestFixture。
Setup的时候生成一个LightBulb实例，初始状态为true。
该　TestFixture包含了分别测试On属性和toString方法的两个测试方法。
测试方法的命名很有特色。测试断言通过使用管道也和自然语言很接近。
*)
[<TestFixture>]
type　``Given　a　LightBulb　that　has　had　its　state　set　to　true``　()=
　　　　　 let　lightBulb　=　new　LightBulb(true)
　　　　　 [<Test>]　member　x.
　　　　　　　　 ``when　I　ask　whether　it　is　On　it　answers　true.``　()=
　　　　　　　　　　　　　　　　　　　　　 lightBulb.On　|>　should　be　True
　　　　　 [<Test>]　member　x.
　　　　　　　　 ``when　I　convert　it　to　a　string　it　becomes　"On".``　()=
　　　　　　　　　　　　　　　　　　　　　 string　lightBulb　|>　should　equal　"On"
[<TestFixture>]
type　``Given　a　LightBulb　that　has　had　its　state　set　to　false``　()=
　　　　　 let　lightBulb　=　new　LightBulb(false)
　　　　　 [<Test>]　member　x.
　　　　　　　　 ``when　I　ask　whether　it　is　On　it　answers　false.``　()=
　　　　　　　　　　　　　　　　　　　　　 lightBulb.On　|>　should　be　False
　　　　　 [<Test>]　member　x.
　　　　　　　　 ``when　I　convert　it　to　a　string　it　becomes　"Off".``　()=
　　　　　　　　　　　　　　　　　　　　　 string　lightBulb　|>　should　equal　"Off"

FsUnit是一个面向F#的xUnit成员。有了这样一个单体测试框架，我们就可以更自信地写代码了。

出处http://bj007.blog.51cto.com/1701577/347752