Add explicit patronage listing (should have done this a while ago)
Peter Rabbitson [Thu, 11 Feb 2016 17:52:40 +0000 (18:52 +0100)]
Not generalizing it (yet) as patrons are few and far between

t/zzzzzzz_authors.t

index ce9a217..a46a247 100644 (file)
@@ -2,14 +2,27 @@ use warnings;
 use strict;
 
 use Test::More 'no_plan';
+use lib 't/lib';
+use DBICTest::RunMode;
 
 my $authorcount = scalar do {
   open (my $fh, '<', 'AUTHORS') or die "Unable to open AUTHORS - can't happen: $!\n";
   map { chomp; ( ( ! $_ or $_ =~ /^\s*\#/ ) ? () : $_ ) } <$fh>;
 } or die "Known AUTHORS file seems empty... can't happen...";
 
-# do not announce anything under travis - we are watching for STDERR silence
-diag "\n\n$authorcount contributors made this library what it is today\n\n"
-  unless ($ENV{TRAVIS}||'') eq 'true';
+# do not announce anything under ci - we are watching for STDERR silence
+diag <<EOD unless DBICTest::RunMode->is_ci;
 
+
+
+$authorcount contributors made this library what it is today
+
+
+Distinguished patrons:
+  * ( 2014 ~ 2015 ) Henry Van Styn, creator of http://p3rl.org/RapidApp
+
+
+EOD
+
+# looks funny if we do it before stuff
 ok 1;