[dbsrgits/DBIx-Class.git] / t / zzzzzzz_authors.t

use warnings;
use strict;

use Test::More 'no_plan';

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';

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