From 8c3835229043b5df70cbcdd4551afa11f4bb6274 Mon Sep 17 00:00:00 2001
From: Lesenechal Remi <lesenechal.remi@gmail.com>
Date: Mon, 10 Feb 2020 12:02:36 +0100
Subject: [PATCH] ligo interpreter : adding more tests

---
 .../expect_tests/ligo_interpreter_tests.ml    |  2 ++
 src/test/contracts/interpret_test.mligo       | 27 ++++++++++++-------
 2 files changed, 19 insertions(+), 10 deletions(-)

diff --git a/src/bin/expect_tests/ligo_interpreter_tests.ml b/src/bin/expect_tests/ligo_interpreter_tests.ml
index 3caedc2ae..ac381ea71 100644
--- a/src/bin/expect_tests/ligo_interpreter_tests.ml
+++ b/src/bin/expect_tests/ligo_interpreter_tests.ml
@@ -9,6 +9,8 @@ let%expect_test _ =
     val lambda_call = 16 : int
     val higher_order1 = 5 : int
     val higher_order2 = 5 : int
+    val higher_order3 = 5 : int
+    val higher_order4 = 5 : int
     val concats = 0x7070 : bytes
     val record_concat = "ab" : string
     val record_patch = {  ; a = ("a" : string) ; b = ("c" : string) }
diff --git a/src/test/contracts/interpret_test.mligo b/src/test/contracts/interpret_test.mligo
index 62992abd5..90fe2bcbf 100644
--- a/src/test/contracts/interpret_test.mligo
+++ b/src/test/contracts/interpret_test.mligo
@@ -1,28 +1,35 @@
 let lambda_call =
   let a = 3 in
-  let foo: (int -> int) =
-    fun (i : int) -> i * i
-  in
+  let foo = fun (i : int) -> i * i in
   foo (a + 1)
 
 let higher_order1 =
   let a = 2 in
-  let foo: (int -> int -> int -> int) =
-    fun (i:int) (j:int) (k:int) -> a + i + j + 0
-  in
+  let foo = fun (i:int) (j:int) (k:int) ->
+    a + i + j + 0 in
   let bar = (foo 1 2) in
   bar 3
 
 let higher_order2 =
   let a = 2 in
-  let foo: (int -> int) =
-    fun (i:int) ->
+  let foo = fun (i:int) ->
       let b = 2 in
-      let bar : (int -> int) =
-        fun (i:int) -> i + a + b
+      let bar = fun (i:int) -> i + a + b
       in bar i
   in foo 1
 
+let higher_order3 =
+  let foo = fun (i:int) -> i + 1 in
+  let bar = fun (f:int->int) (i:int) -> (f i) + 1 in
+  let baz : (int -> int ) = bar foo in
+  baz 3
+
+let higher_order4 =
+  let a = 3 in
+  let foo = fun (i : int) -> a + i in
+  let bar: (int -> int) = fun (i : int) -> foo i in
+  bar 2
+  
 let concats =
   0x70 ^ 0x70