71 lines
1.8 KiB
Forth
71 lines
1.8 KiB
Forth
|
module FruityFoundation.Tests.FsBase
|
||
|
|
|
||
|
|
open System.Collections.Generic
|
||
|
|
open FruityFoundation.Base.Structures
|
||
|
|
open NUnit.Framework
|
||
|
|
open FsUnit
|
||
|
|
open FruityFoundation.FsBase
|
||
|
|
|
||
|
|
[<Test>]
|
||
|
|
let ``Array.toReadOnlyCollection casts an array to a read only collection`` () =
|
||
|
|
// Arrange
|
||
|
|
let input = [|1; 2; 3|]
|
||
|
|
|
||
|
|
// Act
|
||
|
|
let result = input |> Array.toReadOnlyCollection
|
||
|
|
|
||
|
|
// Assert
|
||
|
|
result |> should be instanceOfType<IReadOnlyCollection<int>>
|
||
|
|
|
||
|
|
[<Test>]
|
||
|
|
let ``Option.toMaybe returns an empty Maybe for None`` () =
|
||
|
|
// Arrange
|
||
|
|
let input : string option = None
|
||
|
|
|
||
|
|
// Act
|
||
|
|
let result = input |> Option.toMaybe
|
||
|
|
|
||
|
|
// Assert
|
||
|
|
Assert.That(result, Is.InstanceOf<string Maybe>())
|
||
|
|
result |> should be instanceOfType<string Maybe>
|
||
|
|
result.HasValue |> should equal false
|
||
|
|
|
||
|
|
[<Test>]
|
||
|
|
let ``Option.toMaybe returns Maybe for Some`` () =
|
||
|
|
// Arrange
|
||
|
|
let input : string option = Some "banana"
|
||
|
|
|
||
|
|
// Act
|
||
|
|
let result = input |> Option.toMaybe
|
||
|
|
|
||
|
|
// Assert
|
||
|
|
result |> should be instanceOfType<string Maybe>
|
||
|
|
result.HasValue |> should equal true
|
||
|
|
result.Value |> should equal "banana"
|
||
|
|
|
||
|
|
[<Test>]
|
||
|
|
let ``ValueOption.toMaybe returns an empty Maybe for None`` () =
|
||
|
|
// Arrange
|
||
|
|
let input : string ValueOption = ValueNone
|
||
|
|
|
||
|
|
// Act
|
||
|
|
let result = input |> ValueOption.toMaybe
|
||
|
|
|
||
|
|
// Assert
|
||
|
|
Assert.That(result, Is.InstanceOf<string Maybe>())
|
||
|
|
result |> should be instanceOfType<string Maybe>
|
||
|
|
result.HasValue |> should equal false
|
||
|
|
|
||
|
|
[<Test>]
|
||
|
|
let ``ValueOption.toMaybe returns Maybe for Some`` () =
|
||
|
|
// Arrange
|
||
|
|
let input : string ValueOption = ValueSome "banana"
|
||
|
|
|
||
|
|
// Act
|
||
|
|
let result = input |> ValueOption.toMaybe
|
||
|
|
|
||
|
|
// Assert
|
||
|
|
result |> should be instanceOfType<string Maybe>
|
||
|
|
result.HasValue |> should equal true
|
||
|
|
result.Value |> should equal "banana"
|