t/zzzzzzz_authors.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More 'no_plan';
   5 use lib 't/lib';
   6 use DBICTest::RunMode;
   7
   8 my $authorcount = scalar do {
   9   open (my $fh, '<', 'AUTHORS') or die "Unable to open AUTHORS - can't happen: $!\n";
  10   map { chomp; ( ( ! $_ or $_ =~ /^\s*\#/ ) ? () : $_ ) } <$fh>;
  11 } or die "Known AUTHORS file seems empty... can't happen...";
  12
  13 # do not announce anything under ci - we are watching for STDERR silence
  14 diag "\n\n$authorcount contributors made this library what it is today\n\n"
  15   unless DBICTest::RunMode->is_ci;
  16
  17 ok 1;