Hello community, here is the log from the commit of package perl-Test-SharedFork for openSUSE:Factory checked in at 2012-02-20 16:16:50 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-SharedFork (Old) and /work/SRC/openSUSE:Factory/.perl-Test-SharedFork.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-SharedFork", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-SharedFork/perl-Test-SharedFork.changes 2011-11-21 12:48:11.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-SharedFork.new/perl-Test-SharedFork.changes 2012-02-20 16:16:52.000000000 +0100 @@ -1,0 +2,8 @@ +Mon Feb 20 08:38:23 UTC 2012 - co...@suse.com + +- updated to 0.20 + - test_requires Time::HiRes for redhat. + (berekuk++) + - fixed TB2 support(tokuhirom) + +------------------------------------------------------------------- Old: ---- Test-SharedFork-0.18.tar.gz New: ---- Test-SharedFork-0.20.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-SharedFork.spec ++++++ --- /var/tmp/diff_new_pack.76egGu/_old 2012-02-20 16:16:53.000000000 +0100 +++ /var/tmp/diff_new_pack.76egGu/_new 2012-02-20 16:16:53.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-SharedFork # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -15,30 +15,47 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # -# norootforbuild - Name: perl-Test-SharedFork +Version: 0.20 +Release: 0 %define cpan_name Test-SharedFork Summary: Fork test -Version: 0.18 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Test-SharedFork/ -Source: http://www.cpan.org/authors/id/T/TO/TOKUHIROM/Test-SharedFork-%{version}.tar.gz +Source: http://www.cpan.org/authors/id/T/TO/TOKUHIROM/%{cpan_name}-%{version}.tar.gz Patch0: tests-need-help.patch BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build -%{perl_requires} BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl >= 5.8.0 -Requires: perl >= 5.8.0 +BuildRequires: perl(App::Prove) +BuildRequires: perl(Test::More) >= 0.88 +BuildRequires: perl(Test::Requires) +#BuildRequires: perl(inc::Module::Install) +#BuildRequires: perl(JSON) +#BuildRequires: perl(LWP::Simple) +#BuildRequires: perl(Module::Build) +#BuildRequires: perl(Module::Install::Base) +#BuildRequires: perl(parent) +#BuildRequires: perl(Parse::CPAN::Meta) +#BuildRequires: perl(Pod::Markdown) +#BuildRequires: perl(TB2::History) +#BuildRequires: perl(Test::SharedFork) +#BuildRequires: perl(Test::SharedFork::Array) +#BuildRequires: perl(Test::SharedFork::Scalar) +#BuildRequires: perl(Test::SharedFork::Store) +#BuildRequires: perl(YAML::Tiny) +Requires: perl(Test::More) >= 0.88 +%{perl_requires} %description -Test::SharedFork is utility module for Test::Builder. This module makes -forking test! +Test::SharedFork is utility module for Test::Builder. + +This module makes the fork(2) manpage safety in your test case. + +This module merges test count with parent process & child process. %prep %setup -q -n %{cpan_name}-%{version} @@ -53,18 +70,11 @@ %install %perl_make_install -# do not perl_process_packlist (noarch) -# remove .packlist file -%{__rm} -rf $RPM_BUILD_ROOT%perl_vendorarch -# remove perllocal.pod file -%{__rm} -rf $RPM_BUILD_ROOT%perl_archlib +%perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf $RPM_BUILD_ROOT - %files -f %{name}.files -%defattr(-,root,root,-) -%doc Changes README README.mkdn +%defattr(-,root,root,755) +%doc Changes README %changelog ++++++ Test-SharedFork-0.18.tar.gz -> Test-SharedFork-0.20.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/.gitignore new/Test-SharedFork-0.20/.gitignore --- old/Test-SharedFork-0.18/.gitignore 2011-08-01 04:51:36.000000000 +0200 +++ new/Test-SharedFork-0.20/.gitignore 2011-11-29 19:34:21.000000000 +0100 @@ -10,3 +10,17 @@ nytprof.out \.sw[pon] *.bak +inc/ +ppport.h +*.sw[po] +*.old +Build +_build/ +xshelper.h +tags +blib/ +MYMETA.* +META.json +README +^inc/ +Test-SharedFork-*/ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/Changes new/Test-SharedFork-0.20/Changes --- old/Test-SharedFork-0.18/Changes 2011-10-05 01:03:07.000000000 +0200 +++ new/Test-SharedFork-0.20/Changes 2012-02-10 00:58:59.000000000 +0100 @@ -1,5 +1,14 @@ Revision history for Perl extension Test::SharedFork +0.20 + + - test_requires Time::HiRes for redhat. + (berekuk++) + +0.19 + + - fixed TB2 support(tokuhirom) + 0.18 - More fixes for failure locations(hoelzro) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/MANIFEST new/Test-SharedFork-0.20/MANIFEST --- old/Test-SharedFork-0.18/MANIFEST 2011-10-03 10:29:36.000000000 +0200 +++ new/Test-SharedFork-0.20/MANIFEST 2011-11-29 20:25:05.000000000 +0100 @@ -1,19 +1,16 @@ .gitignore Changes -inc/App/Prove.pm inc/Module/Install.pm inc/Module/Install/AuthorTests.pm inc/Module/Install/Base.pm inc/Module/Install/Can.pm inc/Module/Install/Fetch.pm -inc/Module/Install/Include.pm inc/Module/Install/Makefile.pm inc/Module/Install/Metadata.pm inc/Module/Install/ReadmeMarkdownFromPod.pm inc/Module/Install/Win32.pm inc/Module/Install/WriteAll.pm inc/Pod/Markdown.pm -inc/Test/Requires.pm lib/Test/SharedFork.pm lib/Test/SharedFork/Array.pm lib/Test/SharedFork/Scalar.pm @@ -22,7 +19,6 @@ MANIFEST This list of files META.yml README -README.mkdn t/00_compile.t t/01_simple.t t/02_fork_method.t @@ -42,4 +38,6 @@ xt/01_podspell.t xt/02_perlcritic.t xt/03_pod.t -xt/perlcriticrc +xt/04_minimum_version.t +xt/05_cpan_meta.t +xt/06_meta_author.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/META.yml new/Test-SharedFork-0.20/META.yml --- old/Test-SharedFork-0.18/META.yml 2011-10-05 01:03:20.000000000 +0200 +++ new/Test-SharedFork-0.20/META.yml 2012-02-10 00:59:15.000000000 +0100 @@ -3,11 +3,15 @@ author: - 'Tokuhiro Matsuno <tokuhirom slkjfd gmail.com>' build_requires: + App::Prove: 0 ExtUtils::MakeMaker: 6.42 + Test::Requires: 0 + Time::HiRes: 0 configure_requires: ExtUtils::MakeMaker: 6.42 distribution_type: module -generated_by: 'Module::Install version 1.01' +dynamic_config: 1 +generated_by: 'Module::Install version 1.03' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -23,4 +27,4 @@ perl: 5.8.0 resources: license: http://dev.perl.org/licenses/ -version: 0.18 +version: 0.20 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/Makefile.PL new/Test-SharedFork-0.20/Makefile.PL --- old/Test-SharedFork-0.18/Makefile.PL 2011-08-01 04:55:48.000000000 +0200 +++ new/Test-SharedFork-0.20/Makefile.PL 2012-02-10 00:58:28.000000000 +0100 @@ -11,10 +11,10 @@ test_requires 'App::Prove'; test_requires 'Test::Requires'; +test_requires 'Time::HiRes'; # workaround for redhat. https://github.com/tokuhirom/test-sharedfork/pull/3 tests 't/*.t t/*/*.t t/*/*/*.t'; author_tests 'xt'; readme_markdown_from 'lib/Test/SharedFork.pm'; -auto_include; WriteAll; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/README.mkdn new/Test-SharedFork-0.20/README.mkdn --- old/Test-SharedFork-0.18/README.mkdn 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/README.mkdn 1970-01-01 01:00:00.000000000 +0100 @@ -1,53 +0,0 @@ -# NAME - -Test::SharedFork - fork test - -# SYNOPSIS - - use Test::More tests => 200; - use Test::SharedFork; - - my $pid = fork(); - if ($pid == 0) { - # child - ok 1, "child $_" for 1..100; - } elsif ($pid) { - # parent - ok 1, "parent $_" for 1..100; - waitpid($pid, 0); - } else { - die $!; - } - -# DESCRIPTION - -Test::SharedFork is utility module for Test::Builder. - -This module makes L<fork(2)> safety in your test case. - -This module merges test count with parent process & child process. - -# LIMITATIONS - -This version of the Test::SharedFork does not support ithreads, because [threads::shared](http://search.cpan.org/perldoc?threads::shared) conflicts with [Storable](http://search.cpan.org/perldoc?Storable). - -# AUTHOR - -Tokuhiro Matsuno <tokuhirom slkjfd gmail.com> - -yappo - -# THANKS TO - -kazuhooku - -konbuizm - -# SEE ALSO - -[Test::TCP](http://search.cpan.org/perldoc?Test::TCP), [Test::Fork](http://search.cpan.org/perldoc?Test::Fork), [Test::MultipleFork](http://search.cpan.org/perldoc?Test::MultipleFork) - -# LICENSE - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/App/Prove.pm new/Test-SharedFork-0.20/inc/App/Prove.pm --- old/Test-SharedFork-0.18/inc/App/Prove.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/App/Prove.pm 1970-01-01 01:00:00.000000000 +0100 @@ -1,582 +0,0 @@ -#line 1 -package App::Prove; - -use strict; -use vars qw($VERSION @ISA); - -use TAP::Object (); -use TAP::Harness; -use TAP::Parser::Utils qw( split_shell ); -use File::Spec; -use Getopt::Long; -use App::Prove::State; -use Carp; - -#line 22 - -$VERSION = '3.23'; - -#line 40 - -use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ ); -use constant IS_VMS => $^O eq 'VMS'; -use constant IS_UNIXY => !( IS_VMS || IS_WIN32 ); - -use constant STATE_FILE => IS_UNIXY ? '.prove' : '_prove'; -use constant RC_FILE => IS_UNIXY ? '.proverc' : '_proverc'; - -use constant PLUGINS => 'App::Prove::Plugin'; - -my @ATTR; - -BEGIN { - @ISA = qw(TAP::Object); - - @ATTR = qw( - archive argv blib show_count color directives exec failures comments - formatter harness includes modules plugins jobs lib merge parse quiet - really_quiet recurse backwards shuffle taint_fail taint_warn timer - verbose warnings_fail warnings_warn show_help show_man show_version - state_class test_args state dry extensions ignore_exit rules state_manager - normalize sources tapversion trap - ); - __PACKAGE__->mk_methods(@ATTR); -} - -#line 76 - -# new() implementation supplied by TAP::Object - -sub _initialize { - my $self = shift; - my $args = shift || {}; - - my @is_array = qw( - argv rc_opts includes modules state plugins rules sources - ); - - # setup defaults: - for my $key (@is_array) { - $self->{$key} = []; - } - $self->{harness_class} = 'TAP::Harness'; - - for my $attr (@ATTR) { - if ( exists $args->{$attr} ) { - - # TODO: Some validation here - $self->{$attr} = $args->{$attr}; - } - } - - my %env_provides_default = ( - HARNESS_TIMER => 'timer', - ); - - while ( my ( $env, $attr ) = each %env_provides_default ) { - $self->{$attr} = 1 if $ENV{$env}; - } - $self->state_class('App::Prove::State'); - return $self; -} - -#line 123 - -#line 132 - -sub add_rc_file { - my ( $self, $rc_file ) = @_; - - local *RC; - open RC, "<$rc_file" or croak "Can't read $rc_file ($!)"; - while ( defined( my $line = <RC> ) ) { - push @{ $self->{rc_opts} }, - grep { defined and not /^#/ } - $line =~ m{ ' ([^']*) ' | " ([^"]*) " | (\#.*) | (\S+) }xg; - } - close RC; -} - -#line 156 - -sub process_args { - my $self = shift; - - my @rc = RC_FILE; - unshift @rc, glob '~/' . RC_FILE if IS_UNIXY; - - # Preprocess meta-args. - my @args; - while ( defined( my $arg = shift ) ) { - if ( $arg eq '--norc' ) { - @rc = (); - } - elsif ( $arg eq '--rc' ) { - defined( my $rc = shift ) - or croak "Missing argument to --rc"; - push @rc, $rc; - } - elsif ( $arg =~ m{^--rc=(.+)$} ) { - push @rc, $1; - } - else { - push @args, $arg; - } - } - - # Everything after the arisdottle '::' gets passed as args to - # test programs. - if ( defined( my $stop_at = _first_pos( '::', @args ) ) ) { - my @test_args = splice @args, $stop_at; - shift @test_args; - $self->{test_args} = \@test_args; - } - - # Grab options from RC files - $self->add_rc_file($_) for grep -f, @rc; - unshift @args, @{ $self->{rc_opts} }; - - if ( my @bad = map {"-$_"} grep {/^-(man|help)$/} @args ) { - die "Long options should be written with two dashes: ", - join( ', ', @bad ), "\n"; - } - - # And finally... - - { - local @ARGV = @args; - Getopt::Long::Configure(qw(no_ignore_case bundling pass_through)); - - # Don't add coderefs to GetOptions - GetOptions( - 'v|verbose' => \$self->{verbose}, - 'f|failures' => \$self->{failures}, - 'o|comments' => \$self->{comments}, - 'l|lib' => \$self->{lib}, - 'b|blib' => \$self->{blib}, - 's|shuffle' => \$self->{shuffle}, - 'color!' => \$self->{color}, - 'colour!' => \$self->{color}, - 'count!' => \$self->{show_count}, - 'c' => \$self->{color}, - 'D|dry' => \$self->{dry}, - 'ext=s@' => sub { - my ( $opt, $val ) = @_; - # Workaround for Getopt::Long 2.25 handling of - # multivalue options - push @{ $self->{extensions} ||= [] }, $val; - }, - 'harness=s' => \$self->{harness}, - 'ignore-exit' => \$self->{ignore_exit}, - 'source=s@' => $self->{sources}, - 'formatter=s' => \$self->{formatter}, - 'r|recurse' => \$self->{recurse}, - 'reverse' => \$self->{backwards}, - 'p|parse' => \$self->{parse}, - 'q|quiet' => \$self->{quiet}, - 'Q|QUIET' => \$self->{really_quiet}, - 'e|exec=s' => \$self->{exec}, - 'm|merge' => \$self->{merge}, - 'I=s@' => $self->{includes}, - 'M=s@' => $self->{modules}, - 'P=s@' => $self->{plugins}, - 'state=s@' => $self->{state}, - 'directives' => \$self->{directives}, - 'h|help|?' => \$self->{show_help}, - 'H|man' => \$self->{show_man}, - 'V|version' => \$self->{show_version}, - 'a|archive=s' => \$self->{archive}, - 'j|jobs=i' => \$self->{jobs}, - 'timer' => \$self->{timer}, - 'T' => \$self->{taint_fail}, - 't' => \$self->{taint_warn}, - 'W' => \$self->{warnings_fail}, - 'w' => \$self->{warnings_warn}, - 'normalize' => \$self->{normalize}, - 'rules=s@' => $self->{rules}, - 'tapversion=s' => \$self->{tapversion}, - 'trap' => \$self->{trap}, - ) or croak('Unable to continue'); - - # Stash the remainder of argv for later - $self->{argv} = [@ARGV]; - } - - return; -} - -sub _first_pos { - my $want = shift; - for ( 0 .. $#_ ) { - return $_ if $_[$_] eq $want; - } - return; -} - -sub _help { - my ( $self, $verbosity ) = @_; - - eval('use Pod::Usage 1.12 ()'); - if ( my $err = $@ ) { - die 'Please install Pod::Usage for the --help option ' - . '(or try `perldoc prove`.)' - . "\n ($@)"; - } - - Pod::Usage::pod2usage( { -verbose => $verbosity } ); - - return; -} - -sub _color_default { - my $self = shift; - - return -t STDOUT && !$ENV{HARNESS_NOTTY} && !IS_WIN32; -} - -sub _get_args { - my $self = shift; - - my %args; - - $args{trap} = 1 if $self->trap; - - if ( defined $self->color ? $self->color : $self->_color_default ) { - $args{color} = 1; - } - if ( !defined $self->show_count ) { - $args{show_count} = 1; - } - else { - $args{show_count} = $self->show_count; - } - - if ( $self->archive ) { - $self->require_harness( archive => 'TAP::Harness::Archive' ); - $args{archive} = $self->archive; - } - - if ( my $jobs = $self->jobs ) { - $args{jobs} = $jobs; - } - - if ( my $harness_opt = $self->harness ) { - $self->require_harness( harness => $harness_opt ); - } - - if ( my $formatter = $self->formatter ) { - $args{formatter_class} = $formatter; - } - - for my $handler ( @{ $self->sources } ) { - my ( $name, $config ) = $self->_parse_source($handler); - $args{sources}->{$name} = $config; - } - - if ( $self->ignore_exit ) { - $args{ignore_exit} = 1; - } - - if ( $self->taint_fail && $self->taint_warn ) { - die '-t and -T are mutually exclusive'; - } - - if ( $self->warnings_fail && $self->warnings_warn ) { - die '-w and -W are mutually exclusive'; - } - - for my $a (qw( lib switches )) { - my $method = "_get_$a"; - my $val = $self->$method(); - $args{$a} = $val if defined $val; - } - - # Handle verbose, quiet, really_quiet flags - my %verb_map = ( verbose => 1, quiet => -1, really_quiet => -2, ); - - my @verb_adj = grep {$_} map { $self->$_() ? $verb_map{$_} : 0 } - keys %verb_map; - - die "Only one of verbose, quiet or really_quiet should be specified\n" - if @verb_adj > 1; - - $args{verbosity} = shift @verb_adj || 0; - - for my $a (qw( merge failures comments timer directives normalize )) { - $args{$a} = 1 if $self->$a(); - } - - $args{errors} = 1 if $self->parse; - - # defined but zero-length exec runs test files as binaries - $args{exec} = [ split( /\s+/, $self->exec ) ] - if ( defined( $self->exec ) ); - - $args{version} = $self->tapversion if defined( $self->tapversion ); - - if ( defined( my $test_args = $self->test_args ) ) { - $args{test_args} = $test_args; - } - - if ( @{ $self->rules } ) { - my @rules; - for ( @{ $self->rules } ) { - if (/^par=(.*)/) { - push @rules, $1; - } - elsif (/^seq=(.*)/) { - push @rules, { seq => $1 }; - } - } - $args{rules} = { par => [@rules] }; - } - - return ( \%args, $self->{harness_class} ); -} - -sub _find_module { - my ( $self, $class, @search ) = @_; - - croak "Bad module name $class" - unless $class =~ /^ \w+ (?: :: \w+ ) *$/x; - - for my $pfx (@search) { - my $name = join( '::', $pfx, $class ); - eval "require $name"; - return $name unless $@; - } - - eval "require $class"; - return $class unless $@; - return; -} - -sub _load_extension { - my ( $self, $name, @search ) = @_; - - my @args = (); - if ( $name =~ /^(.*?)=(.*)/ ) { - $name = $1; - @args = split( /,/, $2 ); - } - - if ( my $class = $self->_find_module( $name, @search ) ) { - $class->import(@args); - if ( $class->can('load') ) { - $class->load( { app_prove => $self, args => [@args] } ); - } - } - else { - croak "Can't load module $name"; - } -} - -sub _load_extensions { - my ( $self, $ext, @search ) = @_; - $self->_load_extension( $_, @search ) for @$ext; -} - -sub _parse_source { - my ( $self, $handler ) = @_; - - # Load any options. - ( my $opt_name = lc $handler ) =~ s/::/-/g; - local @ARGV = @{ $self->{argv} }; - my %config; - Getopt::Long::GetOptions( - "$opt_name-option=s%" => sub { - my ( $name, $k, $v ) = @_; - if ( $v =~ /(?<!\\)=/ ) { - - # It's a hash option. - croak "Option $name must be consistently used as a hash" - if exists $config{$k} && ref $config{$k} ne 'HASH'; - $config{$k} ||= {}; - my ( $hk, $hv ) = split /(?<!\\)=/, $v, 2; - $config{$k}{$hk} = $hv; - } - else { - $v =~ s/\\=/=/g; - if ( exists $config{$k} ) { - $config{$k} = [ $config{$k} ] - unless ref $config{$k} eq 'ARRAY'; - push @{ $config{$k} } => $v; - } - else { - $config{$k} = $v; - } - } - } - ); - $self->{argv} = \@ARGV; - return ( $handler, \%config ); -} - -#line 482 - -sub run { - my $self = shift; - - unless ( $self->state_manager ) { - $self->state_manager( - $self->state_class->new( { store => STATE_FILE } ) ); - } - - if ( $self->show_help ) { - $self->_help(1); - } - elsif ( $self->show_man ) { - $self->_help(2); - } - elsif ( $self->show_version ) { - $self->print_version; - } - elsif ( $self->dry ) { - print "$_\n" for $self->_get_tests; - } - else { - - $self->_load_extensions( $self->modules ); - $self->_load_extensions( $self->plugins, PLUGINS ); - - local $ENV{TEST_VERBOSE} = 1 if $self->verbose; - - return $self->_runtests( $self->_get_args, $self->_get_tests ); - } - - return 1; -} - -sub _get_tests { - my $self = shift; - - my $state = $self->state_manager; - my $ext = $self->extensions; - $state->extensions($ext) if defined $ext; - if ( defined( my $state_switch = $self->state ) ) { - $state->apply_switch(@$state_switch); - } - - my @tests = $state->get_tests( $self->recurse, @{ $self->argv } ); - - $self->_shuffle(@tests) if $self->shuffle; - @tests = reverse @tests if $self->backwards; - - return @tests; -} - -sub _runtests { - my ( $self, $args, $harness_class, @tests ) = @_; - my $harness = $harness_class->new($args); - - my $state = $self->state_manager; - - $harness->callback( - after_test => sub { - $state->observe_test(@_); - } - ); - - $harness->callback( - after_runtests => sub { - $state->commit(@_); - } - ); - - my $aggregator = $harness->runtests(@tests); - - return !$aggregator->has_errors; -} - -sub _get_switches { - my $self = shift; - my @switches; - - # notes that -T or -t must be at the front of the switches! - if ( $self->taint_fail ) { - push @switches, '-T'; - } - elsif ( $self->taint_warn ) { - push @switches, '-t'; - } - if ( $self->warnings_fail ) { - push @switches, '-W'; - } - elsif ( $self->warnings_warn ) { - push @switches, '-w'; - } - - push @switches, split_shell( $ENV{HARNESS_PERL_SWITCHES} ); - - return @switches ? \@switches : (); -} - -sub _get_lib { - my $self = shift; - my @libs; - if ( $self->lib ) { - push @libs, 'lib'; - } - if ( $self->blib ) { - push @libs, 'blib/lib', 'blib/arch'; - } - if ( @{ $self->includes } ) { - push @libs, @{ $self->includes }; - } - - #24926 - @libs = map { File::Spec->rel2abs($_) } @libs; - - # Huh? - return @libs ? \@libs : (); -} - -sub _shuffle { - my $self = shift; - - # Fisher-Yates shuffle - my $i = @_; - while ($i) { - my $j = rand $i--; - @_[ $i, $j ] = @_[ $j, $i ]; - } - return; -} - -#line 619 - -sub require_harness { - my ( $self, $for, $class ) = @_; - - my ($class_name) = $class =~ /^(\w+(?:::\w+)*)/; - - # Emulate Perl's -MModule=arg1,arg2 behaviour - $class =~ s!^(\w+(?:::\w+)*)=(.*)$!$1 split(/,/,q{$2})!; - - eval("use $class;"); - die "$class_name is required to use the --$for feature: $@" if $@; - - $self->{harness_class} = $class_name; - - return; -} - -#line 642 - -sub print_version { - my $self = shift; - printf( - "TAP::Harness v%s and Perl v%vd\n", - $TAP::Harness::VERSION, $^V - ); - - return; -} - -1; - -# vim:ts=4:sw=4:et:sta - -__END__ - -#line 835 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Module/Install/Base.pm new/Test-SharedFork-0.20/inc/Module/Install/Base.pm --- old/Test-SharedFork-0.18/inc/Module/Install/Base.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Module/Install/Base.pm 2012-02-10 00:59:14.000000000 +0100 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.03'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Module/Install/Can.pm new/Test-SharedFork-0.20/inc/Module/Install/Can.pm --- old/Test-SharedFork-0.18/inc/Module/Install/Can.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Module/Install/Can.pm 2012-02-10 00:59:14.000000000 +0100 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.03'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Module/Install/Fetch.pm new/Test-SharedFork-0.20/inc/Module/Install/Fetch.pm --- old/Test-SharedFork-0.18/inc/Module/Install/Fetch.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Module/Install/Fetch.pm 2012-02-10 00:59:14.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.03'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Module/Install/Include.pm new/Test-SharedFork-0.20/inc/Module/Install/Include.pm --- old/Test-SharedFork-0.18/inc/Module/Install/Include.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Module/Install/Include.pm 1970-01-01 01:00:00.000000000 +0100 @@ -1,34 +0,0 @@ -#line 1 -package Module::Install::Include; - -use strict; -use Module::Install::Base (); - -use vars qw{$VERSION @ISA $ISCORE}; -BEGIN { - $VERSION = '1.01'; - @ISA = 'Module::Install::Base'; - $ISCORE = 1; -} - -sub include { - shift()->admin->include(@_); -} - -sub include_deps { - shift()->admin->include_deps(@_); -} - -sub auto_include { - shift()->admin->auto_include(@_); -} - -sub auto_include_deps { - shift()->admin->auto_include_deps(@_); -} - -sub auto_include_dependent_dists { - shift()->admin->auto_include_dependent_dists(@_); -} - -1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Module/Install/Makefile.pm new/Test-SharedFork-0.20/inc/Module/Install/Makefile.pm --- old/Test-SharedFork-0.18/inc/Module/Install/Makefile.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Module/Install/Makefile.pm 2012-02-10 00:59:14.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.03'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Module/Install/Metadata.pm new/Test-SharedFork-0.20/inc/Module/Install/Metadata.pm --- old/Test-SharedFork-0.18/inc/Module/Install/Metadata.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Module/Install/Metadata.pm 2012-02-10 00:59:14.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.03'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -151,15 +151,21 @@ sub install_as_vendor { $_[0]->installdirs('vendor') } sub dynamic_config { - my $self = shift; - unless ( @_ ) { - warn "You MUST provide an explicit true/false value to dynamic_config\n"; - return $self; + my $self = shift; + my $value = @_ ? shift : 1; + if ( $self->{values}->{dynamic_config} ) { + # Once dynamic we never change to static, for safety + return 0; } - $self->{values}->{dynamic_config} = $_[0] ? 1 : 0; + $self->{values}->{dynamic_config} = $value ? 1 : 0; return 1; } +# Convenience command +sub static_config { + shift->dynamic_config(0); +} + sub perl_version { my $self = shift; return $self->{values}->{perl_version} unless @_; @@ -170,7 +176,7 @@ # Normalize the version $version = $self->_perl_version($version); - # We don't support the reall old versions + # We don't support the really old versions unless ( $version >= 5.005 ) { die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n"; } @@ -582,7 +588,7 @@ sub requires_from { my $self = shift; my $content = Module::Install::_readperl($_[0]); - my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg; + my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+(v?[\d\.]+)/mg; while ( @requires ) { my $module = shift @requires; my $version = shift @requires; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Module/Install/Win32.pm new/Test-SharedFork-0.20/inc/Module/Install/Win32.pm --- old/Test-SharedFork-0.18/inc/Module/Install/Win32.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Module/Install/Win32.pm 2012-02-10 00:59:14.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.03'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Module/Install/WriteAll.pm new/Test-SharedFork-0.20/inc/Module/Install/WriteAll.pm --- old/Test-SharedFork-0.18/inc/Module/Install/WriteAll.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Module/Install/WriteAll.pm 2012-02-10 00:59:14.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.03'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Module/Install.pm new/Test-SharedFork-0.20/inc/Module/Install.pm --- old/Test-SharedFork-0.18/inc/Module/Install.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Module/Install.pm 2012-02-10 00:59:14.000000000 +0100 @@ -31,7 +31,7 @@ # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.01'; + $VERSION = '1.03'; # Storage for the pseudo-singleton $MAIN = undef; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/inc/Test/Requires.pm new/Test-SharedFork-0.20/inc/Test/Requires.pm --- old/Test-SharedFork-0.18/inc/Test/Requires.pm 2011-10-05 01:03:19.000000000 +0200 +++ new/Test-SharedFork-0.20/inc/Test/Requires.pm 1970-01-01 01:00:00.000000000 +0100 @@ -1,74 +0,0 @@ -#line 1 -package Test::Requires; -use strict; -use warnings; -our $VERSION = '0.06'; -use base 'Test::Builder::Module'; -use 5.006000; - -sub import { - my $class = shift; - my $caller = caller(0); - - # export methods - { - no strict 'refs'; - *{"$caller\::test_requires"} = \&test_requires; - } - - # test arguments - if (@_ == 1 && ref $_[0] && ref $_[0] eq 'HASH') { - while (my ($mod, $ver) = each %{$_[0]}) { - test_requires($mod, $ver, $caller); - } - } else { - for my $mod (@_) { - test_requires($mod, undef, $caller); - } - } -} - -sub test_requires { - my ( $mod, $ver, $caller ) = @_; - return if $mod eq __PACKAGE__; - if (@_ != 3) { - $caller = caller(0); - } - $ver ||= ''; - - eval qq{package $caller; use $mod $ver}; ## no critic. - if (my $e = $@) { - my $skip_all = sub { - my $builder = __PACKAGE__->builder; - - if (not defined $builder->has_plan) { - $builder->skip_all(@_); - } elsif ($builder->has_plan eq 'no_plan') { - $builder->skip(@_); - if ( $builder->can('parent') && $builder->parent ) { - die bless {} => 'Test::Builder::Exception'; - } - exit 0; - } else { - for (1..$builder->has_plan) { - $builder->skip(@_); - } - if ( $builder->can('parent') && $builder->parent ) { - die bless {} => 'Test::Builder::Exception'; - } - exit 0; - } - }; - if ( $e =~ /^Can't locate/ ) { - $skip_all->("Test requires module '$mod' but it's not found"); - } - else { - $skip_all->("$e"); - } - } -} - -1; -__END__ - -#line 128 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/lib/Test/SharedFork.pm new/Test-SharedFork-0.20/lib/Test/SharedFork.pm --- old/Test-SharedFork-0.18/lib/Test/SharedFork.pm 2011-10-05 01:02:45.000000000 +0200 +++ new/Test-SharedFork-0.20/lib/Test/SharedFork.pm 2012-02-10 00:58:37.000000000 +0100 @@ -2,7 +2,7 @@ use strict; use warnings; use base 'Test::Builder::Module'; -our $VERSION = '0.18'; +our $VERSION = '0.20'; use Test::Builder 0.32; # 0.32 or later is needed use Test::SharedFork::Scalar; use Test::SharedFork::Array; @@ -50,25 +50,23 @@ die "# Current version of Test::SharedFork does not supports ithreads."; } - if (Test::Builder->VERSION > 2.00) { + if (Test::Builder->VERSION > 1.005) { + # TODO: hook TB2::threads::shared::off instead of following hacks. # new Test::Builder $STORE = Test::SharedFork::Store->new(); + require TB2::History; + # wrap the moriginal methods our $level = 0; - for my $class (qw/Test::Builder2::History Test::Builder2::Counter/) { + for my $class (qw/TB2::History TB2::Counter/) { my $meta = $class->meta; my @methods = $meta->get_method_list; - my $orig = - $class eq 'Test::Builder2::History' - ? $builder->{History} - : $builder->{History}->counter; - $orig->{test_sharedfork_hacked}++; - $STORE->set($class => $orig); for my $method (@methods) { next if $method =~ /^_/; next if $method eq 'meta'; next if $method eq 'create'; next if $method eq 'singleton'; + next if $method eq 'buildstack'; $meta->add_around_method_modifier( $method => sub { my ($code, $orig_self, @args) = @_; @@ -86,6 +84,15 @@ ); } } + for my $obj ( $builder->counter ) { + my $klass = ref($obj); + unless ($klass) { + require Data::Dumper; + die "Cannot fetch object: " . Data::Dumper::Dumper($builder); + } + $obj->{test_sharedfork_hacked}++; + $STORE->set( $klass => $obj ); + } } else { # older Test::Builder $STORE = Test::SharedFork::Store->new( diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/xt/02_perlcritic.t new/Test-SharedFork-0.20/xt/02_perlcritic.t --- old/Test-SharedFork-0.18/xt/02_perlcritic.t 2011-08-01 04:51:36.000000000 +0200 +++ new/Test-SharedFork-0.20/xt/02_perlcritic.t 2011-11-29 19:34:22.000000000 +0100 @@ -1,8 +1,12 @@ use strict; use Test::More; -eval { - require Test::Perl::Critic; - Test::Perl::Critic->import( -profile => 'xt/perlcriticrc'); +eval q{ + use Test::Perl::Critic 1.02 -exclude => [ + 'Subroutines::ProhibitSubroutinePrototypes', + 'Subroutines::ProhibitExplicitReturnUndef', + 'TestingAndDebugging::ProhibitNoStrict', + 'ControlStructures::ProhibitMutatingListFunctions', + ] }; -plan skip_all => "Test::Perl::Critic is not installed." if $@; +plan skip_all => "Test::Perl::Critic 1.02+ is not installed." if $@; all_critic_ok('lib'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/xt/04_minimum_version.t new/Test-SharedFork-0.20/xt/04_minimum_version.t --- old/Test-SharedFork-0.18/xt/04_minimum_version.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-SharedFork-0.20/xt/04_minimum_version.t 2011-11-29 19:34:22.000000000 +0100 @@ -0,0 +1,4 @@ +use Test::More; +eval "use Test::MinimumVersion 0.101080"; +plan skip_all => "Test::Minimumversion required for testing perl minimum version" if $@; +all_minimum_version_from_metayml_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/xt/05_cpan_meta.t new/Test-SharedFork-0.20/xt/05_cpan_meta.t --- old/Test-SharedFork-0.18/xt/05_cpan_meta.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-SharedFork-0.20/xt/05_cpan_meta.t 2011-11-29 19:34:22.000000000 +0100 @@ -0,0 +1,5 @@ +use Test::More; +eval "use Test::CPAN::Meta"; +plan skip_all => "Test::CPAN::Meta required for testing META.yml" if $@; +plan skip_all => "There is no META.yml" unless -f "META.yml"; +meta_yaml_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/xt/06_meta_author.t new/Test-SharedFork-0.20/xt/06_meta_author.t --- old/Test-SharedFork-0.18/xt/06_meta_author.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-SharedFork-0.20/xt/06_meta_author.t 2011-11-29 19:49:48.000000000 +0100 @@ -0,0 +1,10 @@ +use strict; +use Test::More; +eval "use Parse::CPAN::Meta"; +plan skip_all => "Parse::CPAN::Meta required for testing META.yml" unless eval "use Parse::CPAN::Meta; 1;"; +plan skip_all => "There is no META.yml" unless -f "META.yml"; + +my $meta = Parse::CPAN::Meta->load_file('META.yml'); +isnt($meta->{author}->[0], 'unknown', 'author info'); +ok($meta->{'requires'}->{'perl'}, 'metayml_declares_perl_version'); +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-SharedFork-0.18/xt/perlcriticrc new/Test-SharedFork-0.20/xt/perlcriticrc --- old/Test-SharedFork-0.18/xt/perlcriticrc 2011-08-01 04:51:36.000000000 +0200 +++ new/Test-SharedFork-0.20/xt/perlcriticrc 1970-01-01 01:00:00.000000000 +0100 @@ -1,2 +0,0 @@ -[TestingAndDebugging::ProhibitNoStrict] -allow=refs -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org