open FsUnit

1 |> should equal 1
1 |> should not' (equal 2)
[2;4;6] |> should equivalent [4;6;2]
[2;4;6] |> should not' (equivalent [4;8;2])
10.1 |> should (equalWithin 0.1) 10.11
10.1 |> should not' ((equalWithin 0.001) 10.11)
"ships" |> should startWith "sh"
"ships" |> should not' (startWith "ss")
"ships" |> should endWith "ps"
"ships" |> should not' (endWith "ss")
"ships" |> should haveSubstring "hip"
"ships" |> should not' (haveSubstring "pip")
[1] |> should contain 1
[] |> should not' (contain 1)
(fun () -> failwith "BOOM!" |> ignore) |> should throw typeof<System.Exception>
(fun () -> failwith "BOOM!" |> ignore) |> should (throwWithMessage "BOOM!") typeof<System.Exception>
//shouldFail (fun () -> 5/0 |> ignore)
true |> should be True
false |> should not' (be True)
"" |> should be EmptyString
"" |> should be NullOrEmptyString
null |> should be NullOrEmptyString
null |> should be Null
null |> should be null
11 |> should be (greaterThan 10)
9 |> should not' (be greaterThan 10)
11 |> should be (greaterThanOrEqualTo 10)
9 |> should not' (be greaterThanOrEqualTo 10)
10 |> should be (lessThan 11)
10 |> should not' (be lessThan 9)
10.0 |> should be (lessThanOrEqualTo 10.1)
10 |> should not' (be lessThanOrEqualTo 9)
0.0 |> should be ofExactType<float>
1 |> should not' (be ofExactType<obj>)
[] |> should be Empty
[1] |> should not' (be Empty)
"test" |> should be instanceOfType<string>
"test" |> should not' (be instanceOfType<int>)
2.0 |> should not' (be NaN)
[1;2;3] |> should be unique
[1;2;3] |> should be ascending
[1;3;2] |> should not' (be ascending)
[3;2;1] |> should be descending
[3;1;2] |> should not' (be descending)

[1..10] |> should be (supersetOf [3;6;9])
[1..10] |> should not' (be supersetOf [5;11;21])

[3;6;9] |> should be (subsetOf [1..10])
[5;11;21] |> should not' (be subsetOf [1..10])
type TestUnion = First | Second of int | Third of string
First |> should be (ofCase<@ First @>)
First |> should be (ofCase<@ First, Second @>) // checks if on the cases matches the given case
Second 5 |> should be (ofCase<@ Second 10 @>) // note, the actual value is not checked!
First |> should not' (be ofCase<@ Second 5 @>)
//5 |> should be (ofCase<@ Second 5 @>) // will throw an exception
//Second 5 |> should be (ofCase<@ int @>) // will throw an exception

module Con1Test
open FsUnit
open NUnit.Framework


[<Test>]
let nunitTest () =
    Assert.AreEqual(2.0**10.0, 1024.0)

[<Test>]
let fsunitTest() =
    2.0**10.0 |> should equal 1024.0

// 識別子名自体をテストの説明にしてしまうのもあり
[<Test>]
let ``the value of 2 raised to 10th power is 1024`` () =
    2.0**10.0 |> should equal 1024.0

module Con1Test
open FsUnit
open NUnit.Framework


[<TestCase("",      0)>]
[<TestCase("ab",    2)>]
[<TestCase("def",   3)>]
[<TestCase("GHIJ",  4)>]
[<TestCase("56789", 5)>]
let testcasetestsample(str: string, expected: int) =
    str.Length |> should equal expected

let testcases = ["ab";"cd";"xy";"Az";"TO"]
[<TestCaseSource("testcases")>]
let length2strings(str: string) =
    str.Length |> should equal 2

module Con1Test
open FsUnit
open NUnit.Framework

[<TestFixture>]
type ClassTest() =
  [<Test>]
  member this.easyTest() = 
    1 |> should equal 1
  [<Test>]
  member this.``1 should equal 1 testt`` () = 
    1 |> should equal 1