File tree Expand file tree Collapse file tree 1 file changed +18
-1
lines changed Expand file tree Collapse file tree 1 file changed +18
-1
lines changed Original file line number Diff line number Diff line change @@ -67,4 +67,21 @@ module Expr =
67
67
let ``2 - layers quot comb associative [ Unquote ] `` () = `` 2-layers quot comb associative `` unquote
68
68
69
69
[<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
You can’t perform that action at this time.
0 commit comments