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

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use warnings;
use strict;

use Test::More 'no_plan';

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 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;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
245e3f5d	3	use warnings;
	4	use strict;
	5
	6	use Test::More 'no_plan';
c0329273	7
81b29c8d	8	use DBICTest::RunMode;
245e3f5d	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
81b29c8d	15	# do not announce anything under ci - we are watching for STDERR silence
3884539f	16	diag <<EOD unless DBICTest::RunMode->is_ci;
245e3f5d	17
3884539f	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
245e3f5d	30	ok 1;