Skip to content

Commit 23f8204

Browse files
committed
test CE
1 parent 3d04676 commit 23f8204

File tree

1 file changed

+18
-1
lines changed

1 file changed

+18
-1
lines changed

tests/FSharpPlus.Tests/Expr.fs

Lines changed: 18 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -67,4 +67,21 @@ module Expr =
6767
let ``2-layers quot comb associative [Unquote]`` () = ``2-layers quot comb associative`` unquote
6868

6969
[<Test>]
70-
let ``2-layers quot comb associative [PowerPack]`` () = ``2-layers quot comb associative`` powerpack
70+
let ``2-layers quot comb associative [PowerPack]`` () = ``2-layers quot comb associative`` powerpack
71+
72+
73+
let ``simple computation expression`` evaluator =
74+
let expr = monad {
75+
let! x = <@ 1 @>
76+
let! y = <@ "2" @>
77+
return! <@ string x + y @>
78+
}
79+
let res = Expr.run evaluator expr
80+
81+
areEqual "12" res
82+
83+
[<Test>]
84+
let ``simple computation expression [Unquote]`` () = ``simple computation expression`` unquote
85+
86+
[<Test>]
87+
let ``simple computation expression [PowerPack]`` () = ``simple computation expression`` powerpack

0 commit comments

Comments
 (0)