t/zzzzzzz_authors.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More 'no_plan';
   7
   8 use DBICTest::RunMode;
   9
  10 my $authorcount = scalar do {
  11   open (my $fh, '<', 'AUTHORS') or die "Unable to open AUTHORS - can't happen: $!\n";
  12   map { chomp; ( ( ! $_ or $_ =~ /^\s*\#/ ) ? () : $_ ) } <$fh>;
  13 } or die "Known AUTHORS file seems empty... can't happen...";
  14
  15 # do not announce anything under ci - we are watching for STDERR silence
  16 diag <<EOD unless DBICTest::RunMode->is_ci;
  17
  18
  19
  20 $authorcount contributors made this library what it is today
  21
  22
  23 Distinguished patrons:
  24   * ( 2014 ~ 2015 ) Henry Van Styn, creator of http://p3rl.org/RapidApp
  25
  26
  27 EOD
  28
  29 # looks funny if we do it before stuff
  30 ok 1;