view release on metacpan or  search on metacpan

CommitLog  view on Meta::CPAN

  Change: bf0dd890530c856f0a2803bfc8930aa80f95c1f5
  Author: Apocalypse <APOCAL@cpan.org>
  Date : 2014-10-24 13:22:33 +0000

    Im old and cant change my habits that easily... 

  Change: 915c8eb88637f4d17830acc808210c2f52aa8e9f
  Author: Apocalypse <APOCAL@cpan.org>
  Date : 2014-10-24 13:21:02 +0000

    allow warnings from gpg... 

  Change: d5df2cc30535d4ad4c45a05a17ea36187d01ecb9
  Author: Apocalypse <APOCAL@cpan.org>
  Date : 2014-10-24 12:50:23 +0000

    use Test::FailWarnings for less FAIL 

  Change: ef2afd05b65062228f422bc175c566b2fb770428
  Author: Apocalypse <APOCAL@cpan.org>
  Date : 2014-10-24 12:37:01 +0000

lib/Test/Apocalypse.pm  view on Meta::CPAN

		# Check for AUTOMATED_TESTING
		if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_APOCALYPSE} and $t->can( '_do_automated' ) and ! $t->_do_automated() ) {
			diag( "Skipping $plugin ( for RELEASE_TESTING only )..." );
			next;
		}

		# run it!
		subtest $plugin => sub {
			eval {
				# TODO ignore annoying gpg warnings like 'WARNING: This key is not certified with a trusted signature!' at /usr/local/share/perl/5.18.2/Module/Signature.pm line 265.
				no warnings qw(once);
				local @Test::FailWarnings::ALLOW_FROM = ( 'Module::Signature' );

				local $SIG{__WARN__} = \&Test::FailWarnings::handler;
				$t->do_test();
			};
			if ( $@ ) {
				# Sometimes we get a plain string, sometimes we get
				# Error running Kwalitee: Test::Builder::Exception=HASH(0x3fa6078)
				my $err = $@;