From 2111506d9c0b3116bbf40d18739af462c2382a7c Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Wed, 13 May 2020 20:52:30 +0200
Subject: change examples to tests

---
 challenge-060/jo-37/perl/ch-2.pl | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/challenge-060/jo-37/perl/ch-2.pl b/challenge-060/jo-37/perl/ch-2.pl
index a2c05683b8..632c9f9454 100755
--- a/challenge-060/jo-37/perl/ch-2.pl
+++ b/challenge-060/jo-37/perl/ch-2.pl
@@ -10,7 +10,6 @@
 # strictly string based. (Example provided.)
 
 use Test2::V0;
-use Data::Dumper;
 
 # check_num expects:
 # - number to be checked
@@ -103,16 +102,17 @@ $Y = 100000003;
 is [create_numbers $X, $Y, @L], [100000000, 100000001, 100000002],
 	'cut example';
 
-done_testing;
-
-# another example
-@L = (0, 7, 65, 543, 4321);
-$X = 5;
-$Y = 70001;
-print Dumper [create_numbers $X, $Y, @L];
-
-# non-numeric
 @L = qw(a b c);
 $X = 3;
 $Y = 'abc';
-print Dumper [create_numbers $X, $Y, @L];
+is [create_numbers $X, $Y, @L], [qw(aaa aab aac aba abb)],
+	'non numeric';
+
+@L = (0, 5, 43, 321);
+$X = 4;
+$Y = 5001;
+is [create_numbers $X, $Y, @L],
+	[3210, 3215, 4300, 4305, 4343, 4350, 4355, 5000],
+	'another example';
+
+done_testing;
-- 
cgit