Merge branch 'feature/pascaligo-balance' into 'dev'

Add ability to access balance to PascaLIGO

Closes #68

See merge request ligolang/ligo!189

src/passes/operators/operators.ml

@@ -64,6 +64,7 @@ module Simplify = struct
       ("int" , "INT") ;
       ("abs" , "ABS") ;
       ("amount" , "AMOUNT") ;
+      ("balance", "BALANCE") ;
       ("now" , "NOW") ;
       ("unit" , "UNIT") ;
       ("source" , "SOURCE") ;

src/test/contracts/balance_constant.ligo

@@ -0,0 +1,11 @@
+(**
+
+This test makes sure that the balance is accessible in PascaLIGO.
+It's there to detect a regression of: https://gitlab.com/ligolang/ligo/issues/68
+
+*)
+
+type storage is tez
+
+function main (const p : unit; const s: int) : list(operation) * storage is
+  ((nil : list(operation)), balance)

src/test/integration_tests.ml

@@ -1151,6 +1151,13 @@ let website2_mligo () : unit result =
   expect_eq_n program "main" make_input make_expected
 
 let balance_constant () : unit result =
+  let%bind program = type_file "./contracts/balance_constant.ligo" in
+  let input = e_tuple [e_unit () ; e_mutez 0]  in
+  let expected = e_tuple [e_list []; e_mutez 4000000000000] in
+  expect_eq program "main" input expected
+
+
+let balance_constant_mligo () : unit result =
   let%bind program = mtype_file "./contracts/balance_constant.mligo" in
   let input = e_tuple [e_unit () ; e_mutez 0]  in
   let expected = e_tuple [e_list []; e_mutez 4000000000000] in
@@ -1247,7 +1254,8 @@ let main = test_suite "Integration (End to End)" [
     test "website1 ligo" website1_ligo ;
     test "website2 ligo" website2_ligo ;
     test "website2 (mligo)" website2_mligo ;
-    test "balance constant (mligo)" balance_constant ;
+    test "balance constant" balance_constant ;
+    test "balance constant (mligo)" balance_constant_mligo ;
     test "simple_access (ligo)" simple_access_ligo;
     test "deep_access (ligo)" deep_access_ligo;
   ]