diff options
Diffstat (limited to 'cpan/Test-Simple/lib/Test/Simple.pm')
| -rw-r--r-- | cpan/Test-Simple/lib/Test/Simple.pm | 155 |
1 files changed, 135 insertions, 20 deletions
diff --git a/cpan/Test-Simple/lib/Test/Simple.pm b/cpan/Test-Simple/lib/Test/Simple.pm index 34736b2585..90a53fe91c 100644 --- a/cpan/Test-Simple/lib/Test/Simple.pm +++ b/cpan/Test-Simple/lib/Test/Simple.pm @@ -1,17 +1,65 @@ package Test::Simple; -use 5.006; +use 5.008001; use strict; +use warnings; -our $VERSION = '1.001008'; +our $VERSION = '1.301001_063'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) -use Test::Builder::Module 0.99; -our @ISA = qw(Test::Builder::Module); -our @EXPORT = qw(ok); +use Test::Stream '-internal'; +use Test::Stream::Toolset; + +use Test::Stream::Exporter; +default_exports qw/ok/; +Test::Stream::Exporter->cleanup; + +sub before_import { + my $class = shift; + my ($importer, $list) = @_; + + my $meta = init_tester($importer); + my $context = context(1); + my $idx = 0; + my $other = []; + while ($idx <= $#{$list}) { + my $item = $list->[$idx++]; + + if (defined $item and $item eq 'no_diag') { + Test::Stream->shared->set_no_diag(1); + } + elsif ($item eq 'tests') { + $context->plan($list->[$idx++]); + } + elsif ($item eq 'skip_all') { + $context->plan(0, 'SKIP', $list->[$idx++]); + } + elsif ($item eq 'no_plan') { + $context->plan(0, 'NO PLAN'); + } + elsif ($item eq 'import') { + push @$other => @{$list->[$idx++]}; + } + else { + $context->throw("Unknown option: $item"); + } + } + + @$list = @$other; + + return; +} + +sub ok ($;$) { ## no critic (Subroutines::ProhibitSubroutinePrototypes) + my $ctx = context(); + return $ctx->ok(@_); + return $_[0] ? 1 : 0; +} -my $CLASS = __PACKAGE__; +1; + +__END__ =head1 NAME @@ -23,7 +71,6 @@ Test::Simple - Basic utilities for writing tests. ok( $foo eq $bar, 'foo is bar' ); - =head1 DESCRIPTION ** If you are unfamiliar with testing B<read L<Test::Tutorial> first!> ** @@ -74,12 +121,6 @@ All tests are run in scalar context. So this: will do what you mean (fail if stuff is empty) -=cut - -sub ok ($;$) { ## no critic (Subroutines::ProhibitSubroutinePrototypes) - return $CLASS->builder->ok(@_); -} - =back Test::Simple will start by printing number of tests run in the form @@ -194,12 +235,14 @@ programs and things will still work). Look in L<Test::More>'s SEE ALSO for more testing modules. -=head1 AUTHORS +=encoding utf8 -Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern -E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein. +=head1 SOURCE + +The source code repository for Test::More can be found at +F<http://github.com/Test-More/test-more/>. -=head1 MAINTAINERS +=head1 MAINTAINER =over 4 @@ -207,15 +250,87 @@ E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein. =back +=head1 AUTHORS + +The following people have all contributed to the Test-More dist (sorted using +VIM's sort function). + +=over 4 + +=item Chad Granum E<lt>exodist@cpan.orgE<gt> + +=item Fergal Daly E<lt>fergal@esatclear.ie>E<gt> + +=item Mark Fowler E<lt>mark@twoshortplanks.comE<gt> + +=item Michael G Schwern E<lt>schwern@pobox.comE<gt> + +=item 唐鳳 + +=back + =head1 COPYRIGHT +There has been a lot of code migration between modules, +here are all the original copyrights together: + +=over 4 + +=item Test::Stream + +=item Test::Stream::Tester + +Copyright 2014 Chad Granum E<lt>exodist7@gmail.comE<gt>. + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +See F<http://www.perl.com/perl/misc/Artistic.html> + +=item Test::Simple + +=item Test::More + +=item Test::Builder + +Originally authored by Michael G Schwern E<lt>schwern@pobox.comE<gt> with much +inspiration from Joshua Pritikin's Test module and lots of help from Barrie +Slaymaker, Tony Bowden, blackstar.co.uk, chromatic, Fergal Daly and the perl-qa +gang. + +Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern +E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein. + Copyright 2001-2008 by Michael G Schwern E<lt>schwern@pobox.comE<gt>. -This program is free software; you can redistribute it and/or +This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://www.perl.com/perl/misc/Artistic.html> -=cut +=item Test::use::ok -1; +To the extent possible under law, 唐鳳 has waived all copyright and related +or neighboring rights to L<Test-use-ok>. + +This work is published from Taiwan. + +L<http://creativecommons.org/publicdomain/zero/1.0> + +=item Test::Tester + +This module is copyright 2005 Fergal Daly <fergal@esatclear.ie>, some parts +are based on other people's work. + +Under the same license as Perl itself + +See http://www.perl.com/perl/misc/Artistic.html + +=item Test::Builder::Tester + +Copyright Mark Fowler E<lt>mark@twoshortplanks.comE<gt> 2002, 2004. + +This program is free software; you can redistribute it +and/or modify it under the same terms as Perl itself. + +=back |