test associativity

Author: gusty

tests/FSharpPlus.Tests/Expr.fs

@@ -35,17 +35,36 @@ module Expr =
     let ``2-layers quotation combination`` evaluator =
         let expr = 
             <@ 4 + 5 @>
+            >>= (fun x ->
+                    let a = x + 10
+                    <@  (a, a*a) @>
+                    >>= fun (x, y) ->
+                        <@  ([x + y], x, y, [|x; y|]) @>)
+        let res = Expr.run evaluator expr
+
+        areEqual ([380], 19, 361, [|19; 361|]) res
+
+    [<Test>]
+    let ``2-layers quotation combination [Unquote]`` () = ``2-layers quotation combination`` unquote
+    
+    [<Test>]
+    let ``2-layers quotation combination [PowerPack]`` () = ``2-layers quotation combination`` powerpack
+
+
+    let ``2-layers quot comb associative`` evaluator =
+        let expr = 
+            (<@ 4 + 5 @>
             >>= fun x ->
                 let a = x + 10
-                <@  (a, a*a) @>
+                <@  (a, a*a) @>)
             >>= fun (x, y) ->
                 <@  ([x + y], x, y, [|x; y|]) @>
         let res = Expr.run evaluator expr
 
         areEqual ([380], 19, 361, [|19; 361|]) res
 
     [<Test>]
-    let ``2-layers quotation combination [Unquote]`` () = ``2-layers quotation combination`` unquote
+    let ``2-layers quot comb associative [Unquote]`` () = ``2-layers quot comb associative`` unquote
 
     [<Test>]
-    let ``2-layers quotation combination [PowerPack]`` () = ``2-layers quotation combination`` powerpack
+    let ``2-layers quot comb associative [PowerPack]`` () = ``2-layers quot comb associative`` powerpack