/FsxUnit/FsxUnit.Test/LessThanTests.fs

http://github.com/rodrigovidal/FsxUnit · F# · 60 lines · 43 code · 15 blank · 2 comment · 0 complexity · bc04593a23e01973e63fc62893482386 MD5 · raw file 

    

  1. namespace FsxUnit.Test
    2. 

  2. open NUnit.Framework
    3. 

  3. open FsxUnit
    4. 

  4. 

  5. [<TestFixture>]
    6. 

  6. type ``Less Than tests`` ()=
    7. 

  7.     // Collection   
    8. 

  8.     [<Test>] member test.
    9. 

  9.      ``Number 0 should be less than 1`` ()=
    10. 

  10.         0 |> should be (lessThan 1)
    11. 

  11. 

  12.     [<Test>] member test.
    13. 

  13.      ``Number 1 should fail to be less than 0`` ()=
    14. 

  14.         shouldFail(fun () -> 1 |> should be (lessThan 0))
    15. 

  15. 

  16.     [<Test>] member test.
    17. 

  17.      ``Number 1 should'nt be less than 0`` ()=
    18. 

  18.         1 |> should'nt be (lessThan 0)
    19. 

    20. 

  20.     [<Test>] member test.
    21. 

  21.      ``Number 0 should fail to not be less than 1`` ()=
    22. 

  22.         shouldFail(fun () -> 0 |> should'nt be (lessThan 1))
    23. 

    24. 

  24.     [<Test>] member test.
    25. 

  25.      ``Number 0 should'nt be less than 0`` ()=
    26. 

  26.         0 |> should'nt be (lessThan 0)
    27. 

  27.     
    28. 

  28.     [<Test>] member test.
    29. 

  29.      ``Number 1 should fail to be greater than 1`` ()=
    30. 

  30.         shouldFail(fun () -> 1 |> should be (lessThan 1))
    31. 

  31.     
    32. 

  32. [<TestFixture>]
    33. 

  33. type ``Less Than tests or Equal`` ()=
    34. 

  34.     // Collection   
    35. 

  35.     [<Test>] member test.
    36. 

  36.      ``Number 0 should be less than 1`` ()=
    37. 

  37.         0 |> should be (lessThanOrEqual 1)
    38. 

  38. 

  39.     [<Test>] member test.
    40. 

  40.      ``Number 1 should fail to be less than 0`` ()=
    41. 

  41.         shouldFail(fun () -> 1 |> should be (lessThanOrEqual 0))
    42. 

  42. 

  43.     [<Test>] member test.
    44. 

  44.      ``Number 1 should'nt be less than 0`` ()=
    45. 

  45.         1 |> should'nt be (lessThanOrEqual 0)
    46. 

    47. 

  47.     [<Test>] member test.
    48. 

  48.      ``Number 0 should fail to not be less than 1`` ()=
    49. 

  49.         shouldFail(fun () -> 0 |> should'nt be (lessThanOrEqual 1))
    50. 

    51. 

  51.     [<Test>] member test.
    52. 

  52.      ``Number 0 should be less than 0`` ()=
    53. 

  53.         0 |> should be (lessThanOrEqual 0)
    54. 

  54.     
    55. 

  55.     [<Test>] member test.
    56. 

  56.      ``Number 1 should fail to not be greater than 1`` ()=
    57. 

  57.         shouldFail(fun () -> 1 |> should'nt be (lessThanOrEqual 1))
    58.