From 2c4257ae764f03b9de85ab3457614b4a6175c324 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Fri, 13 Aug 2021 23:17:04 +0200
Subject: Add larger example to task 1

---
 challenge-125/jo-37/perl/ch-1.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/challenge-125/jo-37/perl/ch-1.pl b/challenge-125/jo-37/perl/ch-1.pl
index 8ab6939963..3b9f2aae65 100755
--- a/challenge-125/jo-37/perl/ch-1.pl
+++ b/challenge-125/jo-37/perl/ch-1.pl
@@ -119,6 +119,9 @@ sub run_tests {
             bag {item [224, 30, 226]; item [16, 30, 34]; etc}, 'as y';
         like [find_pythagorean_triples(13)],
             bag {item [5, 12, 13]; etc}, 'as z'; 
+        like [find_pythagorean_triples(15485863)],
+            bag {item [15485863, 119905976427384, 119905976427385]; end},
+            '1000000-th prime';
 	}
 
     done_testing;
-- 
cgit