This is an automated email from the git hooks/post-receive script. js pushed a commit to branch master in repository libplack-test-anyevent-perl.
commit acd06995ea883c767b4ee53a6b3984019c06d5d1 Author: Rob Hoelz <r...@hoelz.ro> Date: Mon Jan 26 11:06:53 2015 -0600 Suppress printing of exceptions in test suite We *know* they're coming, so why complain about them to the user? --- t/lib/Plack/Test/AnyEvent/Test.pm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/t/lib/Plack/Test/AnyEvent/Test.pm b/t/lib/Plack/Test/AnyEvent/Test.pm index c2ff271..849afd4 100644 --- a/t/lib/Plack/Test/AnyEvent/Test.pm +++ b/t/lib/Plack/Test/AnyEvent/Test.pm @@ -21,6 +21,31 @@ sub startup :Test(startup) { ); # just get the ball rolling diag "Running on $AnyEvent::MODEL"; + + do { + no warnings 'once'; ## no critic (TestingAndDebugging::ProhibitNoWarnings) + $EV::DIED = sub { + unless($@ =~ /bad apple/) { + warn $@; + } + }; + $Event::DIED = sub { + my ( undef, $error ) = @_; + + unless($error =~ /bad apple/ || $error eq '?') { + warn $error; + } + }; + + eval { Glib->install_exception_handler(sub { + my ( $error ) = @_; + + unless($error =~ /bad apple/) { + warn $error; + } + return 1; + })}; + }; } sub test_simple_app :Test(3) { -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libplack-test-anyevent-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits