Test::TAP - Test your TAP
use Test::TAP; is_passing_tap $tap1, 'TAP tests passed'; is_failing_tap $tap2, 'TAP tests failed';
Experimental module to tell if a TAP document is 'passing' or 'failing'. We'll add more later, but for the time being, this module is for TAP developers to experiment with.
is_passing_tap <<'END_TAP', '... TAP tests passed'; 1..1 ok 1 This test passed END_TAP
Test passes if the string passed if the following criteria are met:
You must have one and only one plan. It may be at the beginning or end of the TAP, but not embedded. Plans found in nested TAP are acceptable.
Number of tests run must match the plan.
No 'not ok' tests may be found unless they are TODO tests.
is_failing_tap <<'END_TAP', '... TAP tests passed'; 1..1 not ok 1 This test passed END_TAP
Curtis "Ovid" Poe,
Please report any bugs or feature requests to
email@example.com, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-TAP. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
Copyright 2008 Curtis "Ovid" Poe, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.