From e941398b84dd39d79eb5788193d2b52899ecb975 Mon Sep 17 00:00:00 2001 From: Packit Date: Sep 16 2020 16:35:48 +0000 Subject: perl-Test-Warnings-0.026 base --- diff --git a/CONTRIBUTING b/CONTRIBUTING new file mode 100644 index 0000000..aaf20a4 --- /dev/null +++ b/CONTRIBUTING @@ -0,0 +1,103 @@ + +CONTRIBUTING + +Thank you for considering contributing to this distribution. This file +contains instructions that will help you work with the source code. + +PLEASE NOTE that if you have any questions or difficulties, you can reach the +maintainer(s) through the bug queue described later in this document +(preferred), or by emailing the releaser directly. You are not required to +follow any of the steps in this document to submit a patch or bug report; +these are just recommendations, intended to help you (and help us help you +faster). + +This distribution has a TODO file in the repository; you may want to check +there to see if your issue or patch idea is mentioned. + +The distribution is managed with Dist::Zilla (https://metacpan.org/release/Dist-Zilla). +This means than many of the usual files you might expect are not in the +repository, but are generated at release time (e.g. Makefile.PL). + +However, you can run tests directly using the 'prove' tool: + + $ prove -l + $ prove -lv t/some_test_file.t + $ prove -lvr t/ + +In most cases, 'prove' is entirely sufficent for you to test any +patches you have. + +You may need to satisfy some dependencies. The easiest way to satisfy +dependencies is to install the last release -- this is available at +https://metacpan.org/release/Test-Warnings + +If you use cpanminus, you can do it without downloading the tarball first: + + $ cpanm --reinstall --installdeps --with-recommends Test::Warnings + +Dist::Zilla is a very powerful authoring tool, but requires a number of +author-specific plugins. If you would like to use it for contributing, +install it from CPAN, then run one of the following commands, depending on +your CPAN client: + + $ cpan `dzil authordeps --missing` +or + $ dzil authordeps --missing | cpanm + +You should then also install any additional requirements not needed by the +dzil build but may be needed by tests or other development: + + $ cpan `dzil listdeps --author --missing` +or + $ dzil listdeps --author --missing | cpanm + +Or, you can use the 'dzil stale' command to install all requirements at once: + + $ cpan Dist::Zilla::App::Command::stale + $ cpan `dzil stale --all` +or + $ cpanm Dist::Zilla::App::Command::stale + $ dzil stale --all | cpanm + +You can also do this via cpanm directly: + + $ cpanm --reinstall --installdeps --with-develop --with-recommends Test::Warnings + +Once installed, here are some dzil commands you might try: + + $ dzil build + $ dzil test + $ dzil test --release + $ dzil xtest + $ dzil listdeps --json + $ dzil build --notgz + +You can learn more about Dist::Zilla at http://dzil.org/. + +The code for this distribution is hosted at GitHub. The repository is: +https://github.com/karenetheridge/Test-Warnings +You can submit code changes by forking the repository, pushing your code +changes to your clone, and then submitting a pull request. Detailed +instructions for doing that is available here: + +https://help.github.com/articles/creating-a-pull-request + +If you have found a bug, but do not have an accompanying patch to fix it, you +can submit an issue report here: +https://rt.cpan.org/Public/Dist/Display.html?Name=Test-Warnings +or via email: bug-Test-Warnings@rt.cpan.org + +There is also a mailing list available for users of this distribution, at +http://lists.perl.org/list/perl-qa.html +There is also an irc channel available for users of this distribution, at +irc://irc.perl.org/#perl-qa + +If you send me a patch or pull request, your name and email address will be +included in the documentation as a contributor (using the attribution on the +commit or patch), unless you specifically request for it not to be. If you +wish to be listed under a different name or address, you should submit a pull +request to the .mailmap file to contain the correct mapping. + + +This file was generated via Dist::Zilla::Plugin::GenerateFile::FromShareDir 0.009 from a +template file originating in Dist-Zilla-PluginBundle-Author-ETHER-0.110. diff --git a/Changes b/Changes new file mode 100644 index 0000000..dcf8483 --- /dev/null +++ b/Changes @@ -0,0 +1,113 @@ +Revision history for Test-Warnings + +0.026 2016-01-27 03:13:25Z + - fixed use of modules loaded by t/zzz-check-breaks.t + - fix stderr suppression on perl 5.6 + +0.025 2016-01-24 02:59:28Z + - prereqs lowered from required to suggested: + - CPAN::Meta::Check + - CPAN::Meta::Requirements + - tests are now quieter to avoid causing confusion, by suppressing + the printing of stderr in tests + +0.024 2015-12-24 18:44:29Z + - remove diagnostics accidentally left in new test + +0.023 2015-12-22 06:44:24Z + - properly handle propagating warnings to previously declared + handlers that are not coderefs (i.e. a sub name, or the magic + DEFAULT and IGNORE) + +0.022 2015-12-19 00:32:42Z + - propagate all warnings to any previously-declared __WARN__ + handlers (unlike with __DIE__, merely calling warn() is not + sufficient) + +0.021 2015-03-21 18:48:27Z + - add a x_breaks entry for conflicting versions of File::pushd which + inadvertently call our exported warnings() rather than invoking + warnings.pm, and documented this undesired interaction + +0.020 2015-01-03 20:32:21Z + - re-release to fix problematic $VERSION declaration (RT#101239) + +0.019 2014-12-18 20:07:02Z + - fix test to allow for special characters (e.g. MSWin32 file + separators) in filenames (A. Sinan Unur, PR#7) + +0.018 2014-12-17 18:17:30Z + - fix test to not depend on message formatting changes in newer Carp + +0.017 2014-12-16 20:17:22Z + - handle other warning handlers passing us partial warning messages + by re-adding the source file and line number + +0.016 2014-06-21 04:04:55Z + - fix prereq problem with last release - now no longer testing the + example scripts for user installs + +0.015 2014-06-20 03:36:33Z + - adjusted packaging and tests to become perl-5.6 friendly, + including only using core or dual-lifed prerequisites + +0.014 2014-03-01 22:08:26Z + - fix test that was failing when FOO or BAR environment variables + were set (RT#93447) + +0.013 2013-12-14 21:26:06Z + - update configure_requires checking in Makefile.PL + +0.012 2013-10-14 16:54:47Z + - re-release to fix t/00-report-prereqs.t use of + CPAN::Meta::Requirements + +0.011 2013-10-12 22:15:02Z + - unnecessary tests removed; CONTRIBUTING file added + +0.010 2013-09-25 03:29:53Z + - re-release with fixed compile test + +0.009 2013-09-11 04:49:55Z + - fixed error in synopsis (we do not export anything by default) + - a caveat added to the documentation regarding embedding warning + checks inside another sub (this is for you, ribasushi!!!) + - ':no_end_test' now also covers side effects of done_testing, as + well as END blocks, making it possible to use the warning(s) subs + without having an end warning test while using done_testing + (necessary when combining with the 'if' pragma) + +0.008 2013-07-14 19:02:01Z + - compile test updated, to hopefully fix mswin32 parsing issues + +0.007 2013-07-09 22:10:36Z + - fix subtest tests to work on Test::More before 0.95_01 + (RT#86802) + +0.006 2013-06-21 00:53:54Z + - remove use of Class::Method::Modifiers + +0.005 2013-06-20 19:18:42Z + - new feature: warnings { code } and warning { code }, for capturing + the contents of warnings for subsequent testing + +0.004 2013-05-21 21:58:55Z + - when allowing warnings (via allow_warnings()), messages are + emitted via note() rather than warn(), for less noisy output when + running in a harness + +0.003 2013-04-13 21:07:58Z + - Test suite (and code) fixed to work in the presence of + Test::Builder 1.005+ (TB2) + - END logic fixed: now a no-warnings test is added whenever any + tests have been run, even if there is no plan, as was originally + intended + +0.002 2013-03-14 21:47:30Z + Releasing as non-TRIAL for greater visibility. + - ':no_end_test' option added + - test added showing that we play nicely with 'skip_all' + +0.001 2013-03-10 00:56:29Z (TRIAL RELEASE) + - Initial release. + diff --git a/INSTALL b/INSTALL new file mode 100644 index 0000000..daf9150 --- /dev/null +++ b/INSTALL @@ -0,0 +1,43 @@ +This is the Perl distribution Test-Warnings. + +Installing Test-Warnings is straightforward. + +## Installation with cpanm + +If you have cpanm, you only need one line: + + % cpanm Test::Warnings + +If you are installing into a system-wide directory, you may need to pass the +"-S" flag to cpanm, which uses sudo to install the module: + + % cpanm -S Test::Warnings + +## Installing with the CPAN shell + +Alternatively, if your CPAN shell is set up, you should just be able to do: + + % cpan Test::Warnings + +## Manual installation + +As a last resort, you can manually install it. Download the tarball, untar it, +then build it: + + % perl Makefile.PL + % make && make test + +Then install it: + + % make install + +If you are installing into a system-wide directory, you may need to run: + + % sudo make install + +## Documentation + +Test-Warnings documentation is available as POD. +You can run perldoc from a shell to read the documentation: + + % perldoc Test::Warnings diff --git a/LICENCE b/LICENCE new file mode 100644 index 0000000..18572d6 --- /dev/null +++ b/LICENCE @@ -0,0 +1,379 @@ +This software is copyright (c) 2013 by Karen Etheridge. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +Terms of the Perl programming language system itself + +a) the GNU General Public License as published by the Free + Software Foundation; either version 1, or (at your option) any + later version, or +b) the "Artistic License" + +--- The GNU General Public License, Version 1, February 1989 --- + +This software is Copyright (c) 2013 by Karen Etheridge. + +This is free software, licensed under: + + The GNU General Public License, Version 1, February 1989 + + GNU GENERAL PUBLIC LICENSE + Version 1, February 1989 + + Copyright (C) 1989 Free Software Foundation, Inc. + 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The license agreements of most software companies try to keep users +at the mercy of those companies. By contrast, our General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. The +General Public License applies to the Free Software Foundation's +software and to any other program whose authors commit to using it. +You can use it for your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Specifically, the General Public License is designed to make +sure that you have the freedom to give away or sell copies of free +software, that you receive source code or can get it if you want it, +that you can change the software or use pieces of it in new free +programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of a such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must tell them their rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License Agreement applies to any program or other work which +contains a notice placed by the copyright holder saying it may be +distributed under the terms of this General Public License. The +"Program", below, refers to any such program or work, and a "work based +on the Program" means either the Program or any work containing the +Program or a portion of it, either verbatim or with modifications. Each +licensee is addressed as "you". + + 1. You may copy and distribute verbatim copies of the Program's source +code as you receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice and +disclaimer of warranty; keep intact all the notices that refer to this +General Public License and to the absence of any warranty; and give any +other recipients of the Program a copy of this General Public License +along with the Program. You may charge a fee for the physical act of +transferring a copy. + + 2. You may modify your copy or copies of the Program or any portion of +it, and copy and distribute such modifications under the terms of Paragraph +1 above, provided that you also do the following: + + a) cause the modified files to carry prominent notices stating that + you changed the files and the date of any change; and + + b) cause the whole of any work that you distribute or publish, that + in whole or in part contains the Program or any part thereof, either + with or without modifications, to be licensed at no charge to all + third parties under the terms of this General Public License (except + that you may choose to grant warranty protection to some or all + third parties, at your option). + + c) If the modified program normally reads commands interactively when + run, you must cause it, when started running for such interactive use + in the simplest and most usual way, to print or display an + announcement including an appropriate copyright notice and a notice + that there is no warranty (or else, saying that you provide a + warranty) and that users may redistribute the program under these + conditions, and telling the user how to view a copy of this General + Public License. + + d) You may charge a fee for the physical act of transferring a + copy, and you may at your option offer warranty protection in + exchange for a fee. + +Mere aggregation of another independent work with the Program (or its +derivative) on a volume of a storage or distribution medium does not bring +the other work under the scope of these terms. + + 3. You may copy and distribute the Program (or a portion or derivative of +it, under Paragraph 2) in object code or executable form under the terms of +Paragraphs 1 and 2 above provided that you also do one of the following: + + a) accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of + Paragraphs 1 and 2 above; or, + + b) accompany it with a written offer, valid for at least three + years, to give any third party free (except for a nominal charge + for the cost of distribution) a complete machine-readable copy of the + corresponding source code, to be distributed under the terms of + Paragraphs 1 and 2 above; or, + + c) accompany it with the information you received as to where the + corresponding source code may be obtained. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form alone.) + +Source code for a work means the preferred form of the work for making +modifications to it. For an executable file, complete source code means +all the source code for all modules it contains; but, as a special +exception, it need not include source code for modules which are standard +libraries that accompany the operating system on which the executable +file runs, or for standard header files or definitions files that +accompany that operating system. + + 4. You may not copy, modify, sublicense, distribute or transfer the +Program except as expressly provided under this General Public License. +Any attempt otherwise to copy, modify, sublicense, distribute or transfer +the Program is void, and will automatically terminate your rights to use +the Program under this License. However, parties who have received +copies, or rights to use copies, from you under this General Public +License will not have their licenses terminated so long as such parties +remain in full compliance. + + 5. By copying, distributing or modifying the Program (or any work based +on the Program) you indicate your acceptance of this license to do so, +and all its terms and conditions. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the original +licensor to copy, distribute or modify the Program subject to these +terms and conditions. You may not impose any further restrictions on the +recipients' exercise of the rights granted herein. + + 7. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of the license which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +the license, you may choose any version ever published by the Free Software +Foundation. + + 8. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to humanity, the best way to achieve this is to make it +free software which everyone can redistribute and change under these +terms. + + To do so, attach the following notices to the program. It is safest to +attach them to the start of each source file to most effectively convey +the exclusion of warranty; and each file should have at least the +"copyright" line and a pointer to where the full notice is found. + + + Copyright (C) 19yy + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 1, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA + + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) 19xx name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the +appropriate parts of the General Public License. Of course, the +commands you use may be called something other than `show w' and `show +c'; they could even be mouse-clicks or menu items--whatever suits your +program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the + program `Gnomovision' (a program to direct compilers to make passes + at assemblers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +That's all there is to it! + + +--- The Artistic License 1.0 --- + +This software is Copyright (c) 2013 by Karen Etheridge. + +This is free software, licensed under: + + The Artistic License 1.0 + +The Artistic License + +Preamble + +The intent of this document is to state the conditions under which a Package +may be copied, such that the Copyright Holder maintains some semblance of +artistic control over the development of the package, while giving the users of +the package the right to use and distribute the Package in a more-or-less +customary fashion, plus the right to make reasonable modifications. + +Definitions: + + - "Package" refers to the collection of files distributed by the Copyright + Holder, and derivatives of that collection of files created through + textual modification. + - "Standard Version" refers to such a Package if it has not been modified, + or has been modified in accordance with the wishes of the Copyright + Holder. + - "Copyright Holder" is whoever is named in the copyright or copyrights for + the package. + - "You" is you, if you're thinking about copying or distributing this Package. + - "Reasonable copying fee" is whatever you can justify on the basis of media + cost, duplication charges, time of people involved, and so on. (You will + not be required to justify it to the Copyright Holder, but only to the + computing community at large as a market that must bear the fee.) + - "Freely Available" means that no fee is charged for the item itself, though + there may be fees involved in handling the item. It also means that + recipients of the item may redistribute it under the same conditions they + received it. + +1. You may make and give away verbatim copies of the source form of the +Standard Version of this Package without restriction, provided that you +duplicate all of the original copyright notices and associated disclaimers. + +2. You may apply bug fixes, portability fixes and other modifications derived +from the Public Domain or from the Copyright Holder. A Package modified in such +a way shall still be considered the Standard Version. + +3. You may otherwise modify your copy of this Package in any way, provided that +you insert a prominent notice in each changed file stating how and when you +changed that file, and provided that you do at least ONE of the following: + + a) place your modifications in the Public Domain or otherwise make them + Freely Available, such as by posting said modifications to Usenet or an + equivalent medium, or placing the modifications on a major archive site + such as ftp.uu.net, or by allowing the Copyright Holder to include your + modifications in the Standard Version of the Package. + + b) use the modified Package only within your corporation or organization. + + c) rename any non-standard executables so the names do not conflict with + standard executables, which must also be provided, and provide a separate + manual page for each non-standard executable that clearly documents how it + differs from the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +4. You may distribute the programs of this Package in object code or executable +form, provided that you do at least ONE of the following: + + a) distribute a Standard Version of the executables and library files, + together with instructions (in the manual page or equivalent) on where to + get the Standard Version. + + b) accompany the distribution with the machine-readable source of the Package + with your modifications. + + c) accompany any non-standard executables with their corresponding Standard + Version executables, giving the non-standard executables non-standard + names, and clearly documenting the differences in manual pages (or + equivalent), together with instructions on where to get the Standard + Version. + + d) make other distribution arrangements with the Copyright Holder. + +5. You may charge a reasonable copying fee for any distribution of this +Package. You may charge any fee you choose for support of this Package. You +may not charge a fee for this Package itself. However, you may distribute this +Package in aggregate with other (possibly commercial) programs as part of a +larger (possibly commercial) software distribution provided that you do not +advertise this Package as a product of your own. + +6. The scripts and library files supplied as input to or produced as output +from the programs of this Package do not automatically fall under the copyright +of this Package, but belong to whomever generated them, and may be sold +commercially, and may be aggregated with this Package. + +7. C or perl subroutines supplied by you and linked into this Package shall not +be considered part of this Package. + +8. The name of the Copyright Holder may not be used to endorse or promote +products derived from this software without specific prior written permission. + +9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. + +The End + diff --git a/MANIFEST b/MANIFEST new file mode 100644 index 0000000..e4c5665 --- /dev/null +++ b/MANIFEST @@ -0,0 +1,63 @@ +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.043. +CONTRIBUTING +Changes +INSTALL +LICENCE +MANIFEST +META.json +META.yml +Makefile.PL +README +dist.ini +examples/no_plan.t +examples/sub.t +examples/synopsis_1.t +examples/synopsis_2.t +examples/test_nowarnings.t +examples/test_warning_contents.t +examples/warning_like.t +examples/with_done_testing.t +examples/with_plan.t +lib/Test/Warnings.pm +t/00-report-prereqs.dd +t/00-report-prereqs.t +t/01-basic.t +t/02-done_testing.t +t/03-subtest.t +t/04-no-tests.t +t/05-no-end-block.t +t/06-skip-all.t +t/07-no_plan.t +t/08-use-if.t +t/09-warnings-contents.t +t/10-no-done_testing.t +t/11-double-use.t +t/12-no-newline.t +t/13-propagate-warnings.t +t/14-propagate-subname.t +t/15-propagate-default.t +t/16-propagate-ignore.t +t/17-propagate-subname-colons.t +t/18-propagate-subname-package.t +t/19-propagate-nonexistent-subname.t +t/20-propagate-stub.t +t/lib/SilenceStderr.pm +t/zzz-check-breaks.t +xt/author/00-compile.t +xt/author/clean-namespaces.t +xt/author/eol.t +xt/author/examples_synopsis_1.t +xt/author/examples_synopsis_2.t +xt/author/examples_test_warning_contents.t +xt/author/kwalitee.t +xt/author/mojibake.t +xt/author/no-tabs.t +xt/author/pod-coverage.t +xt/author/pod-spell.t +xt/author/pod-syntax.t +xt/release/changes_has_content.t +xt/release/cpan-changes.t +xt/release/distmeta.t +xt/release/minimum-version.t +xt/release/pod-no404s.t +xt/release/portability.t diff --git a/META.json b/META.json new file mode 100644 index 0000000..9a1e189 --- /dev/null +++ b/META.json @@ -0,0 +1,1253 @@ +{ + "abstract" : "Test for warnings and the lack of them", + "author" : [ + "Karen Etheridge " + ], + "dynamic_config" : 0, + "generated_by" : "Dist::Zilla version 5.043, CPAN::Meta::Converter version 2.150005", + "keywords" : [ + "testing", + "tests", + "warnings" + ], + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : 2 + }, + "name" : "Test-Warnings", + "no_index" : { + "directory" : [ + "examples", + "t", + "xt" + ] + }, + "prereqs" : { + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0", + "perl" : "5.006" + } + }, + "develop" : { + "recommends" : { + "Dist::Zilla::PluginBundle::Author::ETHER" : "0.110" + }, + "requires" : { + "Dist::Zilla" : "5", + "Dist::Zilla::Plugin::Authority" : "1.009", + "Dist::Zilla::Plugin::AuthorityFromModule" : "0.002", + "Dist::Zilla::Plugin::AutoMetaResources" : "0", + "Dist::Zilla::Plugin::AutoPrereqs" : "5.038", + "Dist::Zilla::Plugin::Breaks" : "0", + "Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional" : "0.004", + "Dist::Zilla::Plugin::CheckIssues" : "0", + "Dist::Zilla::Plugin::CheckPrereqsIndexed" : "0", + "Dist::Zilla::Plugin::CheckSelfDependency" : "0", + "Dist::Zilla::Plugin::CheckStrictVersion" : "0", + "Dist::Zilla::Plugin::ConfirmRelease" : "0", + "Dist::Zilla::Plugin::CopyFilesFromRelease" : "0", + "Dist::Zilla::Plugin::FileFinder::ByName" : "0", + "Dist::Zilla::Plugin::FileFinder::Filter" : "0", + "Dist::Zilla::Plugin::GenerateFile" : "0", + "Dist::Zilla::Plugin::GenerateFile::FromShareDir" : "0", + "Dist::Zilla::Plugin::Git::Check" : "0", + "Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch" : "0.004", + "Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts" : "0", + "Dist::Zilla::Plugin::Git::Commit" : "2.020", + "Dist::Zilla::Plugin::Git::Contributors" : "0.004", + "Dist::Zilla::Plugin::Git::Describe" : "0.004", + "Dist::Zilla::Plugin::Git::GatherDir" : "2.016", + "Dist::Zilla::Plugin::Git::Push" : "0", + "Dist::Zilla::Plugin::Git::Remote::Check" : "0", + "Dist::Zilla::Plugin::Git::Tag" : "0", + "Dist::Zilla::Plugin::GitHub::Update" : "0.40", + "Dist::Zilla::Plugin::GithubMeta" : "0.54", + "Dist::Zilla::Plugin::InstallGuide" : "1.200005", + "Dist::Zilla::Plugin::Keywords" : "0.004", + "Dist::Zilla::Plugin::License" : "5.038", + "Dist::Zilla::Plugin::MakeMaker" : "0", + "Dist::Zilla::Plugin::Manifest" : "0", + "Dist::Zilla::Plugin::MetaConfig" : "0", + "Dist::Zilla::Plugin::MetaJSON" : "0", + "Dist::Zilla::Plugin::MetaNoIndex" : "0", + "Dist::Zilla::Plugin::MetaProvides::Package" : "1.15000002", + "Dist::Zilla::Plugin::MetaResources" : "0", + "Dist::Zilla::Plugin::MetaTests" : "0", + "Dist::Zilla::Plugin::MetaYAML" : "0", + "Dist::Zilla::Plugin::MinimumPerl" : "1.006", + "Dist::Zilla::Plugin::MojibakeTests" : "0.8", + "Dist::Zilla::Plugin::NextRelease" : "5.033", + "Dist::Zilla::Plugin::OnlyCorePrereqs" : "0.013", + "Dist::Zilla::Plugin::PodSyntaxTests" : "5.040", + "Dist::Zilla::Plugin::PodWeaver" : "4.005", + "Dist::Zilla::Plugin::Prereqs" : "0", + "Dist::Zilla::Plugin::Prereqs::AuthorDeps" : "0", + "Dist::Zilla::Plugin::Prereqs::Soften" : "0", + "Dist::Zilla::Plugin::PromptIfStale" : "0", + "Dist::Zilla::Plugin::Readme" : "0", + "Dist::Zilla::Plugin::ReadmeAnyFromPod" : "0.142180", + "Dist::Zilla::Plugin::RewriteVersion::Transitional" : "0.004", + "Dist::Zilla::Plugin::Run::AfterBuild" : "0.038", + "Dist::Zilla::Plugin::Run::AfterRelease" : "0.038", + "Dist::Zilla::Plugin::RunExtraTests" : "0.024", + "Dist::Zilla::Plugin::StaticInstall" : "0.005", + "Dist::Zilla::Plugin::Substitute" : "0", + "Dist::Zilla::Plugin::Test::CPAN::Changes" : "0.008", + "Dist::Zilla::Plugin::Test::ChangesHasContent" : "0", + "Dist::Zilla::Plugin::Test::CheckBreaks" : "0.015", + "Dist::Zilla::Plugin::Test::CleanNamespaces" : "0.006", + "Dist::Zilla::Plugin::Test::Compile" : "2.039", + "Dist::Zilla::Plugin::Test::EOL" : "0.17", + "Dist::Zilla::Plugin::Test::Kwalitee" : "2.10", + "Dist::Zilla::Plugin::Test::MinimumVersion" : "2.000003", + "Dist::Zilla::Plugin::Test::NoTabs" : "0.08", + "Dist::Zilla::Plugin::Test::Pod::No404s" : "1.002", + "Dist::Zilla::Plugin::Test::PodSpelling" : "2.006003", + "Dist::Zilla::Plugin::Test::Portability" : "0", + "Dist::Zilla::Plugin::Test::ReportPrereqs" : "0.019", + "Dist::Zilla::Plugin::TestRelease" : "0", + "Dist::Zilla::Plugin::UploadToCPAN" : "0", + "Dist::Zilla::PluginBundle::Author::ETHER" : "0.103", + "File::Spec" : "0", + "IO::Handle" : "0", + "IPC::Open3" : "0", + "Pod::Coverage::TrustPod" : "0", + "Pod::Wordlist" : "0", + "Software::License::Perl_5" : "0", + "Test::CPAN::Changes" : "0.19", + "Test::CPAN::Meta" : "0", + "Test::CleanNamespaces" : "0.15", + "Test::Deep" : "0", + "Test::EOL" : "0", + "Test::Kwalitee" : "1.21", + "Test::Mojibake" : "0", + "Test::More" : "0.96", + "Test::NoTabs" : "0", + "Test::NoWarnings" : "0", + "Test::Pod" : "1.41", + "Test::Pod::Coverage" : "1.08", + "Test::Pod::No404s" : "0", + "Test::Spelling" : "0.12", + "blib" : "1.01", + "perl" : "5.006" + } + }, + "runtime" : { + "requires" : { + "Carp" : "0", + "Exporter" : "0", + "Test::Builder" : "0", + "parent" : "0", + "perl" : "5.006", + "strict" : "0", + "warnings" : "0" + } + }, + "test" : { + "recommends" : { + "CPAN::Meta" : "2.120900", + "Test::Tester" : "0.108" + }, + "requires" : { + "ExtUtils::MakeMaker" : "0", + "File::Spec" : "0", + "Test::More" : "0.94", + "if" : "0", + "perl" : "5.006" + }, + "suggests" : { + "CPAN::Meta::Check" : "0.011", + "CPAN::Meta::Requirements" : "0" + } + } + }, + "provides" : { + "Test::Warnings" : { + "file" : "lib/Test/Warnings.pm", + "version" : "0.026" + } + }, + "release_status" : "stable", + "resources" : { + "bugtracker" : { + "mailto" : "bug-Test-Warnings@rt.cpan.org", + "web" : "https://rt.cpan.org/Public/Dist/Display.html?Name=Test-Warnings" + }, + "homepage" : "https://github.com/karenetheridge/Test-Warnings", + "repository" : { + "type" : "git", + "url" : "https://github.com/karenetheridge/Test-Warnings.git", + "web" : "https://github.com/karenetheridge/Test-Warnings" + }, + "x_IRC" : "irc://irc.perl.org/#perl-qa", + "x_MailingList" : "http://lists.perl.org/list/perl-qa.html" + }, + "version" : "0.026", + "x_Dist_Zilla" : { + "perl" : { + "version" : "5.023007" + }, + "plugins" : [ + { + "class" : "Dist::Zilla::Plugin::FileFinder::Filter", + "name" : "all_files_but_SilenceStderr", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs", + "config" : { + "Dist::Zilla::Plugin::Prereqs" : { + "phase" : "develop", + "type" : "requires" + } + }, + "name" : "@Author::ETHER/bundle_plugins", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::RewriteVersion::Transitional", + "config" : { + "Dist::Zilla::Plugin::RewriteVersion" : { + "add_tarball_name" : 0, + "finders" : [ + ":ExecFiles", + ":InstallModules" + ], + "global" : 1, + "skip_version_provider" : 0 + }, + "Dist::Zilla::Plugin::RewriteVersion::Transitional" : {} + }, + "name" : "@Author::ETHER/RewriteVersion::Transitional", + "version" : "0.007" + }, + { + "class" : "Dist::Zilla::Plugin::PromptIfStale", + "config" : { + "Dist::Zilla::Plugin::PromptIfStale" : { + "check_all_plugins" : 0, + "check_all_prereqs" : 0, + "modules" : [ + "Dist::Zilla::PluginBundle::Author::ETHER" + ], + "phase" : "build", + "skip" : [] + } + }, + "name" : "@Author::ETHER/stale modules, build", + "version" : "0.047" + }, + { + "class" : "Dist::Zilla::Plugin::PromptIfStale", + "config" : { + "Dist::Zilla::Plugin::PromptIfStale" : { + "check_all_plugins" : 1, + "check_all_prereqs" : 1, + "modules" : [], + "phase" : "release", + "skip" : [] + } + }, + "name" : "@Author::ETHER/stale modules, release", + "version" : "0.047" + }, + { + "class" : "Dist::Zilla::Plugin::FileFinder::ByName", + "name" : "@Author::ETHER/Examples", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Git::GatherDir", + "config" : { + "Dist::Zilla::Plugin::GatherDir" : { + "exclude_filename" : [ + "CONTRIBUTING", + "INSTALL", + "LICENCE", + "README.pod", + "TODO", + "blog_20130309.md" + ], + "exclude_match" : [], + "follow_symlinks" : 0, + "include_dotfiles" : 0, + "prefix" : "", + "prune_directory" : [], + "root" : "." + }, + "Dist::Zilla::Plugin::Git::GatherDir" : { + "include_untracked" : 0 + } + }, + "name" : "@Author::ETHER/Git::GatherDir", + "version" : "2.036" + }, + { + "class" : "Dist::Zilla::Plugin::MetaYAML", + "name" : "@Author::ETHER/MetaYAML", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::MetaJSON", + "name" : "@Author::ETHER/MetaJSON", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Readme", + "name" : "@Author::ETHER/Readme", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Manifest", + "name" : "@Author::ETHER/Manifest", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::License", + "name" : "@Author::ETHER/License", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::GenerateFile::FromShareDir", + "config" : { + "Dist::Zilla::Plugin::GenerateFile::FromShareDir" : { + "destination_filename" : "CONTRIBUTING", + "dist" : "Dist-Zilla-PluginBundle-Author-ETHER", + "encoding" : "UTF-8", + "has_xs" : 0, + "location" : "build", + "source_filename" : "CONTRIBUTING" + }, + "Dist::Zilla::Role::RepoFileInjector" : { + "allow_overwrite" : 1, + "repo_root" : ".", + "version" : "0.005" + } + }, + "name" : "@Author::ETHER/generate CONTRIBUTING", + "version" : "0.009" + }, + { + "class" : "Dist::Zilla::Plugin::InstallGuide", + "name" : "@Author::ETHER/InstallGuide", + "version" : "1.200006" + }, + { + "class" : "Dist::Zilla::Plugin::Test::Compile", + "config" : { + "Dist::Zilla::Plugin::Test::Compile" : { + "bail_out_on_fail" : "1", + "fail_on_warning" : "author", + "fake_home" : 0, + "filename" : "xt/author/00-compile.t", + "module_finder" : [ + ":InstallModules" + ], + "needs_display" : 0, + "phase" : "develop", + "script_finder" : [ + ":PerlExecFiles", + "@Author::ETHER/Examples" + ], + "skips" : [] + } + }, + "name" : "@Author::ETHER/Test::Compile", + "version" : "2.054" + }, + { + "class" : "Dist::Zilla::Plugin::Test::NoTabs", + "config" : { + "Dist::Zilla::Plugin::Test::NoTabs" : { + "filename" : "xt/author/no-tabs.t", + "finder" : [ + ":InstallModules", + ":ExecFiles", + "@Author::ETHER/Examples", + ":TestFiles", + ":ExtraTestFiles" + ] + } + }, + "name" : "@Author::ETHER/Test::NoTabs", + "version" : "0.15" + }, + { + "class" : "Dist::Zilla::Plugin::Test::EOL", + "config" : { + "Dist::Zilla::Plugin::Test::EOL" : { + "filename" : "xt/author/eol.t", + "finder" : [ + ":InstallModules", + ":ExecFiles", + "@Author::ETHER/Examples", + ":TestFiles", + ":ExtraTestFiles" + ], + "trailing_whitespace" : "1" + } + }, + "name" : "@Author::ETHER/Test::EOL", + "version" : "0.18" + }, + { + "class" : "Dist::Zilla::Plugin::MetaTests", + "name" : "@Author::ETHER/MetaTests", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Test::CPAN::Changes", + "name" : "@Author::ETHER/Test::CPAN::Changes", + "version" : "0.009" + }, + { + "class" : "Dist::Zilla::Plugin::Test::ChangesHasContent", + "name" : "@Author::ETHER/Test::ChangesHasContent", + "version" : "0.008" + }, + { + "class" : "Dist::Zilla::Plugin::Test::MinimumVersion", + "name" : "@Author::ETHER/Test::MinimumVersion", + "version" : "2.000006" + }, + { + "class" : "Dist::Zilla::Plugin::PodSyntaxTests", + "name" : "@Author::ETHER/PodSyntaxTests", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Test::PodSpelling", + "config" : { + "Dist::Zilla::Plugin::Test::PodSpelling" : { + "directories" : [], + "spell_cmd" : "", + "stopwords" : [ + "irc" + ], + "wordlist" : "Pod::Wordlist" + } + }, + "name" : "@Author::ETHER/Test::PodSpelling", + "version" : "2.007000" + }, + { + "class" : "Dist::Zilla::Plugin::Test::Pod::No404s", + "name" : "@Author::ETHER/Test::Pod::No404s", + "version" : "1.002" + }, + { + "class" : "Dist::Zilla::Plugin::Test::Kwalitee", + "config" : { + "Dist::Zilla::Plugin::Test::Kwalitee" : { + "filename" : "xt/author/kwalitee.t", + "skiptest" : [] + } + }, + "name" : "@Author::ETHER/Test::Kwalitee", + "version" : "2.12" + }, + { + "class" : "Dist::Zilla::Plugin::MojibakeTests", + "name" : "@Author::ETHER/MojibakeTests", + "version" : "0.8" + }, + { + "class" : "Dist::Zilla::Plugin::Test::ReportPrereqs", + "name" : "@Author::ETHER/Test::ReportPrereqs", + "version" : "0.021" + }, + { + "class" : "Dist::Zilla::Plugin::Test::Portability", + "name" : "@Author::ETHER/Test::Portability", + "version" : "2.000006" + }, + { + "class" : "Dist::Zilla::Plugin::Test::CleanNamespaces", + "config" : { + "Dist::Zilla::Plugin::Test::CleanNamespaces" : { + "filename" : "xt/author/clean-namespaces.t", + "skips" : [] + } + }, + "name" : "@Author::ETHER/Test::CleanNamespaces", + "version" : "0.006" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Describe", + "name" : "@Author::ETHER/Git::Describe", + "version" : "0.006" + }, + { + "class" : "Dist::Zilla::Plugin::PodWeaver", + "config" : { + "Dist::Zilla::Plugin::PodWeaver" : { + "config_plugins" : [ + "@Author::ETHER" + ], + "finder" : [ + ":InstallModules", + ":ExecFiles" + ], + "plugins" : [ + { + "class" : "Pod::Weaver::Plugin::EnsurePod5", + "name" : "@CorePrep/EnsurePod5", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Plugin::H1Nester", + "name" : "@CorePrep/H1Nester", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Plugin::SingleEncoding", + "name" : "@Author::ETHER/SingleEncoding", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Plugin::Transformer", + "name" : "@Author::ETHER/List", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Plugin::Transformer", + "name" : "@Author::ETHER/Verbatim", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Region", + "name" : "@Author::ETHER/header", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Name", + "name" : "@Author::ETHER/Name", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Version", + "name" : "@Author::ETHER/Version", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Region", + "name" : "@Author::ETHER/prelude", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Generic", + "name" : "SYNOPSIS", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Generic", + "name" : "DESCRIPTION", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Generic", + "name" : "OVERVIEW", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Collect", + "name" : "ATTRIBUTES", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Collect", + "name" : "METHODS", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Collect", + "name" : "FUNCTIONS", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Collect", + "name" : "TYPES", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Leftovers", + "name" : "@Author::ETHER/Leftovers", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Region", + "name" : "@Author::ETHER/postlude", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::GenerateSection", + "name" : "@Author::ETHER/generate SUPPORT", + "version" : "1.01" + }, + { + "class" : "Pod::Weaver::Section::AllowOverride", + "name" : "@Author::ETHER/allow override SUPPORT", + "version" : "0.05" + }, + { + "class" : "Pod::Weaver::Section::Authors", + "name" : "@Author::ETHER/Authors", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Contributors", + "name" : "@Author::ETHER/Contributors", + "version" : "0.009" + }, + { + "class" : "Pod::Weaver::Section::Legal", + "name" : "@Author::ETHER/Legal", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Region", + "name" : "@Author::ETHER/footer", + "version" : "4.012" + } + ] + } + }, + "name" : "@Author::ETHER/PodWeaver", + "version" : "4.006" + }, + { + "class" : "Dist::Zilla::Plugin::GithubMeta", + "name" : "@Author::ETHER/GithubMeta", + "version" : "0.54" + }, + { + "class" : "Dist::Zilla::Plugin::AutoMetaResources", + "name" : "@Author::ETHER/AutoMetaResources", + "version" : "1.21" + }, + { + "class" : "Dist::Zilla::Plugin::AuthorityFromModule", + "config" : { + "Dist::Zilla::Plugin::AuthorityFromModule" : { + "module" : "Test::Warnings" + }, + "Dist::Zilla::Role::ModuleMetadata" : { + "Module::Metadata" : "1.000031", + "version" : "0.003" + } + }, + "name" : "@Author::ETHER/AuthorityFromModule", + "version" : "0.006" + }, + { + "class" : "Dist::Zilla::Plugin::Authority", + "name" : "@Author::ETHER/Authority", + "version" : "1.009" + }, + { + "class" : "Dist::Zilla::Plugin::MetaNoIndex", + "name" : "@Author::ETHER/MetaNoIndex", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::MetaProvides::Package", + "config" : { + "Dist::Zilla::Plugin::MetaProvides::Package" : { + "finder" : [ + ":InstallModules" + ], + "finder_objects" : [ + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":InstallModules", + "version" : "5.043" + } + ] + }, + "Dist::Zilla::Role::MetaProvider::Provider" : { + "Dist::Zilla::Role::MetaProvider::Provider::VERSION" : "2.001011", + "inherit_missing" : "0", + "inherit_version" : "0", + "meta_noindex" : "1" + } + }, + "name" : "@Author::ETHER/MetaProvides::Package", + "version" : "2.003001" + }, + { + "class" : "Dist::Zilla::Plugin::MetaConfig", + "name" : "@Author::ETHER/MetaConfig", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Keywords", + "config" : { + "Dist::Zilla::Plugin::Keywords" : { + "keywords" : [ + "testing", + "tests", + "warnings" + ] + } + }, + "name" : "@Author::ETHER/Keywords", + "version" : "0.006" + }, + { + "class" : "Dist::Zilla::Plugin::AutoPrereqs", + "name" : "@Author::ETHER/AutoPrereqs", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs::AuthorDeps", + "name" : "@Author::ETHER/Prereqs::AuthorDeps", + "version" : "0.005" + }, + { + "class" : "Dist::Zilla::Plugin::MinimumPerl", + "name" : "@Author::ETHER/MinimumPerl", + "version" : "1.006" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs", + "config" : { + "Dist::Zilla::Plugin::Prereqs" : { + "phase" : "develop", + "type" : "recommends" + } + }, + "name" : "@Author::ETHER/pluginbundle_version", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::MakeMaker", + "config" : { + "Dist::Zilla::Role::TestRunner" : { + "default_jobs" : 9 + } + }, + "name" : "@Author::ETHER/MakeMaker", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Contributors", + "config" : { + "Dist::Zilla::Plugin::Git::Contributors" : { + "include_authors" : 0, + "include_releaser" : 1, + "order_by" : "commits", + "paths" : [ + "." + ] + } + }, + "name" : "@Author::ETHER/Git::Contributors", + "version" : "0.018" + }, + { + "class" : "Dist::Zilla::Plugin::StaticInstall", + "config" : { + "Dist::Zilla::Plugin::StaticInstall" : { + "dry_run" : 0, + "mode" : "auto" + } + }, + "name" : "@Author::ETHER/StaticInstall", + "version" : "0.009" + }, + { + "class" : "Dist::Zilla::Plugin::RunExtraTests", + "config" : { + "Dist::Zilla::Role::TestRunner" : { + "default_jobs" : 9 + } + }, + "name" : "@Author::ETHER/RunExtraTests", + "version" : "0.028" + }, + { + "class" : "Dist::Zilla::Plugin::CheckSelfDependency", + "config" : { + "Dist::Zilla::Plugin::CheckSelfDependency" : { + "finder" : [ + ":InstallModules" + ] + }, + "Dist::Zilla::Role::ModuleMetadata" : { + "Module::Metadata" : "1.000031", + "version" : "0.003" + } + }, + "name" : "@Author::ETHER/CheckSelfDependency", + "version" : "0.011" + }, + { + "class" : "Dist::Zilla::Plugin::Run::AfterBuild", + "config" : { + "Dist::Zilla::Plugin::Run::Role::Runner" : { + "fatal_errors" : 1, + "quiet" : 1, + "run" : [ + "bash -c \"test -e .ackrc && grep -q -- '--ignore-dir=.latest' .ackrc || echo '--ignore-dir=.latest' >> .ackrc; if [[ `dirname '%d'` != .build ]]; then test -e .ackrc && grep -q -- '--ignore-dir=%d' .ackrc || echo '--ignore-dir=%d' >> .ackrc; fi\"" + ] + } + }, + "name" : "@Author::ETHER/.ackrc", + "version" : "0.042" + }, + { + "class" : "Dist::Zilla::Plugin::Run::AfterBuild", + "config" : { + "Dist::Zilla::Plugin::Run::Role::Runner" : { + "eval" : [ + "if ('%d' =~ /^%n-[.[:xdigit:]]+$/) { unlink '.latest'; symlink '%d', '.latest'; }" + ], + "fatal_errors" : 1, + "quiet" : 1 + } + }, + "name" : "@Author::ETHER/.latest", + "version" : "0.042" + }, + { + "class" : "Dist::Zilla::Plugin::CheckStrictVersion", + "name" : "@Author::ETHER/CheckStrictVersion", + "version" : "0.001" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Check", + "config" : { + "Dist::Zilla::Plugin::Git::Check" : { + "untracked_files" : "die" + }, + "Dist::Zilla::Role::Git::DirtyFiles" : { + "allow_dirty" : [], + "allow_dirty_match" : [], + "changelog" : "Changes" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/initial check", + "version" : "2.036" + }, + { + "class" : "Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts", + "config" : { + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/Git::CheckFor::MergeConflicts", + "version" : "0.013" + }, + { + "class" : "Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch", + "config" : { + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/Git::CheckFor::CorrectBranch", + "version" : "0.013" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Remote::Check", + "name" : "@Author::ETHER/Git::Remote::Check", + "version" : "0.2.0" + }, + { + "class" : "Dist::Zilla::Plugin::CheckPrereqsIndexed", + "name" : "@Author::ETHER/CheckPrereqsIndexed", + "version" : "0.017" + }, + { + "class" : "Dist::Zilla::Plugin::TestRelease", + "name" : "@Author::ETHER/TestRelease", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Check", + "config" : { + "Dist::Zilla::Plugin::Git::Check" : { + "untracked_files" : "die" + }, + "Dist::Zilla::Role::Git::DirtyFiles" : { + "allow_dirty" : [], + "allow_dirty_match" : [], + "changelog" : "Changes" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/after tests", + "version" : "2.036" + }, + { + "class" : "Dist::Zilla::Plugin::CheckIssues", + "name" : "@Author::ETHER/CheckIssues", + "version" : "0.009" + }, + { + "class" : "Dist::Zilla::Plugin::UploadToCPAN", + "name" : "@Author::ETHER/UploadToCPAN", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::CopyFilesFromRelease", + "config" : { + "Dist::Zilla::Plugin::CopyFilesFromRelease" : { + "filename" : [ + "CONTRIBUTING", + "Changes", + "INSTALL", + "LICENCE", + "LICENSE", + "ppport.h" + ], + "match" : [] + } + }, + "name" : "@Author::ETHER/CopyFilesFromRelease", + "version" : "0.006" + }, + { + "class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod", + "config" : { + "Dist::Zilla::Role::FileWatcher" : { + "version" : "0.006" + } + }, + "name" : "@Author::ETHER/ReadmeAnyFromPod", + "version" : "0.150250" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Commit", + "config" : { + "Dist::Zilla::Plugin::Git::Commit" : { + "add_files_in" : [ + "." + ], + "commit_msg" : "%N-%v%t%n%n%c" + }, + "Dist::Zilla::Role::Git::DirtyFiles" : { + "allow_dirty" : [ + "CONTRIBUTING", + "Changes", + "INSTALL", + "LICENCE", + "README.pod" + ], + "allow_dirty_match" : [], + "changelog" : "Changes" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + }, + "Dist::Zilla::Role::Git::StringFormatter" : { + "time_zone" : "local" + } + }, + "name" : "@Author::ETHER/release snapshot", + "version" : "2.036" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Tag", + "config" : { + "Dist::Zilla::Plugin::Git::Tag" : { + "branch" : null, + "changelog" : "Changes", + "signed" : 0, + "tag" : "v0.026", + "tag_format" : "v%v", + "tag_message" : "v%v%t" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + }, + "Dist::Zilla::Role::Git::StringFormatter" : { + "time_zone" : "local" + } + }, + "name" : "@Author::ETHER/Git::Tag", + "version" : "2.036" + }, + { + "class" : "Dist::Zilla::Plugin::GitHub::Update", + "config" : { + "Dist::Zilla::Plugin::GitHub::Update" : { + "metacpan" : 1 + } + }, + "name" : "@Author::ETHER/GitHub::Update", + "version" : "0.41" + }, + { + "class" : "Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional", + "config" : { + "Dist::Zilla::Plugin::BumpVersionAfterRelease" : { + "finders" : [ + ":ExecFiles", + ":InstallModules" + ], + "global" : 1, + "munge_makefile_pl" : 1 + }, + "Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional" : {} + }, + "name" : "@Author::ETHER/BumpVersionAfterRelease::Transitional", + "version" : "0.007" + }, + { + "class" : "Dist::Zilla::Plugin::NextRelease", + "name" : "@Author::ETHER/NextRelease", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Commit", + "config" : { + "Dist::Zilla::Plugin::Git::Commit" : { + "add_files_in" : [], + "commit_msg" : "increment $VERSION after %v release" + }, + "Dist::Zilla::Role::Git::DirtyFiles" : { + "allow_dirty" : [ + "Changes" + ], + "allow_dirty_match" : [ + "(?^:^lib/.*\\.pm$)" + ], + "changelog" : "Changes" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + }, + "Dist::Zilla::Role::Git::StringFormatter" : { + "time_zone" : "local" + } + }, + "name" : "@Author::ETHER/post-release commit", + "version" : "2.036" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Push", + "config" : { + "Dist::Zilla::Plugin::Git::Push" : { + "push_to" : [ + "origin" + ], + "remotes_must_exist" : 1 + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/Git::Push", + "version" : "2.036" + }, + { + "class" : "Dist::Zilla::Plugin::Run::AfterRelease", + "config" : { + "Dist::Zilla::Plugin::Run::Role::Runner" : { + "fatal_errors" : 0, + "quiet" : 0, + "run" : [ + "REDACTED" + ] + } + }, + "name" : "@Author::ETHER/install release", + "version" : "0.042" + }, + { + "class" : "Dist::Zilla::Plugin::Run::AfterRelease", + "config" : { + "Dist::Zilla::Plugin::Run::Role::Runner" : { + "eval" : [ + "print \"release complete!\\xa\"" + ], + "fatal_errors" : 1, + "quiet" : 1 + } + }, + "name" : "@Author::ETHER/release complete", + "version" : "0.042" + }, + { + "class" : "Dist::Zilla::Plugin::ConfirmRelease", + "name" : "@Author::ETHER/ConfirmRelease", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::OnlyCorePrereqs", + "config" : { + "Dist::Zilla::Plugin::OnlyCorePrereqs" : { + "also_disallow" : [], + "check_dual_life_versions" : "0", + "deprecated_ok" : "0", + "phases" : [ + "configure", + "build", + "runtime", + "test" + ], + "skips" : [], + "starting_version" : "5.006" + } + }, + "name" : "OnlyCorePrereqs", + "version" : "0.024" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs::Soften", + "config" : { + "Dist::Zilla::Plugin::Prereqs::Soften" : { + "copy_to" : [], + "modules" : [ + "Test::Tester" + ], + "modules_from_features" : null, + "to_relationship" : "recommends" + } + }, + "name" : "Prereqs::Soften", + "version" : "0.006001" + }, + { + "class" : "Dist::Zilla::Plugin::MetaResources", + "name" : "MetaResources", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs", + "config" : { + "Dist::Zilla::Plugin::Prereqs" : { + "phase" : "develop", + "type" : "requires" + } + }, + "name" : "DevelopRequires", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Breaks", + "name" : "Breaks", + "version" : "0.003" + }, + { + "class" : "Dist::Zilla::Plugin::Test::CheckBreaks", + "config" : { + "Dist::Zilla::Plugin::Test::CheckBreaks" : { + "conflicts_module" : null, + "no_forced_deps" : 1 + }, + "Dist::Zilla::Role::ModuleMetadata" : { + "Module::Metadata" : "1.000031", + "version" : "0.003" + } + }, + "name" : "Test::CheckBreaks", + "version" : "0.015" + }, + { + "class" : "Dist::Zilla::Plugin::GenerateFile", + "name" : "synopsis_1", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::GenerateFile", + "name" : "synopsis_2", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::GenerateFile", + "name" : "test_warning_contents", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::Substitute", + "name" : "Substitute", + "version" : "0.006" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":InstallModules", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":IncModules", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":TestFiles", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":ExtraTestFiles", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":ExecFiles", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":PerlExecFiles", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":ShareFiles", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":MainModule", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":AllFiles", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":NoFiles", + "version" : "5.043" + }, + { + "class" : "Dist::Zilla::Plugin::VerifyPhases", + "name" : "@Author::ETHER/PHASE VERIFICATION", + "version" : "0.013" + } + ], + "zilla" : { + "class" : "Dist::Zilla::Dist::Builder", + "config" : { + "is_trial" : "0" + }, + "version" : "5.043" + } + }, + "x_authority" : "cpan:ETHER", + "x_authority_from_module" : "Test::Warnings", + "x_breaks" : { + "File::pushd" : "< 1.004" + }, + "x_contributors" : [ + "A. Sinan Unur " + ], + "x_permissions_from_module" : "Test::Warnings", + "x_static_install" : 1 +} + diff --git a/META.yml b/META.yml new file mode 100644 index 0000000..5f6e2e1 --- /dev/null +++ b/META.yml @@ -0,0 +1,853 @@ +--- +abstract: 'Test for warnings and the lack of them' +author: + - 'Karen Etheridge ' +build_requires: + ExtUtils::MakeMaker: '0' + File::Spec: '0' + Test::More: '0.94' + if: '0' + perl: '5.006' +configure_requires: + ExtUtils::MakeMaker: '0' + perl: '5.006' +dynamic_config: 0 +generated_by: 'Dist::Zilla version 5.043, CPAN::Meta::Converter version 2.150005' +keywords: + - testing + - tests + - warnings +license: perl +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: '1.4' +name: Test-Warnings +no_index: + directory: + - examples + - t + - xt +provides: + Test::Warnings: + file: lib/Test/Warnings.pm + version: '0.026' +requires: + Carp: '0' + Exporter: '0' + Test::Builder: '0' + parent: '0' + perl: '5.006' + strict: '0' + warnings: '0' +resources: + IRC: irc://irc.perl.org/#perl-qa + MailingList: http://lists.perl.org/list/perl-qa.html + bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Test-Warnings + homepage: https://github.com/karenetheridge/Test-Warnings + repository: https://github.com/karenetheridge/Test-Warnings.git +version: '0.026' +x_Dist_Zilla: + perl: + version: '5.023007' + plugins: + - + class: Dist::Zilla::Plugin::FileFinder::Filter + name: all_files_but_SilenceStderr + version: '5.043' + - + class: Dist::Zilla::Plugin::Prereqs + config: + Dist::Zilla::Plugin::Prereqs: + phase: develop + type: requires + name: '@Author::ETHER/bundle_plugins' + version: '5.043' + - + class: Dist::Zilla::Plugin::RewriteVersion::Transitional + config: + Dist::Zilla::Plugin::RewriteVersion: + add_tarball_name: 0 + finders: + - ':ExecFiles' + - ':InstallModules' + global: 1 + skip_version_provider: 0 + Dist::Zilla::Plugin::RewriteVersion::Transitional: {} + name: '@Author::ETHER/RewriteVersion::Transitional' + version: '0.007' + - + class: Dist::Zilla::Plugin::PromptIfStale + config: + Dist::Zilla::Plugin::PromptIfStale: + check_all_plugins: 0 + check_all_prereqs: 0 + modules: + - Dist::Zilla::PluginBundle::Author::ETHER + phase: build + skip: [] + name: '@Author::ETHER/stale modules, build' + version: '0.047' + - + class: Dist::Zilla::Plugin::PromptIfStale + config: + Dist::Zilla::Plugin::PromptIfStale: + check_all_plugins: 1 + check_all_prereqs: 1 + modules: [] + phase: release + skip: [] + name: '@Author::ETHER/stale modules, release' + version: '0.047' + - + class: Dist::Zilla::Plugin::FileFinder::ByName + name: '@Author::ETHER/Examples' + version: '5.043' + - + class: Dist::Zilla::Plugin::Git::GatherDir + config: + Dist::Zilla::Plugin::GatherDir: + exclude_filename: + - CONTRIBUTING + - INSTALL + - LICENCE + - README.pod + - TODO + - blog_20130309.md + exclude_match: [] + follow_symlinks: 0 + include_dotfiles: 0 + prefix: '' + prune_directory: [] + root: . + Dist::Zilla::Plugin::Git::GatherDir: + include_untracked: 0 + name: '@Author::ETHER/Git::GatherDir' + version: '2.036' + - + class: Dist::Zilla::Plugin::MetaYAML + name: '@Author::ETHER/MetaYAML' + version: '5.043' + - + class: Dist::Zilla::Plugin::MetaJSON + name: '@Author::ETHER/MetaJSON' + version: '5.043' + - + class: Dist::Zilla::Plugin::Readme + name: '@Author::ETHER/Readme' + version: '5.043' + - + class: Dist::Zilla::Plugin::Manifest + name: '@Author::ETHER/Manifest' + version: '5.043' + - + class: Dist::Zilla::Plugin::License + name: '@Author::ETHER/License' + version: '5.043' + - + class: Dist::Zilla::Plugin::GenerateFile::FromShareDir + config: + Dist::Zilla::Plugin::GenerateFile::FromShareDir: + destination_filename: CONTRIBUTING + dist: Dist-Zilla-PluginBundle-Author-ETHER + encoding: UTF-8 + has_xs: 0 + location: build + source_filename: CONTRIBUTING + Dist::Zilla::Role::RepoFileInjector: + allow_overwrite: 1 + repo_root: . + version: '0.005' + name: '@Author::ETHER/generate CONTRIBUTING' + version: '0.009' + - + class: Dist::Zilla::Plugin::InstallGuide + name: '@Author::ETHER/InstallGuide' + version: '1.200006' + - + class: Dist::Zilla::Plugin::Test::Compile + config: + Dist::Zilla::Plugin::Test::Compile: + bail_out_on_fail: '1' + fail_on_warning: author + fake_home: 0 + filename: xt/author/00-compile.t + module_finder: + - ':InstallModules' + needs_display: 0 + phase: develop + script_finder: + - ':PerlExecFiles' + - '@Author::ETHER/Examples' + skips: [] + name: '@Author::ETHER/Test::Compile' + version: '2.054' + - + class: Dist::Zilla::Plugin::Test::NoTabs + config: + Dist::Zilla::Plugin::Test::NoTabs: + filename: xt/author/no-tabs.t + finder: + - ':InstallModules' + - ':ExecFiles' + - '@Author::ETHER/Examples' + - ':TestFiles' + - ':ExtraTestFiles' + name: '@Author::ETHER/Test::NoTabs' + version: '0.15' + - + class: Dist::Zilla::Plugin::Test::EOL + config: + Dist::Zilla::Plugin::Test::EOL: + filename: xt/author/eol.t + finder: + - ':InstallModules' + - ':ExecFiles' + - '@Author::ETHER/Examples' + - ':TestFiles' + - ':ExtraTestFiles' + trailing_whitespace: '1' + name: '@Author::ETHER/Test::EOL' + version: '0.18' + - + class: Dist::Zilla::Plugin::MetaTests + name: '@Author::ETHER/MetaTests' + version: '5.043' + - + class: Dist::Zilla::Plugin::Test::CPAN::Changes + name: '@Author::ETHER/Test::CPAN::Changes' + version: '0.009' + - + class: Dist::Zilla::Plugin::Test::ChangesHasContent + name: '@Author::ETHER/Test::ChangesHasContent' + version: '0.008' + - + class: Dist::Zilla::Plugin::Test::MinimumVersion + name: '@Author::ETHER/Test::MinimumVersion' + version: '2.000006' + - + class: Dist::Zilla::Plugin::PodSyntaxTests + name: '@Author::ETHER/PodSyntaxTests' + version: '5.043' + - + class: Dist::Zilla::Plugin::Test::PodSpelling + config: + Dist::Zilla::Plugin::Test::PodSpelling: + directories: [] + spell_cmd: '' + stopwords: + - irc + wordlist: Pod::Wordlist + name: '@Author::ETHER/Test::PodSpelling' + version: '2.007000' + - + class: Dist::Zilla::Plugin::Test::Pod::No404s + name: '@Author::ETHER/Test::Pod::No404s' + version: '1.002' + - + class: Dist::Zilla::Plugin::Test::Kwalitee + config: + Dist::Zilla::Plugin::Test::Kwalitee: + filename: xt/author/kwalitee.t + skiptest: [] + name: '@Author::ETHER/Test::Kwalitee' + version: '2.12' + - + class: Dist::Zilla::Plugin::MojibakeTests + name: '@Author::ETHER/MojibakeTests' + version: '0.8' + - + class: Dist::Zilla::Plugin::Test::ReportPrereqs + name: '@Author::ETHER/Test::ReportPrereqs' + version: '0.021' + - + class: Dist::Zilla::Plugin::Test::Portability + name: '@Author::ETHER/Test::Portability' + version: '2.000006' + - + class: Dist::Zilla::Plugin::Test::CleanNamespaces + config: + Dist::Zilla::Plugin::Test::CleanNamespaces: + filename: xt/author/clean-namespaces.t + skips: [] + name: '@Author::ETHER/Test::CleanNamespaces' + version: '0.006' + - + class: Dist::Zilla::Plugin::Git::Describe + name: '@Author::ETHER/Git::Describe' + version: '0.006' + - + class: Dist::Zilla::Plugin::PodWeaver + config: + Dist::Zilla::Plugin::PodWeaver: + config_plugins: + - '@Author::ETHER' + finder: + - ':InstallModules' + - ':ExecFiles' + plugins: + - + class: Pod::Weaver::Plugin::EnsurePod5 + name: '@CorePrep/EnsurePod5' + version: '4.012' + - + class: Pod::Weaver::Plugin::H1Nester + name: '@CorePrep/H1Nester' + version: '4.012' + - + class: Pod::Weaver::Plugin::SingleEncoding + name: '@Author::ETHER/SingleEncoding' + version: '4.012' + - + class: Pod::Weaver::Plugin::Transformer + name: '@Author::ETHER/List' + version: '4.012' + - + class: Pod::Weaver::Plugin::Transformer + name: '@Author::ETHER/Verbatim' + version: '4.012' + - + class: Pod::Weaver::Section::Region + name: '@Author::ETHER/header' + version: '4.012' + - + class: Pod::Weaver::Section::Name + name: '@Author::ETHER/Name' + version: '4.012' + - + class: Pod::Weaver::Section::Version + name: '@Author::ETHER/Version' + version: '4.012' + - + class: Pod::Weaver::Section::Region + name: '@Author::ETHER/prelude' + version: '4.012' + - + class: Pod::Weaver::Section::Generic + name: SYNOPSIS + version: '4.012' + - + class: Pod::Weaver::Section::Generic + name: DESCRIPTION + version: '4.012' + - + class: Pod::Weaver::Section::Generic + name: OVERVIEW + version: '4.012' + - + class: Pod::Weaver::Section::Collect + name: ATTRIBUTES + version: '4.012' + - + class: Pod::Weaver::Section::Collect + name: METHODS + version: '4.012' + - + class: Pod::Weaver::Section::Collect + name: FUNCTIONS + version: '4.012' + - + class: Pod::Weaver::Section::Collect + name: TYPES + version: '4.012' + - + class: Pod::Weaver::Section::Leftovers + name: '@Author::ETHER/Leftovers' + version: '4.012' + - + class: Pod::Weaver::Section::Region + name: '@Author::ETHER/postlude' + version: '4.012' + - + class: Pod::Weaver::Section::GenerateSection + name: '@Author::ETHER/generate SUPPORT' + version: '1.01' + - + class: Pod::Weaver::Section::AllowOverride + name: '@Author::ETHER/allow override SUPPORT' + version: '0.05' + - + class: Pod::Weaver::Section::Authors + name: '@Author::ETHER/Authors' + version: '4.012' + - + class: Pod::Weaver::Section::Contributors + name: '@Author::ETHER/Contributors' + version: '0.009' + - + class: Pod::Weaver::Section::Legal + name: '@Author::ETHER/Legal' + version: '4.012' + - + class: Pod::Weaver::Section::Region + name: '@Author::ETHER/footer' + version: '4.012' + name: '@Author::ETHER/PodWeaver' + version: '4.006' + - + class: Dist::Zilla::Plugin::GithubMeta + name: '@Author::ETHER/GithubMeta' + version: '0.54' + - + class: Dist::Zilla::Plugin::AutoMetaResources + name: '@Author::ETHER/AutoMetaResources' + version: '1.21' + - + class: Dist::Zilla::Plugin::AuthorityFromModule + config: + Dist::Zilla::Plugin::AuthorityFromModule: + module: Test::Warnings + Dist::Zilla::Role::ModuleMetadata: + Module::Metadata: '1.000031' + version: '0.003' + name: '@Author::ETHER/AuthorityFromModule' + version: '0.006' + - + class: Dist::Zilla::Plugin::Authority + name: '@Author::ETHER/Authority' + version: '1.009' + - + class: Dist::Zilla::Plugin::MetaNoIndex + name: '@Author::ETHER/MetaNoIndex' + version: '5.043' + - + class: Dist::Zilla::Plugin::MetaProvides::Package + config: + Dist::Zilla::Plugin::MetaProvides::Package: + finder: + - ':InstallModules' + finder_objects: + - + class: Dist::Zilla::Plugin::FinderCode + name: ':InstallModules' + version: '5.043' + Dist::Zilla::Role::MetaProvider::Provider: + Dist::Zilla::Role::MetaProvider::Provider::VERSION: '2.001011' + inherit_missing: '0' + inherit_version: '0' + meta_noindex: '1' + name: '@Author::ETHER/MetaProvides::Package' + version: '2.003001' + - + class: Dist::Zilla::Plugin::MetaConfig + name: '@Author::ETHER/MetaConfig' + version: '5.043' + - + class: Dist::Zilla::Plugin::Keywords + config: + Dist::Zilla::Plugin::Keywords: + keywords: + - testing + - tests + - warnings + name: '@Author::ETHER/Keywords' + version: '0.006' + - + class: Dist::Zilla::Plugin::AutoPrereqs + name: '@Author::ETHER/AutoPrereqs' + version: '5.043' + - + class: Dist::Zilla::Plugin::Prereqs::AuthorDeps + name: '@Author::ETHER/Prereqs::AuthorDeps' + version: '0.005' + - + class: Dist::Zilla::Plugin::MinimumPerl + name: '@Author::ETHER/MinimumPerl' + version: '1.006' + - + class: Dist::Zilla::Plugin::Prereqs + config: + Dist::Zilla::Plugin::Prereqs: + phase: develop + type: recommends + name: '@Author::ETHER/pluginbundle_version' + version: '5.043' + - + class: Dist::Zilla::Plugin::MakeMaker + config: + Dist::Zilla::Role::TestRunner: + default_jobs: 9 + name: '@Author::ETHER/MakeMaker' + version: '5.043' + - + class: Dist::Zilla::Plugin::Git::Contributors + config: + Dist::Zilla::Plugin::Git::Contributors: + include_authors: 0 + include_releaser: 1 + order_by: commits + paths: + - . + name: '@Author::ETHER/Git::Contributors' + version: '0.018' + - + class: Dist::Zilla::Plugin::StaticInstall + config: + Dist::Zilla::Plugin::StaticInstall: + dry_run: 0 + mode: auto + name: '@Author::ETHER/StaticInstall' + version: '0.009' + - + class: Dist::Zilla::Plugin::RunExtraTests + config: + Dist::Zilla::Role::TestRunner: + default_jobs: 9 + name: '@Author::ETHER/RunExtraTests' + version: '0.028' + - + class: Dist::Zilla::Plugin::CheckSelfDependency + config: + Dist::Zilla::Plugin::CheckSelfDependency: + finder: + - ':InstallModules' + Dist::Zilla::Role::ModuleMetadata: + Module::Metadata: '1.000031' + version: '0.003' + name: '@Author::ETHER/CheckSelfDependency' + version: '0.011' + - + class: Dist::Zilla::Plugin::Run::AfterBuild + config: + Dist::Zilla::Plugin::Run::Role::Runner: + fatal_errors: 1 + quiet: 1 + run: + - "bash -c \"test -e .ackrc && grep -q -- '--ignore-dir=.latest' .ackrc || echo '--ignore-dir=.latest' >> .ackrc; if [[ `dirname '%d'` != .build ]]; then test -e .ackrc && grep -q -- '--ignore-dir=%d' .ackrc || echo '--ignore-dir=%d' >> .ackrc; fi\"" + name: '@Author::ETHER/.ackrc' + version: '0.042' + - + class: Dist::Zilla::Plugin::Run::AfterBuild + config: + Dist::Zilla::Plugin::Run::Role::Runner: + eval: + - "if ('%d' =~ /^%n-[.[:xdigit:]]+$/) { unlink '.latest'; symlink '%d', '.latest'; }" + fatal_errors: 1 + quiet: 1 + name: '@Author::ETHER/.latest' + version: '0.042' + - + class: Dist::Zilla::Plugin::CheckStrictVersion + name: '@Author::ETHER/CheckStrictVersion' + version: '0.001' + - + class: Dist::Zilla::Plugin::Git::Check + config: + Dist::Zilla::Plugin::Git::Check: + untracked_files: die + Dist::Zilla::Role::Git::DirtyFiles: + allow_dirty: [] + allow_dirty_match: [] + changelog: Changes + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/initial check' + version: '2.036' + - + class: Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts + config: + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/Git::CheckFor::MergeConflicts' + version: '0.013' + - + class: Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch + config: + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/Git::CheckFor::CorrectBranch' + version: '0.013' + - + class: Dist::Zilla::Plugin::Git::Remote::Check + name: '@Author::ETHER/Git::Remote::Check' + version: 0.2.0 + - + class: Dist::Zilla::Plugin::CheckPrereqsIndexed + name: '@Author::ETHER/CheckPrereqsIndexed' + version: '0.017' + - + class: Dist::Zilla::Plugin::TestRelease + name: '@Author::ETHER/TestRelease' + version: '5.043' + - + class: Dist::Zilla::Plugin::Git::Check + config: + Dist::Zilla::Plugin::Git::Check: + untracked_files: die + Dist::Zilla::Role::Git::DirtyFiles: + allow_dirty: [] + allow_dirty_match: [] + changelog: Changes + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/after tests' + version: '2.036' + - + class: Dist::Zilla::Plugin::CheckIssues + name: '@Author::ETHER/CheckIssues' + version: '0.009' + - + class: Dist::Zilla::Plugin::UploadToCPAN + name: '@Author::ETHER/UploadToCPAN' + version: '5.043' + - + class: Dist::Zilla::Plugin::CopyFilesFromRelease + config: + Dist::Zilla::Plugin::CopyFilesFromRelease: + filename: + - CONTRIBUTING + - Changes + - INSTALL + - LICENCE + - LICENSE + - ppport.h + match: [] + name: '@Author::ETHER/CopyFilesFromRelease' + version: '0.006' + - + class: Dist::Zilla::Plugin::ReadmeAnyFromPod + config: + Dist::Zilla::Role::FileWatcher: + version: '0.006' + name: '@Author::ETHER/ReadmeAnyFromPod' + version: '0.150250' + - + class: Dist::Zilla::Plugin::Git::Commit + config: + Dist::Zilla::Plugin::Git::Commit: + add_files_in: + - . + commit_msg: '%N-%v%t%n%n%c' + Dist::Zilla::Role::Git::DirtyFiles: + allow_dirty: + - CONTRIBUTING + - Changes + - INSTALL + - LICENCE + - README.pod + allow_dirty_match: [] + changelog: Changes + Dist::Zilla::Role::Git::Repo: + repo_root: . + Dist::Zilla::Role::Git::StringFormatter: + time_zone: local + name: '@Author::ETHER/release snapshot' + version: '2.036' + - + class: Dist::Zilla::Plugin::Git::Tag + config: + Dist::Zilla::Plugin::Git::Tag: + branch: ~ + changelog: Changes + signed: 0 + tag: v0.026 + tag_format: v%v + tag_message: v%v%t + Dist::Zilla::Role::Git::Repo: + repo_root: . + Dist::Zilla::Role::Git::StringFormatter: + time_zone: local + name: '@Author::ETHER/Git::Tag' + version: '2.036' + - + class: Dist::Zilla::Plugin::GitHub::Update + config: + Dist::Zilla::Plugin::GitHub::Update: + metacpan: 1 + name: '@Author::ETHER/GitHub::Update' + version: '0.41' + - + class: Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional + config: + Dist::Zilla::Plugin::BumpVersionAfterRelease: + finders: + - ':ExecFiles' + - ':InstallModules' + global: 1 + munge_makefile_pl: 1 + Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional: {} + name: '@Author::ETHER/BumpVersionAfterRelease::Transitional' + version: '0.007' + - + class: Dist::Zilla::Plugin::NextRelease + name: '@Author::ETHER/NextRelease' + version: '5.043' + - + class: Dist::Zilla::Plugin::Git::Commit + config: + Dist::Zilla::Plugin::Git::Commit: + add_files_in: [] + commit_msg: 'increment $VERSION after %v release' + Dist::Zilla::Role::Git::DirtyFiles: + allow_dirty: + - Changes + allow_dirty_match: + - (?^:^lib/.*\.pm$) + changelog: Changes + Dist::Zilla::Role::Git::Repo: + repo_root: . + Dist::Zilla::Role::Git::StringFormatter: + time_zone: local + name: '@Author::ETHER/post-release commit' + version: '2.036' + - + class: Dist::Zilla::Plugin::Git::Push + config: + Dist::Zilla::Plugin::Git::Push: + push_to: + - origin + remotes_must_exist: 1 + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/Git::Push' + version: '2.036' + - + class: Dist::Zilla::Plugin::Run::AfterRelease + config: + Dist::Zilla::Plugin::Run::Role::Runner: + fatal_errors: 0 + quiet: 0 + run: + - REDACTED + name: '@Author::ETHER/install release' + version: '0.042' + - + class: Dist::Zilla::Plugin::Run::AfterRelease + config: + Dist::Zilla::Plugin::Run::Role::Runner: + eval: + - 'print "release complete!\xa"' + fatal_errors: 1 + quiet: 1 + name: '@Author::ETHER/release complete' + version: '0.042' + - + class: Dist::Zilla::Plugin::ConfirmRelease + name: '@Author::ETHER/ConfirmRelease' + version: '5.043' + - + class: Dist::Zilla::Plugin::OnlyCorePrereqs + config: + Dist::Zilla::Plugin::OnlyCorePrereqs: + also_disallow: [] + check_dual_life_versions: '0' + deprecated_ok: '0' + phases: + - configure + - build + - runtime + - test + skips: [] + starting_version: '5.006' + name: OnlyCorePrereqs + version: '0.024' + - + class: Dist::Zilla::Plugin::Prereqs::Soften + config: + Dist::Zilla::Plugin::Prereqs::Soften: + copy_to: [] + modules: + - Test::Tester + modules_from_features: ~ + to_relationship: recommends + name: Prereqs::Soften + version: '0.006001' + - + class: Dist::Zilla::Plugin::MetaResources + name: MetaResources + version: '5.043' + - + class: Dist::Zilla::Plugin::Prereqs + config: + Dist::Zilla::Plugin::Prereqs: + phase: develop + type: requires + name: DevelopRequires + version: '5.043' + - + class: Dist::Zilla::Plugin::Breaks + name: Breaks + version: '0.003' + - + class: Dist::Zilla::Plugin::Test::CheckBreaks + config: + Dist::Zilla::Plugin::Test::CheckBreaks: + conflicts_module: ~ + no_forced_deps: 1 + Dist::Zilla::Role::ModuleMetadata: + Module::Metadata: '1.000031' + version: '0.003' + name: Test::CheckBreaks + version: '0.015' + - + class: Dist::Zilla::Plugin::GenerateFile + name: synopsis_1 + version: '5.043' + - + class: Dist::Zilla::Plugin::GenerateFile + name: synopsis_2 + version: '5.043' + - + class: Dist::Zilla::Plugin::GenerateFile + name: test_warning_contents + version: '5.043' + - + class: Dist::Zilla::Plugin::Substitute + name: Substitute + version: '0.006' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':InstallModules' + version: '5.043' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':IncModules' + version: '5.043' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':TestFiles' + version: '5.043' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':ExtraTestFiles' + version: '5.043' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':ExecFiles' + version: '5.043' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':PerlExecFiles' + version: '5.043' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':ShareFiles' + version: '5.043' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':MainModule' + version: '5.043' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':AllFiles' + version: '5.043' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':NoFiles' + version: '5.043' + - + class: Dist::Zilla::Plugin::VerifyPhases + name: '@Author::ETHER/PHASE VERIFICATION' + version: '0.013' + zilla: + class: Dist::Zilla::Dist::Builder + config: + is_trial: '0' + version: '5.043' +x_authority: cpan:ETHER +x_authority_from_module: Test::Warnings +x_breaks: + File::pushd: '< 1.004' +x_contributors: + - 'A. Sinan Unur ' +x_permissions_from_module: Test::Warnings +x_static_install: 1 diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..4c609ea --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,63 @@ +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.043. +use strict; +use warnings; + +use 5.006; + +use ExtUtils::MakeMaker; + +my %WriteMakefileArgs = ( + "ABSTRACT" => "Test for warnings and the lack of them", + "AUTHOR" => "Karen Etheridge ", + "CONFIGURE_REQUIRES" => { + "ExtUtils::MakeMaker" => 0 + }, + "DISTNAME" => "Test-Warnings", + "LICENSE" => "perl", + "MIN_PERL_VERSION" => "5.006", + "NAME" => "Test::Warnings", + "PREREQ_PM" => { + "Carp" => 0, + "Exporter" => 0, + "Test::Builder" => 0, + "parent" => 0, + "strict" => 0, + "warnings" => 0 + }, + "TEST_REQUIRES" => { + "ExtUtils::MakeMaker" => 0, + "File::Spec" => 0, + "Test::More" => "0.94", + "if" => 0 + }, + "VERSION" => "0.026", + "test" => { + "TESTS" => "t/*.t" + } +); + + +my %FallbackPrereqs = ( + "Carp" => 0, + "Exporter" => 0, + "ExtUtils::MakeMaker" => 0, + "File::Spec" => 0, + "Test::Builder" => 0, + "Test::More" => "0.94", + "if" => 0, + "parent" => 0, + "strict" => 0, + "warnings" => 0 +); + + +unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) { + delete $WriteMakefileArgs{TEST_REQUIRES}; + delete $WriteMakefileArgs{BUILD_REQUIRES}; + $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs; +} + +delete $WriteMakefileArgs{CONFIGURE_REQUIRES} + unless eval { ExtUtils::MakeMaker->VERSION(6.52) }; + +WriteMakefile(%WriteMakefileArgs); diff --git a/README b/README new file mode 100644 index 0000000..b2404c8 --- /dev/null +++ b/README @@ -0,0 +1,15 @@ + + +This archive contains the distribution Test-Warnings, +version 0.026: + + Test for warnings and the lack of them + +This software is copyright (c) 2013 by Karen Etheridge. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + + +This README file was generated by Dist::Zilla::Plugin::Readme v5.043. + diff --git a/dist.ini b/dist.ini new file mode 100644 index 0000000..fb3a9da --- /dev/null +++ b/dist.ini @@ -0,0 +1,68 @@ +name = Test-Warnings +author = Karen Etheridge +copyright_holder = Karen Etheridge +copyright_year = 2013 +license = Perl_5 + +[FileFinder::Filter / all_files_but_SilenceStderr] +finder = :TestFiles +skip = t/lib/SilenceStderr.pm + +[@Author::ETHER] +:version = 0.103 +installer = MakeMaker ; stay 5.6-friendly +Git::GatherDir.exclude_filename[] = blog_20130309.md +Test::MinimumVersion.max_target_perl = 5.006 +MinimumPerl.test_finder = all_files_but_SilenceStderr +; we have our own patched version of these tests, +; to work around Test::Warnings adding an END check +-remove = PodCoverageTests +-remove = Test::UnusedVars + +[OnlyCorePrereqs] +:version = 0.013 +starting_version = 5.006 ; warnings +check_dual_life_versions = 0 + +[Prereqs::Soften] +module = Test::Tester + +[MetaResources] +x_IRC = irc://irc.perl.org/#perl-qa +x_MailingList = http://lists.perl.org/list/perl-qa.html + +; TODO: use an xt filefinder with [AutoPrereqs] +[Prereqs / DevelopRequires] +Test::Deep = 0 +Test::NoWarnings = 0 + +[Breaks] +File::pushd = < 1.004 + +[Test::CheckBreaks] +:version = 0.015 +no_forced_deps = 1 + +; copy the (passing) example scripts into xt for additional test coverage +[GenerateFile / synopsis_1] +filename = xt/author/examples_synopsis_1.t +content_is_template = 1 +content = # generated from examples/synopsis_1.t +content = {{ use Path::Tiny; path('examples/synopsis_1.t')->slurp_raw; }} + +[GenerateFile / synopsis_2] +filename = xt/author/examples_synopsis_2.t +content_is_template = 1 +content = # generated from examples/synopsis_2.t +content = {{ use Path::Tiny; path('examples/synopsis_2.t')->slurp_raw; }} + +[GenerateFile / test_warning_contents] +filename = xt/author/examples_test_warning_contents.t +content_is_template = 1 +content = # generated from examples/test_warning_contents.t +content = {{ use Path::Tiny; path('examples/test_warning_contents.t')->slurp_raw; }} + +; TODO: make this an option of [Test::MinimumVersion] +[Substitute] +file = xt/release/minimum-version.t +code = s/^(all_minimum_version_ok\([^)]+)(\s*\);)/$1, { skip => ["t\/lib\/SilenceStderr.pm"] }$2/ diff --git a/examples/no_plan.t b/examples/no_plan.t new file mode 100644 index 0000000..e0cd97d --- /dev/null +++ b/examples/no_plan.t @@ -0,0 +1,27 @@ +use strict; +use warnings; + +use Test::More; +use Test::Warnings ':all'; + +is(1, 1, 'passing test'); + +had_no_warnings; + +ok(!allowing_warnings, 'warnings are not currently allowed'); + +allow_warnings; +ok(allowing_warnings, 'warnings are now allowed'); + +warn 'this warning will not cause a failure'; +had_no_warnings; + +allow_warnings(0); +ok(!allowing_warnings, 'warnings are not allowed again'); +warn 'oh noes, something warned!'; + +# this will now fail. +had_no_warnings; + +# had_no_warnings will be called automatically from END +# done_testing not called... will cause a test failure diff --git a/examples/sub.t b/examples/sub.t new file mode 100644 index 0000000..89e5a4e --- /dev/null +++ b/examples/sub.t @@ -0,0 +1,20 @@ +use strict; +use warnings; + +use Test::More tests => 4; +use Test::Warnings ':all'; + +sub foo +{ + is(1, 1, 'passing test'); + + had_no_warnings; + + warn 'this warning will cause a failure'; + + had_no_warnings; # failing test +} + +foo; + +# END will generate a failing test too diff --git a/examples/synopsis_1.t b/examples/synopsis_1.t new file mode 100644 index 0000000..381492f --- /dev/null +++ b/examples/synopsis_1.t @@ -0,0 +1,11 @@ +use strict; +use warnings; + +# this test demonstrates that Test::Warnings can play nicely with +# Test::More::done_testing + +use Test::More; +use Test::Warnings; + +pass('yay!'); +done_testing; diff --git a/examples/synopsis_2.t b/examples/synopsis_2.t new file mode 100644 index 0000000..37c3954 --- /dev/null +++ b/examples/synopsis_2.t @@ -0,0 +1,12 @@ +use strict; +use warnings; + +# this test demonstrates that we can capture warnings and test its contents, +# and that captured warning will not fail the had-no-warnings test which is +# added at the end + +use Test::More tests => 3; +use Test::Warnings ':all'; + +pass('yay!'); +like(warning { warn "oh noes!" }, qr/^oh noes/, 'we warned'); diff --git a/examples/test_nowarnings.t b/examples/test_nowarnings.t new file mode 100644 index 0000000..e343142 --- /dev/null +++ b/examples/test_nowarnings.t @@ -0,0 +1,9 @@ +use strict; +use warnings; + +use Test::More; +use Test::NoWarnings 1.04 ':early'; + +pass('yay!'); +done_testing; + diff --git a/examples/test_warning_contents.t b/examples/test_warning_contents.t new file mode 100644 index 0000000..5798ca3 --- /dev/null +++ b/examples/test_warning_contents.t @@ -0,0 +1,31 @@ +use strict; +use warnings; + +# this test demonstrates that warnings can be captured and tested, and other +# expected warnings can be whitelisted, to allow the had-no-warnings test not +# to fail + +use Test::More tests => 2; +use Test::Warnings ':all'; +use Test::Deep; + +my @lines; +my @warnings = warnings { + warn 'testing 1 2 3'; push @lines, __LINE__; + warn 'another warning'; push @lines, __LINE__; +}; + +my $file = __FILE__; +cmp_deeply( + \@warnings, + [ + "testing 1 2 3 at $file line $lines[0].\n", + "another warning at $file line $lines[1].\n", + ], + 'successfully captured all warnings', +); + +# make these warnings visible +allow_warnings; +warn $_ foreach @warnings; +allow_warnings(0); diff --git a/examples/warning_like.t b/examples/warning_like.t new file mode 100644 index 0000000..4c9e605 --- /dev/null +++ b/examples/warning_like.t @@ -0,0 +1,27 @@ +use strict; +use warnings; + +# this test demonstrates the issue described in the main documentation, where +# a test of the contents of a captured warning can inadvertently match another +# part of the stack trace (the pattern argument to the test sub, itself!) + +use Test::More; +use Test::Warnings ':all'; +use Carp 'cluck'; + +sub warning_like(&$;$) +{ + my ($code, $pattern, $name) = @_; + like( &warning($code), $pattern, $name ); +} + +warning_like(sub { cluck 'blah blah' }, qr/foo/, 'foo seems to appear in the warning'); + +# the test only passes when we invert it +unlike( + ( warning { cluck 'blah blah' } || '' ), + qr/foo/, + 'foo does NOT ACTUALLY appear in the warning', +); + +done_testing; diff --git a/examples/with_done_testing.t b/examples/with_done_testing.t new file mode 100644 index 0000000..8298801 --- /dev/null +++ b/examples/with_done_testing.t @@ -0,0 +1,31 @@ +use strict; +use warnings; + +# another demonstration of the various features of Test::Warnings, where +# Test::More::done_testing is used + +use Test::More; +use Test::Warnings ':all'; + +is(1, 1, 'passing test'); + +had_no_warnings; + +ok(!allowing_warnings, 'warnings are not currently allowed'); + +allow_warnings; +ok(allowing_warnings, 'warnings are now allowed'); + +warn 'this warning will not cause a failure'; +had_no_warnings; + +allow_warnings(0); +ok(!allowing_warnings, 'warnings are not allowed again'); +warn 'oh noes, something warned!'; + +# this will now fail. +had_no_warnings; + +note 'we are done; call done_testing to signal completion. had_no_warnings will be called automatically.'; + +done_testing; diff --git a/examples/with_plan.t b/examples/with_plan.t new file mode 100644 index 0000000..cbcfe1e --- /dev/null +++ b/examples/with_plan.t @@ -0,0 +1,29 @@ +use strict; +use warnings; + +# another demonstration of the various features of Test::Warnings, where +# a test plan is used + +use Test::More tests => 8; +use Test::Warnings ':all'; + +is(1, 1, 'passing test'); + +had_no_warnings; + +ok(!allowing_warnings, 'warnings are not currently allowed'); + +allow_warnings; +ok(allowing_warnings, 'warnings are now allowed'); + +warn 'this warning will not cause a failure'; +had_no_warnings; + +allow_warnings(0); +ok(!allowing_warnings, 'warnings are not allowed again'); +warn 'oh noes, something warned!'; + +# this will now fail. +had_no_warnings; + +note 'we are done; had_no_warnings will be called automatically via END block.'; diff --git a/lib/Test/Warnings.pm b/lib/Test/Warnings.pm new file mode 100644 index 0000000..ebef6aa --- /dev/null +++ b/lib/Test/Warnings.pm @@ -0,0 +1,452 @@ +use strict; +use warnings; +package Test::Warnings; # git description: v0.025-4-g6413c0f +# ABSTRACT: Test for warnings and the lack of them +# KEYWORDS: testing tests warnings +# vim: set ts=8 sts=4 sw=4 tw=115 et : + +our $VERSION = '0.026'; + +use parent 'Exporter'; +use Test::Builder; + +our @EXPORT_OK = qw( + allow_warnings allowing_warnings + had_no_warnings + warnings warning +); +our %EXPORT_TAGS = ( all => \@EXPORT_OK ); + +my $warnings_allowed; +my $forbidden_warnings_found; +my $done_testing_called; +my $no_end_test; + +sub import +{ + # END block will check for this status + my @symbols = grep { $_ ne ':no_end_test' } @_; + $no_end_test = (@symbols != @_); + + __PACKAGE__->export_to_level(1, @symbols); +} + +# for testing this module only! +my $tb; +sub _builder(;$) +{ + if (not @_) + { + $tb ||= Test::Builder->new; + return $tb; + } + + $tb = shift; +} + +my $_orig_warn_handler = $SIG{__WARN__}; +$SIG{__WARN__} = sub { + if ($warnings_allowed) + { + Test::Builder->new->note($_[0]); + } + else + { + $forbidden_warnings_found++; + + # TODO: this doesn't handle blessed coderefs... does anyone care? + goto &$_orig_warn_handler if $_orig_warn_handler + and ( (ref $_orig_warn_handler eq 'CODE') + or ($_orig_warn_handler ne 'DEFAULT' + and $_orig_warn_handler ne 'IGNORE' + and defined &$_orig_warn_handler)); + + if ($_[0] =~ /\n$/) { + warn $_[0]; + } else { + require Carp; + Carp::carp($_[0]); + } + } +}; + +sub warnings(&) +{ + my $code = shift; + my @warnings; + local $SIG{__WARN__} = sub { + push @warnings, shift; + }; + $code->(); + @warnings; +} + +sub warning(&) +{ + my @warnings = &warnings(@_); + return @warnings == 1 ? $warnings[0] : \@warnings; +} + +if (Test::Builder->can('done_testing')) +{ + # monkeypatch Test::Builder::done_testing: + # check for any forbidden warnings, and record that we have done so + # so we do not check again via END + + no strict 'refs'; + my $orig = *{'Test::Builder::done_testing'}{CODE}; + no warnings 'redefine'; + *{'Test::Builder::done_testing'} = sub { + # only do this at the end of all tests, not at the end of a subtest + my $builder = _builder; + my $in_subtest_sub = $builder->can('in_subtest'); + if (not $no_end_test + and not ($in_subtest_sub ? $builder->$in_subtest_sub : $builder->parent)) + { + local $Test::Builder::Level = $Test::Builder::Level + 3; + had_no_warnings('no (unexpected) warnings (via done_testing)'); + $done_testing_called = 1; + } + + $orig->(@_); + }; +} + +END { + if (not $no_end_test + and not $done_testing_called + # skip this if there is no plan and no tests have been run (e.g. + # compilation tests of this module!) + and (_builder->expected_tests or _builder->current_test > 0) + ) + { + local $Test::Builder::Level = $Test::Builder::Level + 1; + had_no_warnings('no (unexpected) warnings (via END block)'); + } +} + +# setter +sub allow_warnings(;$) +{ + $warnings_allowed = @_ || defined $_[0] ? $_[0] : 1; +} + +# getter +sub allowing_warnings() { $warnings_allowed } + +# call at any time to assert no (unexpected) warnings so far +sub had_no_warnings(;$) +{ + _builder->ok(!$forbidden_warnings_found, shift || 'no (unexpected) warnings'); +} + +1; + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +Test::Warnings - Test for warnings and the lack of them + +=head1 VERSION + +version 0.026 + +=head1 SYNOPSIS + + use Test::More; + use Test::Warnings; + + pass('yay!'); + done_testing; + +emits TAP: + + ok 1 - yay! + ok 2 - no (unexpected) warnings (via done_testing) + 1..2 + +and: + + use Test::More tests => 3; + use Test::Warnings 0.005 ':all'; + + pass('yay!'); + like(warning { warn "oh noes!" }, qr/^oh noes/, 'we warned'); + +emits TAP: + + ok 1 - yay! + ok 2 - we warned + ok 3 - no (unexpected) warnings (via END block) + 1..3 + +=head1 DESCRIPTION + +If you've ever tried to use L to confirm there are no warnings +generated by your tests, combined with the convenience of C to +not have to declare a +L, +you'll have discovered that these two features do not play well together, +as the test count will be calculated I the warnings test is run, +resulting in a TAP error. (See C in this +distribution for a demonstration.) + +This module is intended to be used as a drop-in replacement for +L: it also adds an extra test, but runs this test I +C calculates the test count, rather than after. It does this by +hooking into C as well as via an C block. You can declare +a plan, or not, and things will still Just Work. + +It is actually equivalent to: + + use Test::NoWarnings 1.04 ':early'; + +as warnings are still printed normally as they occur. You are safe, and +enthusiastically encouraged, to perform a global search-replace of the above +with C whether or not your tests have a plan. + +It can also be used as a replacement for L, if you wish to test +the content of expected warnings; read on to find out how. + +=head1 FUNCTIONS + +The following functions are available for import (not included by default; you +can also get all of them by importing the tag C<:all>): + +=head2 C<< allow_warnings([bool]) >> - EXPERIMENTAL - MAY BE REMOVED + +When passed a true value, or no value at all, subsequent warnings will not +result in a test failure; when passed a false value, subsequent warnings will +result in a test failure. Initial value is C. + +When warnings are allowed, any warnings will instead be emitted via +L. + +=head2 C - EXPERIMENTAL - MAY BE REMOVED + +Returns whether we are currently allowing warnings (set by C +as described above). + +=head2 C<< had_no_warnings() >> + +Tests whether there have been any warnings so far, not preceded by an +C call. It is run +automatically at the end of all tests, but can also be called manually at any +time, as often as desired. + +=head2 C<< warnings( { code } ) >> + +Given a code block, runs the block and returns a list of all the +(not previously allowed via C) warnings issued within. This +lets you test for the presence of warnings that you not only would I, +but I be issued. Testing functions are not provided; given the strings +returned, you can test these yourself using your favourite testing functions, +such as L or L. + +You can use this construct as a replacement for +L: + + is_deeply( + [ warnings { ... } ], + [ + 'warning message 1', + 'warning message 2', + ], + 'got expected warnings', + ); + +or, to replace L: + + cmp_deeply( + [ warnings { ... } ], + bag( # ordering of messages doesn't matter + re(qr/warning message 1/), + re(qr/warning message 2/), + ), + 'got expected warnings (in any order)', + ); + +Warnings generated by this code block are I propagated further. However, +since they are returned from this function with their filename and line +numbers intact, you can re-issue them yourself immediately after calling +C, if desired. + +Note that C will give you a C +subroutine in your namespace (most likely C
, if you're writing a test), +so you (or things you load) can't subsequently do C<< warnings->import >> -- +it will result in the error: "Not enough arguments for +Test::Warnings::warnings at ..., near "warnings->import"". To work around +this, either use the fully-qualified form (C) or make your +calls to the C package first. + +=head2 C<< warning( { code } ) >> + +Same as C<< warnings( { code } ) >>, except a scalar is always returned - the +single warning produced, if there was one, or an arrayref otherwise -- which +can be more convenient to use than C if you are expecting exactly +one warning. + +However, you are advised to capture the result from C into a temp +variable so you can dump its value if it doesn't contain what you expect. +e.g. with this test: + + like( + warning { foo() }, + qr/^this is a warning/, + 'got a warning from foo()', + ); + +if you get two warnings (or none) back instead of one, you'll get an +arrayref, which will result in an unhelpful test failure message like: + + # Failed test 'got a warning from foo()' + # at t/mytest.t line 10. + # 'ARRAY(0xdeadbeef)' + # doesn't match '(?^:^this is a warning)' + +So instead, change your test to: + + my $warning = warning { foo() }; + like( + $warning, + qr/^this is a warning/, + 'got a warning from foo()', + ) or diag 'got warning(s): ', explain($warning); + +=head1 IMPORT OPTIONS + +=head2 C<:all> + +Imports all functions listed above + +=head2 C<:no_end_test> + +Disables the addition of a C test +via C or C + +=head1 CAVEATS + +=for stopwords smartmatch TODO irc + +Sometimes new warnings can appear in Perl that should B block +installation -- for example, smartmatch was recently deprecated in +perl 5.17.11, so now any distribution that uses smartmatch and also +tests for warnings cannot be installed under 5.18.0. You might want to +consider only making warnings fail tests in an author environment -- you can +do this with the L pragma: + + use if $ENV{AUTHOR_TESTING} || $ENV{RELEASE_TESTING}, 'Test::Warnings'; + +In future versions of this module, when interfaces are added to test the +content of warnings, there will likely be additional sugar available to +indicate that warnings should be checked only in author tests (or TODO when +not in author testing), but will still provide exported subs. Comments are +enthusiastically solicited - drop me an email, write up an RT ticket, or come +by C<#perl-qa> on irc! + +=for stopwords Achtung + +B This is not a great idea: + + sub warning_like(&$;$) { + my ($code, $pattern, $name) = @_; + like( &warning($code), $pattern, $name ); + } + + warning_like( { ... }, qr/foo/, 'foo appears in the warning' ); + +If the code in the C<{ ... }> is going to warn with a stack trace with the +arguments to each subroutine in its call stack (for example via C), +the test name, "foo appears in the warning" will itself be matched by the +regex (see F). Instead, write this: + + like( warning { ... }, qr/foo/, 'foo appears in the warning' ); + +=head1 TO DO (or: POSSIBLE FEATURES COMING IN FUTURE RELEASES) + +=over + +=item * C<< allow_warnings(qr/.../) >> - allow some warnings and not others + +=for stopwords subtest subtests + +=item * more sophisticated handling in subtests - if we save some state on the +L object itself, we can allow warnings in a subtest and then +the state will revert when the subtest ends, as well as check for warnings at +the end of every subtest via C. + +=item * sugar for making failures TODO when testing outside an author +environment + +=back + +=head1 SEE ALSO + +=for stopwords YANWT + +=over 4 + +=item * + +L + +=item * + +L + +=item * + +L + +=item * + +L - which makes all warnings fatal in tests, hence lessening + +the need for special warning testing + +=item * + +L + +=item * + +L + +=back + +=head1 SUPPORT + +Bugs may be submitted through L +(or L). + +There is also a mailing list available for users of this distribution, at +L. + +There is also an irc channel available for users of this distribution, at +L. + +I am also usually active on irc, as 'ether' at C. + +=head1 AUTHOR + +Karen Etheridge + +=head1 CONTRIBUTOR + +=for stopwords A. Sinan Unur + +A. Sinan Unur + +=head1 COPYRIGHT AND LICENCE + +This software is copyright (c) 2013 by Karen Etheridge. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=cut diff --git a/t/00-report-prereqs.dd b/t/00-report-prereqs.dd new file mode 100644 index 0000000..d3626e6 --- /dev/null +++ b/t/00-report-prereqs.dd @@ -0,0 +1,142 @@ +do { my $x = { + 'configure' => { + 'requires' => { + 'ExtUtils::MakeMaker' => '0', + 'perl' => '5.006' + } + }, + 'develop' => { + 'recommends' => { + 'Dist::Zilla::PluginBundle::Author::ETHER' => '0.110' + }, + 'requires' => { + 'Dist::Zilla' => '5', + 'Dist::Zilla::Plugin::Authority' => '1.009', + 'Dist::Zilla::Plugin::AuthorityFromModule' => '0.002', + 'Dist::Zilla::Plugin::AutoMetaResources' => '0', + 'Dist::Zilla::Plugin::AutoPrereqs' => '5.038', + 'Dist::Zilla::Plugin::Breaks' => '0', + 'Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional' => '0.004', + 'Dist::Zilla::Plugin::CheckIssues' => '0', + 'Dist::Zilla::Plugin::CheckPrereqsIndexed' => '0', + 'Dist::Zilla::Plugin::CheckSelfDependency' => '0', + 'Dist::Zilla::Plugin::CheckStrictVersion' => '0', + 'Dist::Zilla::Plugin::ConfirmRelease' => '0', + 'Dist::Zilla::Plugin::CopyFilesFromRelease' => '0', + 'Dist::Zilla::Plugin::FileFinder::ByName' => '0', + 'Dist::Zilla::Plugin::FileFinder::Filter' => '0', + 'Dist::Zilla::Plugin::GenerateFile' => '0', + 'Dist::Zilla::Plugin::GenerateFile::FromShareDir' => '0', + 'Dist::Zilla::Plugin::Git::Check' => '0', + 'Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch' => '0.004', + 'Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts' => '0', + 'Dist::Zilla::Plugin::Git::Commit' => '2.020', + 'Dist::Zilla::Plugin::Git::Contributors' => '0.004', + 'Dist::Zilla::Plugin::Git::Describe' => '0.004', + 'Dist::Zilla::Plugin::Git::GatherDir' => '2.016', + 'Dist::Zilla::Plugin::Git::Push' => '0', + 'Dist::Zilla::Plugin::Git::Remote::Check' => '0', + 'Dist::Zilla::Plugin::Git::Tag' => '0', + 'Dist::Zilla::Plugin::GitHub::Update' => '0.40', + 'Dist::Zilla::Plugin::GithubMeta' => '0.54', + 'Dist::Zilla::Plugin::InstallGuide' => '1.200005', + 'Dist::Zilla::Plugin::Keywords' => '0.004', + 'Dist::Zilla::Plugin::License' => '5.038', + 'Dist::Zilla::Plugin::MakeMaker' => '0', + 'Dist::Zilla::Plugin::Manifest' => '0', + 'Dist::Zilla::Plugin::MetaConfig' => '0', + 'Dist::Zilla::Plugin::MetaJSON' => '0', + 'Dist::Zilla::Plugin::MetaNoIndex' => '0', + 'Dist::Zilla::Plugin::MetaProvides::Package' => '1.15000002', + 'Dist::Zilla::Plugin::MetaResources' => '0', + 'Dist::Zilla::Plugin::MetaTests' => '0', + 'Dist::Zilla::Plugin::MetaYAML' => '0', + 'Dist::Zilla::Plugin::MinimumPerl' => '1.006', + 'Dist::Zilla::Plugin::MojibakeTests' => '0.8', + 'Dist::Zilla::Plugin::NextRelease' => '5.033', + 'Dist::Zilla::Plugin::OnlyCorePrereqs' => '0.013', + 'Dist::Zilla::Plugin::PodSyntaxTests' => '5.040', + 'Dist::Zilla::Plugin::PodWeaver' => '4.005', + 'Dist::Zilla::Plugin::Prereqs' => '0', + 'Dist::Zilla::Plugin::Prereqs::AuthorDeps' => '0', + 'Dist::Zilla::Plugin::Prereqs::Soften' => '0', + 'Dist::Zilla::Plugin::PromptIfStale' => '0', + 'Dist::Zilla::Plugin::Readme' => '0', + 'Dist::Zilla::Plugin::ReadmeAnyFromPod' => '0.142180', + 'Dist::Zilla::Plugin::RewriteVersion::Transitional' => '0.004', + 'Dist::Zilla::Plugin::Run::AfterBuild' => '0.038', + 'Dist::Zilla::Plugin::Run::AfterRelease' => '0.038', + 'Dist::Zilla::Plugin::RunExtraTests' => '0.024', + 'Dist::Zilla::Plugin::StaticInstall' => '0.005', + 'Dist::Zilla::Plugin::Substitute' => '0', + 'Dist::Zilla::Plugin::Test::CPAN::Changes' => '0.008', + 'Dist::Zilla::Plugin::Test::ChangesHasContent' => '0', + 'Dist::Zilla::Plugin::Test::CheckBreaks' => '0.015', + 'Dist::Zilla::Plugin::Test::CleanNamespaces' => '0.006', + 'Dist::Zilla::Plugin::Test::Compile' => '2.039', + 'Dist::Zilla::Plugin::Test::EOL' => '0.17', + 'Dist::Zilla::Plugin::Test::Kwalitee' => '2.10', + 'Dist::Zilla::Plugin::Test::MinimumVersion' => '2.000003', + 'Dist::Zilla::Plugin::Test::NoTabs' => '0.08', + 'Dist::Zilla::Plugin::Test::Pod::No404s' => '1.002', + 'Dist::Zilla::Plugin::Test::PodSpelling' => '2.006003', + 'Dist::Zilla::Plugin::Test::Portability' => '0', + 'Dist::Zilla::Plugin::Test::ReportPrereqs' => '0.019', + 'Dist::Zilla::Plugin::TestRelease' => '0', + 'Dist::Zilla::Plugin::UploadToCPAN' => '0', + 'Dist::Zilla::PluginBundle::Author::ETHER' => '0.103', + 'File::Spec' => '0', + 'IO::Handle' => '0', + 'IPC::Open3' => '0', + 'Pod::Coverage::TrustPod' => '0', + 'Pod::Wordlist' => '0', + 'Software::License::Perl_5' => '0', + 'Test::CPAN::Changes' => '0.19', + 'Test::CPAN::Meta' => '0', + 'Test::CleanNamespaces' => '0.15', + 'Test::Deep' => '0', + 'Test::EOL' => '0', + 'Test::Kwalitee' => '1.21', + 'Test::Mojibake' => '0', + 'Test::More' => '0.96', + 'Test::NoTabs' => '0', + 'Test::NoWarnings' => '0', + 'Test::Pod' => '1.41', + 'Test::Pod::Coverage' => '1.08', + 'Test::Pod::No404s' => '0', + 'Test::Spelling' => '0.12', + 'blib' => '1.01', + 'perl' => '5.006' + } + }, + 'runtime' => { + 'requires' => { + 'Carp' => '0', + 'Exporter' => '0', + 'Test::Builder' => '0', + 'parent' => '0', + 'perl' => '5.006', + 'strict' => '0', + 'warnings' => '0' + } + }, + 'test' => { + 'recommends' => { + 'CPAN::Meta' => '2.120900', + 'Test::Tester' => '0.108' + }, + 'requires' => { + 'ExtUtils::MakeMaker' => '0', + 'File::Spec' => '0', + 'Test::More' => '0.94', + 'if' => '0', + 'perl' => '5.006' + }, + 'suggests' => { + 'CPAN::Meta::Check' => '0.011', + 'CPAN::Meta::Requirements' => '0' + } + } + }; + $x; + } \ No newline at end of file diff --git a/t/00-report-prereqs.t b/t/00-report-prereqs.t new file mode 100644 index 0000000..d8d15ba --- /dev/null +++ b/t/00-report-prereqs.t @@ -0,0 +1,183 @@ +#!perl + +use strict; +use warnings; + +# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.021 + +use Test::More tests => 1; + +use ExtUtils::MakeMaker; +use File::Spec; + +# from $version::LAX +my $lax_version_re = + qr/(?: undef | (?: (?:[0-9]+) (?: \. | (?:\.[0-9]+) (?:_[0-9]+)? )? + | + (?:\.[0-9]+) (?:_[0-9]+)? + ) | (?: + v (?:[0-9]+) (?: (?:\.[0-9]+)+ (?:_[0-9]+)? )? + | + (?:[0-9]+)? (?:\.[0-9]+){2,} (?:_[0-9]+)? + ) + )/x; + +# hide optional CPAN::Meta modules from prereq scanner +# and check if they are available +my $cpan_meta = "CPAN::Meta"; +my $cpan_meta_pre = "CPAN::Meta::Prereqs"; +my $HAS_CPAN_META = eval "require $cpan_meta; $cpan_meta->VERSION('2.120900')" && eval "require $cpan_meta_pre"; ## no critic + +# Verify requirements? +my $DO_VERIFY_PREREQS = 1; + +sub _max { + my $max = shift; + $max = ( $_ > $max ) ? $_ : $max for @_; + return $max; +} + +sub _merge_prereqs { + my ($collector, $prereqs) = @_; + + # CPAN::Meta::Prereqs object + if (ref $collector eq $cpan_meta_pre) { + return $collector->with_merged_prereqs( + CPAN::Meta::Prereqs->new( $prereqs ) + ); + } + + # Raw hashrefs + for my $phase ( keys %$prereqs ) { + for my $type ( keys %{ $prereqs->{$phase} } ) { + for my $module ( keys %{ $prereqs->{$phase}{$type} } ) { + $collector->{$phase}{$type}{$module} = $prereqs->{$phase}{$type}{$module}; + } + } + } + + return $collector; +} + +my @include = qw( + +); + +my @exclude = qw( + +); + +# Add static prereqs to the included modules list +my $static_prereqs = do 't/00-report-prereqs.dd'; + +# Merge all prereqs (either with ::Prereqs or a hashref) +my $full_prereqs = _merge_prereqs( + ( $HAS_CPAN_META ? $cpan_meta_pre->new : {} ), + $static_prereqs +); + +# Add dynamic prereqs to the included modules list (if we can) +my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml'; +if ( $source && $HAS_CPAN_META ) { + if ( my $meta = eval { CPAN::Meta->load_file($source) } ) { + $full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs); + } +} +else { + $source = 'static metadata'; +} + +my @full_reports; +my @dep_errors; +my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs; + +# Add static includes into a fake section +for my $mod (@include) { + $req_hash->{other}{modules}{$mod} = 0; +} + +for my $phase ( qw(configure build test runtime develop other) ) { + next unless $req_hash->{$phase}; + next if ($phase eq 'develop' and not $ENV{AUTHOR_TESTING}); + + for my $type ( qw(requires recommends suggests conflicts modules) ) { + next unless $req_hash->{$phase}{$type}; + + my $title = ucfirst($phase).' '.ucfirst($type); + my @reports = [qw/Module Want Have/]; + + for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) { + next if $mod eq 'perl'; + next if grep { $_ eq $mod } @exclude; + + my $file = $mod; + $file =~ s{::}{/}g; + $file .= ".pm"; + my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC; + + my $want = $req_hash->{$phase}{$type}{$mod}; + $want = "undef" unless defined $want; + $want = "any" if !$want && $want == 0; + + my $req_string = $want eq 'any' ? 'any version required' : "version '$want' required"; + + if ($prefix) { + my $have = MM->parse_version( File::Spec->catfile($prefix, $file) ); + $have = "undef" unless defined $have; + push @reports, [$mod, $want, $have]; + + if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) { + if ( $have !~ /\A$lax_version_re\z/ ) { + push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)"; + } + elsif ( ! $full_prereqs->requirements_for( $phase, $type )->accepts_module( $mod => $have ) ) { + push @dep_errors, "$mod version '$have' is not in required range '$want'"; + } + } + } + else { + push @reports, [$mod, $want, "missing"]; + + if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) { + push @dep_errors, "$mod is not installed ($req_string)"; + } + } + } + + if ( @reports ) { + push @full_reports, "=== $title ===\n\n"; + + my $ml = _max( map { length $_->[0] } @reports ); + my $wl = _max( map { length $_->[1] } @reports ); + my $hl = _max( map { length $_->[2] } @reports ); + + if ($type eq 'modules') { + splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl]; + push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports; + } + else { + splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl]; + push @full_reports, map { sprintf(" %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports; + } + + push @full_reports, "\n"; + } + } +} + +if ( @full_reports ) { + diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports; +} + +if ( @dep_errors ) { + diag join("\n", + "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n", + "The following REQUIRED prerequisites were not satisfied:\n", + @dep_errors, + "\n" + ); +} + +pass; + +# vim: ts=4 sts=4 sw=4 et: diff --git a/t/01-basic.t b/t/01-basic.t new file mode 100644 index 0000000..0df2f5a --- /dev/null +++ b/t/01-basic.t @@ -0,0 +1,76 @@ +use strict; +use warnings; + +my $has_test_tester; +BEGIN { $has_test_tester = eval { require Test::Tester; Test::Tester->VERSION(0.108); 1 } } + +use Test::More 0.88; +plan skip_all => 'These tests require Test::Tester 0.108' if not $has_test_tester; + +plan tests => 19; # avoid our done_testing hook + +# define our END block first, so it is run last (after TW's END) +END { + final_tests() if $has_test_tester; +} + +use Test::Warnings ':all'; +use if "$]" >= '5.008', lib => 't/lib'; +use if "$]" >= '5.008', 'SilenceStderr'; + +# we swap out our $tb for Test::Tester's, so we can also test the results +# of the END block... (although not all methods are supported!) +Test::Warnings::_builder(my $capture = Test::Tester::capture()); + +allow_warnings; +ok(allowing_warnings, 'warnings are now allowed'); +warn 'this warning will not cause a failure'; +had_no_warnings; # TEST 1 + +allow_warnings(0); +ok(!allowing_warnings, 'warnings are not allowed again'); +warn 'this warning is not expected to be caught'; + +allow_warnings(undef); +ok(!allowing_warnings, 'warnings are still not allowed'); + +had_no_warnings('no warnings, with a custom name'); # TEST 2 + +# now we "END"... + +# this is run in the END block +sub final_tests +{ + my @tests = $capture->details; + Test::Tester::cmp_results( + \@tests, + [ + { # TEST 1 + actual_ok => 1, + ok => 1, + name => 'no (unexpected) warnings', + type => '', + diag => '', + depth => undef, # not testable in END blocks + }, + { # TEST 2 + actual_ok => 0, + ok => 0, + name => 'no warnings, with a custom name', + type => '', + diag => '', + depth => undef, # not testable in END blocks + }, + + { # END + actual_ok => 0, + ok => 0, + name => 'no (unexpected) warnings (via END block)', + type => '', + diag => '', + depth => undef, # not testable in END blocks + }, + ], + 'all functionality ok, checking warnings via END block', + ); +} diff --git a/t/02-done_testing.t b/t/02-done_testing.t new file mode 100644 index 0000000..03354e5 --- /dev/null +++ b/t/02-done_testing.t @@ -0,0 +1,32 @@ +use strict; +use warnings; + +use Test::More 0.88; +use Test::Warnings; + +# testing our alteration of done_testing is a bit tricky, as (duh) once we've +# called done_testing, we're done and cannot emit any further TAP. Therefore, +# I'll do post-done_testing tests simply by diagnostics and via the exit code, +# which should be enough for cpantesters to generate a failure report. + +pass('a passing test'); + +my $tb = Test::Builder->new; + +is($tb->current_test, 1, 'we have had one test so far'); + +# now our test count is 2 + +done_testing; + +# now our test count should be 3, and we cannot call any more test functions + +my $tests = $tb->current_test; +if ($tests != 3) +{ + note 'test count not ok - is ' . $tests . ', should be 3!'; + exit 1; +} + +note 'test count ok!'; + diff --git a/t/03-subtest.t b/t/03-subtest.t new file mode 100644 index 0000000..e139921 --- /dev/null +++ b/t/03-subtest.t @@ -0,0 +1,33 @@ +use strict; +use warnings; + +use Test::More 0.94; +use Test::Warnings ':all'; + +is(1, 1, 'passing test'); + +my $had_no_warnings_called; + +{ + no strict 'refs'; + my $orig = *{'Test::Warnings::had_no_warnings'}{CODE}; + no warnings 'redefine'; + *{'Test::Warnings::had_no_warnings'} = sub(;$) { + $had_no_warnings_called++; + $orig->(@_); + }; +} + +subtest 'here is a subtest' => sub { + pass('another passing test'); + # no test is added via the done_testing here + done_testing; +}; + +ok(!$had_no_warnings_called, 'had_no_warnings was not called via the subtest\'s done_testing'); + +done_testing; + +# we are done testing, so we need to signal our status via exit codes. +exit($had_no_warnings_called ? 0 : 1); + diff --git a/t/04-no-tests.t b/t/04-no-tests.t new file mode 100644 index 0000000..ee3c6b2 --- /dev/null +++ b/t/04-no-tests.t @@ -0,0 +1,19 @@ +use strict; +use warnings; + +use Test::More 0.88; + +# if all we do is load Test::Warnings and exit, we should not add a test at END +# time. For one thing, this lets this distribution generate a compilation test +# without trying to run a plan-less test. + +# last in, first out: Test::Warnings's END will run after this one +END { + is(Test::Builder->new->current_test, 0, 'no tests run during END'); + + # might as well throw this in for good measure ;) + done_testing; +} + +use Test::Warnings; + diff --git a/t/05-no-end-block.t b/t/05-no-end-block.t new file mode 100644 index 0000000..53e427a --- /dev/null +++ b/t/05-no-end-block.t @@ -0,0 +1,23 @@ +use strict; +use warnings; + +use Test::More tests => 1; # avoid our done_testing hook + +END { + final_tests(); +} + +use Test::Warnings ':no_end_test'; +use if "$]" >= '5.008', lib => 't/lib'; +use if "$]" >= '5.008', 'SilenceStderr'; + +warn 'this warning is not expected to be caught'; + +pass 'a passing test, to keep the harness happy'; + +# this is run in the END block +sub final_tests +{ + # if there was anything else than 1 test run, then we will fail + exit (Test::Builder->new->current_test <=> 1); +} diff --git a/t/06-skip-all.t b/t/06-skip-all.t new file mode 100644 index 0000000..0f7f862 --- /dev/null +++ b/t/06-skip-all.t @@ -0,0 +1,11 @@ +use strict; +use warnings; + +use Test::More; +use Test::Warnings ':all'; + +eval 'use Foo::Bar::Baz'; +plan skip_all => 'Need Foo::Bar::Baz to continue!' if $@; + +fail('we should not ever get here'); + diff --git a/t/07-no_plan.t b/t/07-no_plan.t new file mode 100644 index 0000000..2595540 --- /dev/null +++ b/t/07-no_plan.t @@ -0,0 +1,34 @@ +use strict; +use warnings; + +# we intended to insert a test at END time whenever: +# - done_testing has not been run, +# - AND ':no_end_test' is not imported, +# - AND EITHER at least one test has been run, OR there was a plan. + +# before v0.003, these last two conditions were also ANDed, so we +# never got a test added when we were running tests without a plan +# and terminated without done_testing (such as terminating a forked +# process). + +use Test::More 'no_plan'; + +# define our END block first, so it is run last (after TW's END) +END { + final_tests(); +} + +use Test::Warnings; + +pass('this is a passing test'); + +# now we "END"... + +sub final_tests +{ + is( + Test::Builder->new->current_test, 2, + 'two tests have been run (the pass, and our no-warnings-via-END test)', + ); +} + diff --git a/t/08-use-if.t b/t/08-use-if.t new file mode 100644 index 0000000..0f370d6 --- /dev/null +++ b/t/08-use-if.t @@ -0,0 +1,16 @@ +use strict; +use warnings; + +use Test::More 0.88; + +pass 'here is a passing test, to keep plan happy'; + +BEGIN { $ENV{FOO} = $ENV{BAR} = 0 }; +use if $ENV{FOO} || $ENV{BAR}, 'Test::Warnings'; + +use if "$]" >= '5.008', lib => 't/lib'; +use if "$]" >= '5.008', 'SilenceStderr'; + +warn 'this is not a fatal warning, because Test::Warnings is not loaded'; + +done_testing; diff --git a/t/09-warnings-contents.t b/t/09-warnings-contents.t new file mode 100644 index 0000000..4671ae7 --- /dev/null +++ b/t/09-warnings-contents.t @@ -0,0 +1,89 @@ +use strict; +use warnings; + +use Test::More 0.88; +use Test::Warnings ':all'; + +{ + my @lines; + my @warnings = warnings { + warn 'testing 1 2 3'; push @lines, __LINE__; + }; + + my $file = __FILE__; + is_deeply( + \@warnings, + [ + "testing 1 2 3 at $file line $lines[0].\n", + ], + 'warnings() successfully captured the warning', + ); + + my $warning = warning { + warn 'testing 1 2 3'; push @lines, __LINE__; + }; + is( + $warning, + "testing 1 2 3 at $file line $lines[1].\n", + 'warning() successfully the warning as a string', + ); +} + +{ + my @lines; + my @warnings = warnings { + warn 'testing 1 2 3'; push @lines, __LINE__; + warn 'another warning'; push @lines, __LINE__; + }; + + my $file = __FILE__; + is_deeply( + \@warnings, + [ + "testing 1 2 3 at $file line $lines[0].\n", + "another warning at $file line $lines[1].\n", + ], + 'warnings() successfully captured all warnings', + ); + + my $warning = warning { + warn 'testing 1 2 3'; push @lines, __LINE__; + warn 'another warning'; push @lines, __LINE__; + }; + is_deeply( + $warning, + [ + "testing 1 2 3 at $file line $lines[2].\n", + "another warning at $file line $lines[3].\n", + ], + 'warning() successfully captured all warnings as a scalar ref', + ); +} + +{ + my @warnings = warnings { + note 'no warning here'; + note 'nor here'; + }; + + is_deeply( + \@warnings, + [ ], + 'warnings() successfully captured all warnings (none!)', + ); + + my $warning = warning { + note 'no warning here'; + note 'nor here'; + }; + + is_deeply( + $warning, + [ ], + 'warning() successfully captured all warnings (none!)', + ); + + is(@$warning, 0, 'warning() reports zero warnings caught'); +} + +done_testing; diff --git a/t/10-no-done_testing.t b/t/10-no-done_testing.t new file mode 100644 index 0000000..1c0d65d --- /dev/null +++ b/t/10-no-done_testing.t @@ -0,0 +1,25 @@ +use strict; +use warnings; + +use Test::More 0.88; + +END { + final_tests(); +} + +use Test::Warnings ':no_end_test'; +use if "$]" >= '5.008', lib => 't/lib'; +use if "$]" >= '5.008', 'SilenceStderr'; + +warn 'this warning is not expected to be caught'; + +pass 'a passing test to keep done_testing happy'; + +done_testing; + +# this is run in the END block +sub final_tests +{ + # if there was anything else than 1 test run, then we will fail + exit (Test::Builder->new->current_test <=> 1); +} diff --git a/t/11-double-use.t b/t/11-double-use.t new file mode 100644 index 0000000..3a82605 --- /dev/null +++ b/t/11-double-use.t @@ -0,0 +1,24 @@ +use strict; +use warnings; + +use Test::More tests => 1; + +END { + final_tests(); +} + +use Test::Warnings 'warning'; # should not add an END test +use Test::Warnings ':no_end_test'; +use if "$]" >= '5.008', lib => 't/lib'; +use if "$]" >= '5.008', 'SilenceStderr'; + +warn 'this warning is not expected to be caught'; + +like(warning { warn 'ohhai' }, qr/^ohhai/, 'warning() was imported'); + +# this is run in the END block +sub final_tests +{ + # if there was anything else than 1 test run, then we will fail + exit (Test::Builder->new->current_test <=> 1); +} diff --git a/t/12-no-newline.t b/t/12-no-newline.t new file mode 100644 index 0000000..977a841 --- /dev/null +++ b/t/12-no-newline.t @@ -0,0 +1,30 @@ +use strict; +use warnings; + +use Test::More 0.88; +use Test::Warnings ':no_end_test', 'warnings'; + +{ + my ($line, $file); + + my @warnings = warnings { warn "a normal warning"; $line = __LINE__; $file = __FILE__ }; + like( + $warnings[0], + qr/^a normal warning at \Q$file\E line $line\.?\n$/, + 'test the appearance of a normal warning', + ); +} + +{ + my ($line, $file); + my $original_handler = $SIG{__WARN__}; + + my @warnings = warnings { $original_handler->('a warning with no newline'); $line = __LINE__; $file = __FILE__ }; + like( + $warnings[0], + qr/^a warning with no newline at \Q$file\E line $line\.?\n$/, + 'warning has origin properly added when it was lacking', + ); +} + +done_testing; diff --git a/t/13-propagate-warnings.t b/t/13-propagate-warnings.t new file mode 100644 index 0000000..3e4631d --- /dev/null +++ b/t/13-propagate-warnings.t @@ -0,0 +1,38 @@ +use strict; +use warnings; + +use Test::More 0.88; + +my @warnings; +BEGIN { + $SIG{__WARN__} = sub { + note 'original warn handler captured a warning: ', $_[0]; + push @warnings, $_[0] + }; +} + +use Test::Warnings qw(:all :no_end_test); + +warn 'hello this is a warning'; my $file = __FILE__; my $line = __LINE__; + +is(@warnings, 1, 'got one warning propagated') + && +is( + $warnings[0], + "hello this is a warning at $file line $line.\n", + '..and it is the warning we just issued, with original location intact', +) + || +diag 'warnings propagated to original handler: ', explain \@warnings; + +SKIP: { + skip 'PadWalker required for this test', 1 + if not eval 'require PadWalker'; + is( + ${ PadWalker::closed_over(\&Test::Warnings::had_no_warnings)->{'$forbidden_warnings_found'} }, + 1, + 'Test::Warnings also saw the warning go by', + ); +} + +done_testing; diff --git a/t/14-propagate-subname.t b/t/14-propagate-subname.t new file mode 100644 index 0000000..04b7dc2 --- /dev/null +++ b/t/14-propagate-subname.t @@ -0,0 +1,40 @@ +use strict; +use warnings; + +use Test::More 0.88; + +my @warnings; +sub warning_capturer { + note 'original warn handler captured a warning: ', $_[0]; + push @warnings, $_[0] +} + +BEGIN { + $SIG{__WARN__} = 'warning_capturer'; +} + +use Test::Warnings qw(:all :no_end_test); + +warn 'hello this is a warning'; my $file = __FILE__; my $line = __LINE__; + +is(@warnings, 1, 'got one warning propagated') + && +is( + $warnings[0], + "hello this is a warning at $file line $line.\n", + '..and it is the warning we just issued, with original location intact', +) + || +diag 'warnings propagated to original handler: ', explain \@warnings; + +SKIP: { + skip 'PadWalker required for this test', 1 + if not eval 'require PadWalker'; + is( + ${ PadWalker::closed_over(\&Test::Warnings::had_no_warnings)->{'$forbidden_warnings_found'} }, + 1, + 'Test::Warnings also saw the warning go by', + ); +} + +done_testing; diff --git a/t/15-propagate-default.t b/t/15-propagate-default.t new file mode 100644 index 0000000..0c8673f --- /dev/null +++ b/t/15-propagate-default.t @@ -0,0 +1,30 @@ +use strict; +use warnings; + +use Test::More 0.88; + +sub DEFAULT { + die 'DEFAULT sub called; this is wrong!'; +} + +BEGIN { + $SIG{__WARN__} = 'DEFAULT'; +} + +use Test::Warnings qw(:all :no_end_test); +use if "$]" >= '5.008', lib => 't/lib'; +use if "$]" >= '5.008', 'SilenceStderr'; + +warn 'this warning is not expected to be caught'; + +SKIP: { + skip 'PadWalker required for this test', 1 + if not eval 'require PadWalker'; + is( + ${ PadWalker::closed_over(\&Test::Warnings::had_no_warnings)->{'$forbidden_warnings_found'} }, + 1, + 'Test::Warnings saw the warning, and allowed it to go by', + ); +} + +done_testing; diff --git a/t/16-propagate-ignore.t b/t/16-propagate-ignore.t new file mode 100644 index 0000000..ad6f905 --- /dev/null +++ b/t/16-propagate-ignore.t @@ -0,0 +1,30 @@ +use strict; +use warnings; + +use Test::More 0.88; + +sub IGNORE { + die 'IGNORE sub called; this is wrong!'; +} + +BEGIN { + $SIG{__WARN__} = 'IGNORE'; +} + +use Test::Warnings qw(:all :no_end_test); +use if "$]" >= '5.008', lib => 't/lib'; +use if "$]" >= '5.008', 'SilenceStderr'; + +warn 'this warning is not expected to be caught'; + +SKIP: { + skip 'PadWalker required for this test', 1 + if not eval 'require PadWalker'; + is( + ${ PadWalker::closed_over(\&Test::Warnings::had_no_warnings)->{'$forbidden_warnings_found'} }, + 1, + 'Test::Warnings saw the warning, and allowed it to go by', + ); +} + +done_testing; diff --git a/t/17-propagate-subname-colons.t b/t/17-propagate-subname-colons.t new file mode 100644 index 0000000..73da33d --- /dev/null +++ b/t/17-propagate-subname-colons.t @@ -0,0 +1,15 @@ +use strict; +use warnings; + +# checks handling of a warning handler named '::warning_capturer' + +my $code = do { + open(my $fh, 't/14-propagate-subname.t') or die "cannot open t/14-propagate-subname.t for reading: $!"; + local $/; + <$fh> +}; + +$code =~ s/\$SIG\{__WARN__\} = 'warning_capturer'/\$SIG\{__WARN__\} = '::warning_capturer'/; + +eval $code; +die $@ if $@; diff --git a/t/18-propagate-subname-package.t b/t/18-propagate-subname-package.t new file mode 100644 index 0000000..e97c5ef --- /dev/null +++ b/t/18-propagate-subname-package.t @@ -0,0 +1,16 @@ +use strict; +use warnings; + +# checks handling of a warning handler named 'MyPackage::warning_capturer' + +my $code = do { + open(my $fh, 't/14-propagate-subname.t') or die "cannot open t/14-propagate-subname.t for reading: $!"; + local $/; + <$fh> +}; + +$code =~ s/(use Test::More 0.88;)/package MyPackage;\n$1/; +$code =~ s/\$SIG\{__WARN__\} = 'warning_capturer'/\$SIG\{__WARN__\} = 'MyPackage::warning_capturer'/; + +eval $code; +die $@ if $@; diff --git a/t/19-propagate-nonexistent-subname.t b/t/19-propagate-nonexistent-subname.t new file mode 100644 index 0000000..f4814ec --- /dev/null +++ b/t/19-propagate-nonexistent-subname.t @@ -0,0 +1,27 @@ +use strict; +use warnings; + +use Test::More 0.88; + +BEGIN { + $SIG{__WARN__} = 'does_not_exist'; +} + +use Test::Warnings qw(:all :no_end_test); +use if "$]" >= '5.008', lib => 't/lib'; +use if "$]" >= '5.008', 'SilenceStderr'; + +eval { warn 'this warning is not expected to be caught' }; +is($@, '', 'non-existent sub in warning handler does not result in an exception'); + +SKIP: { + skip 'PadWalker required for this test', 1 + if not eval 'require PadWalker'; + is( + ${ PadWalker::closed_over(\&Test::Warnings::had_no_warnings)->{'$forbidden_warnings_found'} }, + 1, + 'Test::Warnings saw the warning go by', + ); +} + +done_testing; diff --git a/t/20-propagate-stub.t b/t/20-propagate-stub.t new file mode 100644 index 0000000..7a7bc19 --- /dev/null +++ b/t/20-propagate-stub.t @@ -0,0 +1,13 @@ +use strict; +use warnings; + +my $code = do { + open(my $fh, 't/19-propagate-nonexistent-subname.t') or die "cannot open t/19-propagate-nonexistent-subname.t for reading: $!"; + local $/; + <$fh> +}; + +$code =~ s/(use Test::More;)/$1\n\nsub does_not_exist;/; + +eval $code; +die $@ if $@; diff --git a/t/lib/SilenceStderr.pm b/t/lib/SilenceStderr.pm new file mode 100644 index 0000000..77b1d0c --- /dev/null +++ b/t/lib/SilenceStderr.pm @@ -0,0 +1,17 @@ +use strict; +use warnings; + +# this file is only parsable on 5.8+. + +open my $stderr_copy, '>&', STDERR; +close STDERR; +open STDERR, '>', \my $stderr + or die 'something went wrong when redirecting STDERR'; + +END { + Test::More::note 'suppressed STDERR:', $stderr if $stderr; + + close STDERR; + open STDERR, '>&', $stderr_copy + or die 'something went wrong when restoring STDERR'; +} diff --git a/t/zzz-check-breaks.t b/t/zzz-check-breaks.t new file mode 100644 index 0000000..985e2db --- /dev/null +++ b/t/zzz-check-breaks.t @@ -0,0 +1,34 @@ +use strict; +use warnings; + +# this test was generated with Dist::Zilla::Plugin::Test::CheckBreaks 0.015 + +use Test::More tests => 1; + +SKIP: { + skip 'no conflicts module found to check against', 1; +} + +SKIP: { +# this data duplicates x_breaks in META.json +my $breaks = { + "File::pushd" => "< 1.004" +}; + +skip 'This information-only test requires CPAN::Meta::Requirements', 0 + if not eval 'require CPAN::Meta::Requirements'; +skip 'This information-only test requires CPAN::Meta::Check 0.011', 0 + if not eval 'require CPAN::Meta::Check; CPAN::Meta::Check->VERSION(0.011)'; + +my $reqs = CPAN::Meta::Requirements->new; +$reqs->add_string_requirement($_, $breaks->{$_}) foreach keys %$breaks; + +our $result = CPAN::Meta::Check::check_requirements($reqs, 'conflicts'); + +if (my @breaks = grep { defined $result->{$_} } keys %$result) +{ + diag 'Breakages found with Test-Warnings:'; + diag "$result->{$_}" for sort @breaks; + diag "\n", 'You should now update these modules!'; +} +} diff --git a/xt/author/00-compile.t b/xt/author/00-compile.t new file mode 100644 index 0000000..b5f0f7c --- /dev/null +++ b/xt/author/00-compile.t @@ -0,0 +1,92 @@ +use 5.006; +use strict; +use warnings; + +# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.054 + +use Test::More 0.94; + +plan tests => 11; + +my @module_files = ( + 'Test/Warnings.pm' +); + +my @scripts = ( + 'examples/no_plan.t', + 'examples/sub.t', + 'examples/synopsis_1.t', + 'examples/synopsis_2.t', + 'examples/test_nowarnings.t', + 'examples/test_warning_contents.t', + 'examples/warning_like.t', + 'examples/with_done_testing.t', + 'examples/with_plan.t' +); + +# no fake home requested + +my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib'; + +use File::Spec; +use IPC::Open3; +use IO::Handle; + +open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!"; + +my @warnings; +for my $lib (@module_files) +{ + # see L + my $stderr = IO::Handle->new; + + my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]"); + binmode $stderr, ':crlf' if $^O eq 'MSWin32'; + my @_warnings = <$stderr>; + waitpid($pid, 0); + is($?, 0, "$lib loaded ok"); + + shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/ + and not eval { require blib; blib->VERSION('1.01') }; + + if (@_warnings) + { + warn @_warnings; + push @warnings, @_warnings; + } +} + +foreach my $file (@scripts) +{ SKIP: { + open my $fh, '<', $file or warn("Unable to open $file: $!"), next; + my $line = <$fh>; + + close $fh and skip("$file isn't perl", 1) unless $line =~ /^#!\s*(?:\S*perl\S*)((?:\s+-\w*)*)(?:\s*#.*)?$/; + my @flags = $1 ? split(' ', $1) : (); + + my $stderr = IO::Handle->new; + + my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, @flags, '-c', $file); + binmode $stderr, ':crlf' if $^O eq 'MSWin32'; + my @_warnings = <$stderr>; + waitpid($pid, 0); + is($?, 0, "$file compiled ok"); + + shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/ + and not eval { require blib; blib->VERSION('1.01') }; + + # in older perls, -c output is simply the file portion of the path being tested + if (@_warnings = grep { !/\bsyntax OK$/ } + grep { chomp; $_ ne (File::Spec->splitpath($file))[2] } @_warnings) + { + warn @_warnings; + push @warnings, @_warnings; + } +} } + + + +is(scalar(@warnings), 0, 'no warnings found') + or diag 'got warnings: ', explain(\@warnings); + +BAIL_OUT("Compilation problems") if !Test::More->builder->is_passing; diff --git a/xt/author/clean-namespaces.t b/xt/author/clean-namespaces.t new file mode 100644 index 0000000..36387da --- /dev/null +++ b/xt/author/clean-namespaces.t @@ -0,0 +1,11 @@ +use strict; +use warnings; + +# this test was generated with Dist::Zilla::Plugin::Test::CleanNamespaces 0.006 + +use Test::More 0.94; +use Test::CleanNamespaces 0.15; + +subtest all_namespaces_clean => sub { all_namespaces_clean() }; + +done_testing; diff --git a/xt/author/eol.t b/xt/author/eol.t new file mode 100644 index 0000000..bad27d3 --- /dev/null +++ b/xt/author/eol.t @@ -0,0 +1,65 @@ +use strict; +use warnings; + +# this test was generated with Dist::Zilla::Plugin::Test::EOL 0.18 + +use Test::More 0.88; +use Test::EOL; + +my @files = ( + 'examples/no_plan.t', + 'examples/sub.t', + 'examples/synopsis_1.t', + 'examples/synopsis_2.t', + 'examples/test_nowarnings.t', + 'examples/test_warning_contents.t', + 'examples/warning_like.t', + 'examples/with_done_testing.t', + 'examples/with_plan.t', + 'lib/Test/Warnings.pm', + 't/00-report-prereqs.dd', + 't/00-report-prereqs.t', + 't/01-basic.t', + 't/02-done_testing.t', + 't/03-subtest.t', + 't/04-no-tests.t', + 't/05-no-end-block.t', + 't/06-skip-all.t', + 't/07-no_plan.t', + 't/08-use-if.t', + 't/09-warnings-contents.t', + 't/10-no-done_testing.t', + 't/11-double-use.t', + 't/12-no-newline.t', + 't/13-propagate-warnings.t', + 't/14-propagate-subname.t', + 't/15-propagate-default.t', + 't/16-propagate-ignore.t', + 't/17-propagate-subname-colons.t', + 't/18-propagate-subname-package.t', + 't/19-propagate-nonexistent-subname.t', + 't/20-propagate-stub.t', + 't/lib/SilenceStderr.pm', + 't/zzz-check-breaks.t', + 'xt/author/00-compile.t', + 'xt/author/clean-namespaces.t', + 'xt/author/eol.t', + 'xt/author/examples_synopsis_1.t', + 'xt/author/examples_synopsis_2.t', + 'xt/author/examples_test_warning_contents.t', + 'xt/author/kwalitee.t', + 'xt/author/mojibake.t', + 'xt/author/no-tabs.t', + 'xt/author/pod-coverage.t', + 'xt/author/pod-spell.t', + 'xt/author/pod-syntax.t', + 'xt/release/changes_has_content.t', + 'xt/release/cpan-changes.t', + 'xt/release/distmeta.t', + 'xt/release/minimum-version.t', + 'xt/release/pod-no404s.t', + 'xt/release/portability.t' +); + +eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files; +done_testing; diff --git a/xt/author/examples_synopsis_1.t b/xt/author/examples_synopsis_1.t new file mode 100644 index 0000000..bd11d83 --- /dev/null +++ b/xt/author/examples_synopsis_1.t @@ -0,0 +1,13 @@ +# generated from examples/synopsis_1.t +use strict; +use warnings; + +# this test demonstrates that Test::Warnings can play nicely with +# Test::More::done_testing + +use Test::More; +use Test::Warnings; + +pass('yay!'); +done_testing; + diff --git a/xt/author/examples_synopsis_2.t b/xt/author/examples_synopsis_2.t new file mode 100644 index 0000000..48b1a91 --- /dev/null +++ b/xt/author/examples_synopsis_2.t @@ -0,0 +1,14 @@ +# generated from examples/synopsis_2.t +use strict; +use warnings; + +# this test demonstrates that we can capture warnings and test its contents, +# and that captured warning will not fail the had-no-warnings test which is +# added at the end + +use Test::More tests => 3; +use Test::Warnings ':all'; + +pass('yay!'); +like(warning { warn "oh noes!" }, qr/^oh noes/, 'we warned'); + diff --git a/xt/author/examples_test_warning_contents.t b/xt/author/examples_test_warning_contents.t new file mode 100644 index 0000000..e7e1812 --- /dev/null +++ b/xt/author/examples_test_warning_contents.t @@ -0,0 +1,33 @@ +# generated from examples/test_warning_contents.t +use strict; +use warnings; + +# this test demonstrates that warnings can be captured and tested, and other +# expected warnings can be whitelisted, to allow the had-no-warnings test not +# to fail + +use Test::More tests => 2; +use Test::Warnings ':all'; +use Test::Deep; + +my @lines; +my @warnings = warnings { + warn 'testing 1 2 3'; push @lines, __LINE__; + warn 'another warning'; push @lines, __LINE__; +}; + +my $file = __FILE__; +cmp_deeply( + \@warnings, + [ + "testing 1 2 3 at $file line $lines[0].\n", + "another warning at $file line $lines[1].\n", + ], + 'successfully captured all warnings', +); + +# make these warnings visible +allow_warnings; +warn $_ foreach @warnings; +allow_warnings(0); + diff --git a/xt/author/kwalitee.t b/xt/author/kwalitee.t new file mode 100644 index 0000000..c986546 --- /dev/null +++ b/xt/author/kwalitee.t @@ -0,0 +1,9 @@ +# this test was generated with Dist::Zilla::Plugin::Test::Kwalitee 2.12 +use strict; +use warnings; +use Test::More 0.88; +use Test::Kwalitee 1.21 'kwalitee_ok'; + +kwalitee_ok(); + +done_testing; diff --git a/xt/author/mojibake.t b/xt/author/mojibake.t new file mode 100644 index 0000000..5ef161e --- /dev/null +++ b/xt/author/mojibake.t @@ -0,0 +1,9 @@ +#!perl + +use strict; +use warnings qw(all); + +use Test::More; +use Test::Mojibake; + +all_files_encoding_ok(); diff --git a/xt/author/no-tabs.t b/xt/author/no-tabs.t new file mode 100644 index 0000000..0694c3c --- /dev/null +++ b/xt/author/no-tabs.t @@ -0,0 +1,65 @@ +use strict; +use warnings; + +# this test was generated with Dist::Zilla::Plugin::Test::NoTabs 0.15 + +use Test::More 0.88; +use Test::NoTabs; + +my @files = ( + 'examples/no_plan.t', + 'examples/sub.t', + 'examples/synopsis_1.t', + 'examples/synopsis_2.t', + 'examples/test_nowarnings.t', + 'examples/test_warning_contents.t', + 'examples/warning_like.t', + 'examples/with_done_testing.t', + 'examples/with_plan.t', + 'lib/Test/Warnings.pm', + 't/00-report-prereqs.dd', + 't/00-report-prereqs.t', + 't/01-basic.t', + 't/02-done_testing.t', + 't/03-subtest.t', + 't/04-no-tests.t', + 't/05-no-end-block.t', + 't/06-skip-all.t', + 't/07-no_plan.t', + 't/08-use-if.t', + 't/09-warnings-contents.t', + 't/10-no-done_testing.t', + 't/11-double-use.t', + 't/12-no-newline.t', + 't/13-propagate-warnings.t', + 't/14-propagate-subname.t', + 't/15-propagate-default.t', + 't/16-propagate-ignore.t', + 't/17-propagate-subname-colons.t', + 't/18-propagate-subname-package.t', + 't/19-propagate-nonexistent-subname.t', + 't/20-propagate-stub.t', + 't/lib/SilenceStderr.pm', + 't/zzz-check-breaks.t', + 'xt/author/00-compile.t', + 'xt/author/clean-namespaces.t', + 'xt/author/eol.t', + 'xt/author/examples_synopsis_1.t', + 'xt/author/examples_synopsis_2.t', + 'xt/author/examples_test_warning_contents.t', + 'xt/author/kwalitee.t', + 'xt/author/mojibake.t', + 'xt/author/no-tabs.t', + 'xt/author/pod-coverage.t', + 'xt/author/pod-spell.t', + 'xt/author/pod-syntax.t', + 'xt/release/changes_has_content.t', + 'xt/release/cpan-changes.t', + 'xt/release/distmeta.t', + 'xt/release/minimum-version.t', + 'xt/release/pod-no404s.t', + 'xt/release/portability.t' +); + +notabs_ok($_) foreach @files; +done_testing; diff --git a/xt/author/pod-coverage.t b/xt/author/pod-coverage.t new file mode 100644 index 0000000..d0c22aa --- /dev/null +++ b/xt/author/pod-coverage.t @@ -0,0 +1,12 @@ +use strict; +use warnings; + +use Test::More 0.94; +use Test::Pod::Coverage 1.08; +use Pod::Coverage::TrustPod; + +subtest all_pod_coverage_ok => sub { + all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' }); +}; + +done_testing; diff --git a/xt/author/pod-spell.t b/xt/author/pod-spell.t new file mode 100644 index 0000000..44f9fbb --- /dev/null +++ b/xt/author/pod-spell.t @@ -0,0 +1,22 @@ +use strict; +use warnings; +use Test::More; + +# generated by Dist::Zilla::Plugin::Test::PodSpelling 2.007000 +use Test::Spelling 0.12; +use Pod::Wordlist; + + +add_stopwords(); +all_pod_files_spelling_ok( qw( bin lib ) ); +__DATA__ +irc +Karen +Etheridge +ether +Sinan +Unur +nanis +lib +Test +Warnings diff --git a/xt/author/pod-syntax.t b/xt/author/pod-syntax.t new file mode 100644 index 0000000..e563e5d --- /dev/null +++ b/xt/author/pod-syntax.t @@ -0,0 +1,7 @@ +#!perl +# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests. +use strict; use warnings; +use Test::More; +use Test::Pod 1.41; + +all_pod_files_ok(); diff --git a/xt/release/changes_has_content.t b/xt/release/changes_has_content.t new file mode 100644 index 0000000..b9aad81 --- /dev/null +++ b/xt/release/changes_has_content.t @@ -0,0 +1,41 @@ +#!perl + +use Test::More tests => 2; + +note 'Checking Changes'; +my $changes_file = 'Changes'; +my $newver = '0.026'; +my $trial_token = '-TRIAL'; + +SKIP: { + ok(-e $changes_file, "$changes_file file exists") + or skip 'Changes is missing', 1; + + ok(_get_changes($newver), "$changes_file has content for $newver"); +} + +done_testing; + +# _get_changes copied and adapted from Dist::Zilla::Plugin::Git::Commit +# by Jerome Quelin +sub _get_changes +{ + my $newver = shift; + + # parse changelog to find commit message + open(my $fh, '<', $changes_file) or die "cannot open $changes_file: $!"; + my $changelog = join('', <$fh>); + close $fh; + + my @content = + grep { /^$newver(?:$trial_token)?(?:\s+|$)/ ... /^\S/ } # from newver to un-indented + split /\n/, $changelog; + shift @content; # drop the version line + + # drop unindented last line and trailing blank lines + pop @content while ( @content && $content[-1] =~ /^(?:\S|\s*$)/ ); + + # return number of non-blank lines + return scalar @content; +} + diff --git a/xt/release/cpan-changes.t b/xt/release/cpan-changes.t new file mode 100644 index 0000000..8e6e413 --- /dev/null +++ b/xt/release/cpan-changes.t @@ -0,0 +1,11 @@ +#!perl + +use strict; +use warnings; + +use Test::More 0.96 tests => 2; +use_ok('Test::CPAN::Changes'); +subtest 'changes_ok' => sub { + changes_file_ok('Changes'); +}; +done_testing(); diff --git a/xt/release/distmeta.t b/xt/release/distmeta.t new file mode 100644 index 0000000..c2280dc --- /dev/null +++ b/xt/release/distmeta.t @@ -0,0 +1,6 @@ +#!perl +# This file was automatically generated by Dist::Zilla::Plugin::MetaTests. + +use Test::CPAN::Meta; + +meta_yaml_ok(); diff --git a/xt/release/minimum-version.t b/xt/release/minimum-version.t new file mode 100644 index 0000000..102a3c8 --- /dev/null +++ b/xt/release/minimum-version.t @@ -0,0 +1,8 @@ +#!perl + +use Test::More; + +eval "use Test::MinimumVersion"; +plan skip_all => "Test::MinimumVersion required for testing minimum versions" + if $@; +all_minimum_version_ok( qq{5.006} , { skip => ["t/lib/SilenceStderr.pm"] }); diff --git a/xt/release/pod-no404s.t b/xt/release/pod-no404s.t new file mode 100644 index 0000000..eb9760c --- /dev/null +++ b/xt/release/pod-no404s.t @@ -0,0 +1,21 @@ +#!perl + +use strict; +use warnings; +use Test::More; + +foreach my $env_skip ( qw( + SKIP_POD_NO404S + AUTOMATED_TESTING +) ){ + plan skip_all => "\$ENV{$env_skip} is set, skipping" + if $ENV{$env_skip}; +} + +eval "use Test::Pod::No404s"; +if ( $@ ) { + plan skip_all => 'Test::Pod::No404s required for testing POD'; +} +else { + all_pod_files_ok(); +} diff --git a/xt/release/portability.t b/xt/release/portability.t new file mode 100644 index 0000000..bb53c7b --- /dev/null +++ b/xt/release/portability.t @@ -0,0 +1,12 @@ +#!perl + +use strict; +use warnings; + +use Test::More; + +eval 'use Test::Portability::Files'; +plan skip_all => 'Test::Portability::Files required for testing portability' + if $@; + +run_tests();