From fa2b1c780ce14e12db549c1bf52664de66ff851a Mon Sep 17 00:00:00 2001
From: Joel Kaasinen <joel.kaasinen@gmail.com>
Date: Sat, 2 Jan 2021 21:54:28 +0200
Subject: [PATCH] Set 2a Ex 2: test case n > length xs

fixes #18
---
 exercises/Set2aTest.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/exercises/Set2aTest.hs b/exercises/Set2aTest.hs
index 3bae402..a828917 100644
--- a/exercises/Set2aTest.hs
+++ b/exercises/Set2aTest.hs
@@ -46,9 +46,9 @@ ex2_takeFinal_1 = property $ do
 
 ex2_takeFinal_2 = property $ do
   n <- choose (0,20)
-  k <- choose (0,n)
+  k <- choose (0,20)
   let inp = reverse [0..n]
-  return $ $(testing [|takeFinal k inp|]) (?== reverse [0..k-1])
+  return $ $(testing [|takeFinal k inp|]) (?== reverse [0..min (k-1) n])
 
 ex3_updateAt = property $ do
   ws <- listOf1 word