From d67b9bd623d9986baf91c5aab1ff0e5544b8a55d Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Sun, 8 Nov 2020 13:31:54 +0100
Subject: Adjust test cases for ch-1

---
 challenge-085/jo-37/perl/ch-1.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/challenge-085/jo-37/perl/ch-1.pl b/challenge-085/jo-37/perl/ch-1.pl
index 8c16dc960c..77f66ff51a 100755
--- a/challenge-085/jo-37/perl/ch-1.pl
+++ b/challenge-085/jo-37/perl/ch-1.pl
@@ -242,10 +242,10 @@ is triplet_sum(1.2, 0.4, 0.1, 2.5), T(), 'Example 1';
 is triplet_sum(0.2, 1.5, 0.9, 1.1), F(), 'Example 2';
 is triplet_sum(0.5, 1.1, 0.3, 0.7), T(), 'Example 3';
 
-is triplet_sum(0.1, 0.2, 0.3, 1.1), T(), 'Case 1';
-is triplet_sum(0.3, 0.4, 0.5, 0.6), T(), 'Case 2';
-is triplet_sum(0.2, 0.3, 0.4, 0.83), T(), 'Case 3';
-is triplet_sum(0.55, 0.60, 0.65, 0.83), T(), 'Case 4';
+is triplet_sum(0.1, 0.2, 0.6, 1.4), T(), 'Case 1';
+is triplet_sum(0.1, 0.2, 0.4, 0.6), T(), 'Case 2';
+is triplet_sum(0.1, 0.15, 0.4, 0.7), T(), 'Case 3';
+is triplet_sum(0.55, 0.6, 0.7, 0.8), T(), 'Case 4';
 
 # A carefully crafted, very rare case where the second reduce step
 # actually modifies the list:
-- 
cgit