public void From_4x_Test()
{
OptionMonad
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.Bind((x1, x2, x3, x4) => Option.Some(x1 + x2 + x3 + x4))
.Result()
.MatchForTesting(
x => Assert.Equal(4, x),
() => Assert.True(false)
);
OptionMonad
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.Select((x1, x2, x3, x4) => x1 + x2 + x3 + x4)
.Result()
.MatchForTesting(
x => Assert.Equal(4, x),
() => Assert.True(false)
);
}
public void From_Result_Test3()
{
var readInt1 = Fun.Create(() => Option.Some(1));
var readInt2 = Fun.Create(() => Option.Some(2));
var readInt3 = Fun.Create(() => Option.Some(3));
OptionMonad
.From(readInt1)
.From(readInt2)
.From(readInt3)
.Result()
.MatchForTesting(
x => Assert.Equal(3, x),
() => Assert.True(false)
);
OptionMonad
.From(Option.None <decimal>)
.From(readInt2)
.From(readInt3)
.Result()
.MatchForTesting(
x => Assert.True(false),
() => Assert.True(true)
);
}
public void From_8x_Test()
{
OptionMonad
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.Bind((x1, x2, x3, x4, x5, x6, x7, x8) => Option.Some(x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8))
.Result()
.MatchForTesting(
x => Assert.Equal(8, x),
() => Assert.True(false)
);
OptionMonad
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.From(() => Option.Some(1))
.Select((x1, x2, x3, x4, x5, x6, x7, x8) => x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8)
.Result()
.MatchForTesting(
x => Assert.Equal(8, x),
() => Assert.True(false)
);
}
public void Bind_Test2()
{
var divide = Fun.Create((int a, int b) =>
{
try { return(Option.Some((decimal)a / b)); }
catch (DivideByZeroException) { return(Option.None <decimal>()); }
});
var readInt1 = Fun.Create(() => Option.Some(10));
var readInt2 = Fun.Create(() => Option.Some(40));
OptionMonad
.From(readInt1)
.From(readInt2)
.Bind(divide)
.Result()
.Select(x => x * 100)
.MatchForTesting(
x => Assert.Equal(25m, x),
() => Assert.True(false)
);
OptionMonad
.From(readInt1)
.From(() => Option.Some(0))
.Bind(divide)
.Result()
.Select(x => x * 100)
.MatchForTesting(
x => Assert.True(false),
() => Assert.True(true)
);
}
public void From_Result_Test1()
{
var readInt = Fun.Create(() => Option.Some(1));
OptionMonad
.From(readInt)
.Result()
.MatchForTesting(
x => Assert.Equal(1, x),
() => Assert.True(false)
);
}
public void Multiple_Combinations_Test()
{
OptionMonad
.From(() => Option.Some(1))
.Bind(x => Option.Some(x + 1))
.Bind(x => Option.Some(x + 1))
.From(() => Option.Some(1))
.Select((x, y) => x + y)
.From(() => Option.Some(1))
.Bind((x, y) => Option.Some(x + y))
.Result()
.MatchForTesting(
x => Assert.Equal(5, x),
() => Assert.True(false)
);
OptionMonad
.From(() => Option.Some(1))
.Bind(x => Option.Some(x + 1))
.Bind(x => Option.Some(x + 1))
.From(() => Option.Some(1))
.Select((x, y) => x + y)
.From(() => Option.Some(1))
.Bind((x, y) => Option.Some(x + y))
.From(Option.None <string>)
.Select((x, s) => Option.Some(s + x))
.Result()
.MatchForTesting(
x => Assert.True(false),
() => { }
);
OptionMonad
.From(() => Option.Some(1))
.Bind(x => Option.Some(x + 1))
.Bind(x => Option.Some(x + 1))
.Bind(x => Option.Some(x + 1))
.Bind(x => Option.Some(x + 1))
.Bind(x => Option.Some(x + 1))
.Bind(x => Option.Some(x + 1))
.Bind(x => Option.Some(x + 1))
.Bind(x => Option.Some(x.ToString()))
.Result()
.MatchForTesting(
x => Assert.Equal("8", x),
() => Assert.True(false)
);
}
public void Bind_Test()
{
var divide = Fun.Create((int i) =>
{
try { return(Option.Some(1m / i)); }
catch (DivideByZeroException) { return(Option.None <decimal>()); }
});
var readInt = Fun.Create(() => Option.Some(2));
OptionMonad
.From(readInt)
.Bind(divide)
.Result()
.Select(x => x * 100)
.MatchForTesting(
x => Assert.Equal(50m, x),
() => Assert.True(false)
);
}
public void Select_Test()
{
var readInt1 = Fun.Create(() => Option.Some(5));
var readInt2 = Fun.Create(() => Option.Some(7));
var add = Fun.Create((int a, int b) => a + b);
OptionMonad
.From(readInt1)
.Select(x => add(x, 1))
.Result()
.MatchForTesting(
x => Assert.Equal(6, x),
() => Assert.True(false)
);
OptionMonad
.From(readInt1)
.From(readInt2)
.Select(add)
.Result()
.MatchForTesting(
x => Assert.Equal(12, x),
() => Assert.True(false)
);
OptionMonad
.From(readInt1)
.From(Option.None <int>)
.Select(add)
.Result()
.MatchForTesting(
x => Assert.True(false),
() => Assert.True(true)
);
}
