smallgeek

[<Scenario>]
let When_removing_an_3_from_a_small_list_it_should_not_contain_3() =
  Given [1;2;3;4;5]              // "Arrange" テストコンテキスト
    |> When removing 3           // "Act"
    |> It shouldn't contain 3    // "Assert"
    |> It should contain 4       // 別の表明
    |> Verify                    // シナリオの検証

smallgeek

Scenario: When removing an 3 from a small list it should not contain 3

- Given [1; 2; 3; 4; 5]
– When removing 3
=> It should not contain 3
=> It should contain 4
==> OK

smallgeek

[<Scenario>]
let When_calculating_fac_5_it_should_equal_120() =
  Given 5
    |> When calculating factorial
    |> It should equal 120
    |> Verify

[<Scenario>]
let When_calculating_fac_1_it_should_equal_1() =
  Given 1

smallgeek

Scenario: When calculating fac 0 it should equal 0

- Given 0
– When calculating factorial
=> It should equal 1
==> OK

Scenario: When calculating fac 1 it should equal 1

- Given 1

smallgeek

module ListSpec
 
open NaturalSpec
 
[<Scenario>]
let When_removing_an_3_from_a_small_list_it_should_not_contain_3() =
  Given [1;2;3;4;5]
  |> When removing 3
  |> It shouldn't contain 3
  |> Verify

smallgeek

// 1. モジュールを定義する
module CarSpec

// 2. NaturalSpec 名前空間を開く
open NaturalSpec

// 3. プロジェクトの名前空間を開く
open CarSellingLib

// 4. テストコンテキストを定義する

smallgeek

namespace CarSellingLib
{
    public enum CarType
    {
        BMW
    }
}

namespace CarSellingLib
{

smallgeek

// 1. モジュールを定義する
module CarSpec

// 2. NaturalSpec 名前空間を開く
open NaturalSpec

// 3. プロジェクトの名前空間を開く
open CarSellingLib

// 4. テストコンテキストを定義する

smallgeek

namespace CarSellingLib
{
    public enum CarType
    {
        Fiat,
        BMW
    }
}

namespace CarSellingLib

smallgeek

Scenario: When selling a car for 1000 it should fail with Need More Money

- Should fail…
– As Bert
– When selling a car for 1000

Scenario: When selling a car for 19000 it should equal the LameCar

- As Bert
– When selling a car for 19000