From 255380a430cf8837b0c411e1397c5babb9d8e1a8 Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <andreas.koenig.7os6VVqR@franz.ak.mind.de>
Date: Sat, 10 Jan 2009 06:04:33 +0100
Subject: [PATCH] a bit more eye-friendly formatting

---
 t/studyperl.t | 54 ++++++++++++++++++++++++++++--------------------------
 1 file changed, 28 insertions(+), 26 deletions(-)
 rewrite t/studyperl.t (69%)

diff --git a/t/studyperl.t b/t/studyperl.t
dissimilarity index 69%
index cb216e0..7cc4f49 100644
--- a/t/studyperl.t
+++ b/t/studyperl.t
@@ -1,26 +1,28 @@
-#!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);
-}
-
+#!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");
+my @tests =
+    (
+     [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"],
+    );
+for my $t (@tests) {
+    studyperl(@$t);
+}
+
-- 
2.11.4.GIT