From a259d34dea5f44165ad266562a05126aed9fb64d Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <andreas.koenig.7os6VVqR@franz.ak.mind.de>
Date: Sat, 20 Dec 2008 18:00:23 +0100
Subject: [PATCH] make the testing code a bit prettier

---
 t/studyperl.t | 44 ++++++++++++++++++++++++++------------------
 1 file changed, 26 insertions(+), 18 deletions(-)
 rewrite t/studyperl.t (68%)

diff --git a/t/studyperl.t b/t/studyperl.t
dissimilarity index 68%
index 3924ba9..cb216e0 100644
--- a/t/studyperl.t
+++ b/t/studyperl.t
@@ -1,18 +1,26 @@
-#!perl -T
-
-use strict;
-use warnings;
-use Test::More qw(no_plan);
-use Acme::Study::Perl qw(studyperl);
-
-SKIP: {
-    diag("no tests in this file, only diagnostics");
-    skip;
-}
-
-diag("\n");
-studyperl(q{'123456789123456789.2' <=> '123456789123456790'}, "native big math float/int");
-studyperl(q{'123456789123456789.2' <=> '123456789123456790.0'}, "native big math float/float");
-studyperl(q{'123456789123456789' <=> '123456789123456790'}, "native big math int/int");
-studyperl(q{'123456789123456789123456789123456789' <=> '123456789123456789123456789123456790'}, "native big math int/int larger");
-
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+use Acme::Study::Perl qw(studyperl);
+
+SKIP: {
+    diag("no tests in this file, only diagnostics");
+    skip;
+}
+
+diag("\n");
+for my $t (
+           [q{'123456789123456789.2' <=> '123456789123456790'},
+            "native big math float/int"],
+           [q{'123456789123456789.2' <=> '123456789123456790.0'},
+            "native big math float/float"],
+           [q{'123456789123456789' <=> '123456789123456790'},
+            "native big math int/int 18"],
+           [q{'123456789123456789123456789123456789' <=> '123456789123456789123456789123456790'},
+             "native big math int/int 36"],
+           ){
+    studyperl(@$t);
+}
+
-- 
2.11.4.GIT