From e80eb0c132fb99cc0e66e2f7166eba3de59df81a Mon Sep 17 00:00:00 2001
From: Iwan <mvalcke@hubspot.com>
Date: Mon, 6 Sep 2021 21:15:10 +0200
Subject: [PATCH] Add extra test case for outcome printing of function
 parameter types

---
 tests/oprint/expected/oprint.resi.txt | 3 ++-
 tests/oprint/oprint.res               | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/oprint/expected/oprint.resi.txt b/tests/oprint/expected/oprint.resi.txt
index 8e951fa7..29fbcffa 100644
--- a/tests/oprint/expected/oprint.resi.txt
+++ b/tests/oprint/expected/oprint.resi.txt
@@ -493,4 +493,5 @@ and ASet: {
 }
 type emptyObject = {.}
 let f: (~x: 'a=?, ~y: 'b) => option<'a>
-type call = CleanStart
\ No newline at end of file
+type call = CleanStart
+let f: (~a: int=?) => int
\ No newline at end of file
diff --git a/tests/oprint/oprint.res b/tests/oprint/oprint.res
index c40acb0e..f135c8a4 100644
--- a/tests/oprint/oprint.res
+++ b/tests/oprint/oprint.res
@@ -338,3 +338,5 @@ type emptyObject = {.}
 let f = (~x=?, ~y as _) => x
 
 type call = CleanStart
+
+let f = (~a=1) => 1