GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
Test::FailWarnings(3) User Contributed Perl Documentation Test::FailWarnings(3)

Test::FailWarnings - Add test failures if warnings are caught

version 0.008

Test file:

    use strict;
    use warnings;
    use Test::More;
    use Test::FailWarnings;

    ok( 1, "first test" );
    ok( 1 + "lkadjaks", "add non-numeric" );

    done_testing;

Output:

    ok 1 - first test
    not ok 2 - Test::FailWarnings should catch no warnings
    #   Failed test 'Test::FailWarnings should catch no warnings'
    #   at t/bin/main-warn.pl line 7.
    # Warning was 'Argument "lkadjaks" isn't numeric in addition (+) at t/bin/main-warn.pl line 7.'
    ok 3 - add non-numeric
    1..3
    # Looks like you failed 1 test of 3.

This module hooks $SIG{__WARN__} and converts warnings to Test::More "fail()" calls. It is designed to be used with "done_testing", when you don't need to know the test count in advance.

Just as with Test::NoWarnings, this does not catch warnings if other things localize $SIG{__WARN__}, as this is designed to catch unhandled warnings.

On "import", $SIG{__WARN__} is replaced with "Test::FailWarnings::handler".

    use Test::FailWarnings;  # global

If you don't want global replacement, require the module instead and localize in whatever scope you want.

    require Test::FailWarnings;

    {
        local $SIG{__WARN__} = \&Test::FailWarnings::handler;
        # ... warnings will issue fail() here
    }

When the handler reports on the source of the warning, it will look past any calling packages starting with "Carp" or "warnings" to try to detect the real origin of the warning.

If you want to ignore failures from outside your own code, you can set $Test::FailWarnings::ALLOW_DEPS to a true value. You can do that on the "use" line with "-allow_deps".

    use Test::FailWarnings -allow_deps => 1;

When true, warnings will only be thrown if they appear to originate from a filename matching "qr/^(?:t|xt|lib|blib)/"

If you want to white-list specific modules only, you can add their package names to @Test::NoWarnings::ALLOW_FROM. You can do that on the "use" line with "-allow_from".

    use Test::FailWarnings -allow_from => [ qw/Annoying::Module/ ];

  • Test::NoWarnings -- catches warnings and reports in an "END" block. Not (yet) friendly with "done_testing".
  • Test::Warnings -- a replacement for Test::NoWarnings that works with done_testing
  • Test::Warn -- test for warnings without triggering failures from this modules

Please report any bugs or feature requests through the issue tracker at <https://github.com/dagolden/Test-FailWarnings/issues>. You will be notified automatically of any progress on your issue.

This is open source software. The code repository is available for public review and contribution under the terms of the license.

<https://github.com/dagolden/Test-FailWarnings>

  git clone https://github.com/dagolden/Test-FailWarnings.git

David Golden <dagolden@cpan.org>

This software is Copyright (c) 2013 by David Golden.

This is free software, licensed under:

  The Apache License, Version 2.0, January 2004
2013-09-25 perl v5.32.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.