From 936418615ea91a0580a93561eb84128c14f9ec9b Mon Sep 17 00:00:00 2001
From: John David Pressman <jd@jdpressman.com>
Date: Tue, 25 Feb 2020 05:26:04 -0800
Subject: [PATCH] Add Current.x reference page to doc tests

---
 gitlab-pages/docs/reference/current.md | 17 +++++++----------
 src/test/md_file_tests.ml              |  1 +
 2 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/gitlab-pages/docs/reference/current.md b/gitlab-pages/docs/reference/current.md
index 554f4e0a5..c9f1945d8 100644
--- a/gitlab-pages/docs/reference/current.md
+++ b/gitlab-pages/docs/reference/current.md
@@ -11,17 +11,17 @@ Get the balance for the contract.
 
 <!--PascaLIGO-->
 ```pascaligo
-function main (const p : unit; const s: tez) : list(operation) * storage is
+function main (const p : unit; const s: tez) : list(operation) * tez is
   ((nil : list(operation)), balance)
 ```
 <!--CameLIGO-->
 ```cameligo
-let main (p, s : unit * storage) =
+let main (p, s : unit * tez) =
   ([] : operation list), balance
 ```
 <!--ReasonLIGO-->
 ```reasonligo
-let main = (p: unit, storage) => ([]: list(operation), balance);
+let main = ((p,s): (unit, tez)) => ([]: list(operation), balance);
 ```
 
 <!--END_DOCUSAURUS_CODE_TABS-->
@@ -293,25 +293,22 @@ Cause the contract to fail with an error message.
 
 <!--PascaLIGO-->
 ```pascaligo
-function main (const p : param; const s : unit) : list(operation) * unit is
+function main (const p : int; const s : unit) : list(operation) * unit is
   block {
-    case p of
-    | Zero (n) -> if n > 0n then failwith("fail") else skip
-    | Pos (n) -> if n > 0n then skip else failwith("fail")
-    end
+    if p > 10 then failwith("fail") else skip;
   }
   with ((nil : list(operation)), s)
 ```
 
 <!--CameLIGO-->
 ```cameligo
-let main (p: unit) storage =
+let main (p,s: unit * unit) =
   if true then failwith "This contract always fails" else ()
 ```
 
 <!--ReasonLIGO-->
 ```reasonligo
-let main = (p: unit, storage) =>
+let main = ((p,s): (unit, unit)) =>
   if (true) {
     failwith("This contract always fails");
   } else {
diff --git a/src/test/md_file_tests.ml b/src/test/md_file_tests.ml
index 15e7e1767..c728a929d 100644
--- a/src/test/md_file_tests.ml
+++ b/src/test/md_file_tests.ml
@@ -128,6 +128,7 @@ let md_files = [
   "/gitlab-pages/docs/reference/big_map.md";
   "/gitlab-pages/docs/reference/string.md";
   "/gitlab-pages/docs/reference/crypto.md";
+  "/gitlab-pages/docs/reference/current.md";
 ]
 
 let md_root = "../../gitlab-pages/docs/language-basics/"