commit 1d7da298c8afa2ab0a4e77244e8774bb82ce6ab672e58cb1fc59cadc1ce407a8 Author: Christian Wittmer Date: Sat Aug 21 20:13:57 2010 +0000 Accepting request 45938 from home:computersalat:devel:perl Copy from home:computersalat:devel:perl/perl-Class-AutoClass via accept of submit request 45938 revision 3. Request was accepted with message: self accept OBS-URL: https://build.opensuse.org/request/show/45938 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Class-AutoClass?expand=0&rev=1 diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..9b03811 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,23 @@ +## Default LFS +*.7z filter=lfs diff=lfs merge=lfs -text +*.bsp filter=lfs diff=lfs merge=lfs -text +*.bz2 filter=lfs diff=lfs merge=lfs -text +*.gem filter=lfs diff=lfs merge=lfs -text +*.gz filter=lfs diff=lfs merge=lfs -text +*.jar filter=lfs diff=lfs merge=lfs -text +*.lz filter=lfs diff=lfs merge=lfs -text +*.lzma filter=lfs diff=lfs merge=lfs -text +*.obscpio filter=lfs diff=lfs merge=lfs -text +*.oxt filter=lfs diff=lfs merge=lfs -text +*.pdf filter=lfs diff=lfs merge=lfs -text +*.png filter=lfs diff=lfs merge=lfs -text +*.rpm filter=lfs diff=lfs merge=lfs -text +*.tbz filter=lfs diff=lfs merge=lfs -text +*.tbz2 filter=lfs diff=lfs merge=lfs -text +*.tgz filter=lfs diff=lfs merge=lfs -text +*.ttf filter=lfs diff=lfs merge=lfs -text +*.txz filter=lfs diff=lfs merge=lfs -text +*.whl filter=lfs diff=lfs merge=lfs -text +*.xz filter=lfs diff=lfs merge=lfs -text +*.zip filter=lfs diff=lfs merge=lfs -text +*.zst filter=lfs diff=lfs merge=lfs -text diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..57affb6 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +.osc diff --git a/Class-AutoClass-1.53.tar.bz2 b/Class-AutoClass-1.53.tar.bz2 new file mode 100644 index 0000000..82227dc --- /dev/null +++ b/Class-AutoClass-1.53.tar.bz2 @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:16a78da5b6c0814b702556a0ea93e3f51422edba63cf5200a57a101355d1437a +size 38828 diff --git a/Class-AutoClass_Build_n_Test.patch b/Class-AutoClass_Build_n_Test.patch new file mode 100644 index 0000000..263d456 --- /dev/null +++ b/Class-AutoClass_Build_n_Test.patch @@ -0,0 +1,609 @@ +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.000.code_exists.t Class-AutoClass-1.53/t/autoclass.000.code_exists.t +--- Class-AutoClass-1.53-orig/t/autoclass.000.code_exists.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.000.code_exists.t 2010-08-21 21:38:42.000000000 +0200 +@@ -7,4 +7,4 @@ + use_ok( 'Class::AutoClass::Root' ); + } + diag( "Testing Class::AutoClass $Class::AutoClass::VERSION, Perl $], $^X" ); +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.001.boilerplate.t Class-AutoClass-1.53/t/autoclass.001.boilerplate.t +--- Class-AutoClass-1.53-orig/t/autoclass.001.boilerplate.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.001.boilerplate.t 2010-08-21 21:38:42.000000000 +0200 +@@ -49,5 +49,5 @@ + + module_boilerplate_ok('lib/Class/AutoClass.pm'); + +-done_testing(); ++#done_testing(); + +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.002.pod.t Class-AutoClass-1.53/t/autoclass.002.pod.t +--- Class-AutoClass-1.53-orig/t/autoclass.002.pod.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.002.pod.t 2010-08-21 21:48:12.000000000 +0200 +@@ -10,4 +10,4 @@ + plan skip_all => "Test::Pod $min_tp required for testing POD" if $@; + + all_pod_files_ok(all_pod_files()); +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.010.basics.t Class-AutoClass-1.53/t/autoclass.010.basics.t +--- Class-AutoClass-1.53-orig/t/autoclass.010.basics.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.010.basics.t 2010-08-21 21:50:57.000000000 +0200 +@@ -217,4 +217,4 @@ + @$actual{@attrs}=$object->get(@attrs); + cmp_values($actual,$correct,'get new values via get all at once'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.011.class_attributes.t Class-AutoClass-1.53/t/autoclass.011.class_attributes.t +--- Class-AutoClass-1.53-orig/t/autoclass.011.class_attributes.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.011.class_attributes.t 2010-08-21 21:44:39.000000000 +0200 +@@ -3,7 +3,7 @@ + use Parent; + use Child; + use GrandChild; +-use Test::More; ++use Test::More qw(no_plan); + + my $p = Parent->population; + is ($p, 42, 'class variable init\'d at declare time, also answer to life, universe, etc'); +@@ -60,4 +60,4 @@ + is (Parent->class_hash->{these}, 'those', 'invokation by classname to get a hash value'); + is (GrandChild->class_hash->{these}, 'them', 'invokation by classname to get a hash value w/inheritance'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.011.inconsistent.t Class-AutoClass-1.53/t/autoclass.011.inconsistent.t +--- Class-AutoClass-1.53-orig/t/autoclass.011.inconsistent.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.011.inconsistent.t 2010-08-21 21:44:39.000000000 +0200 +@@ -1,6 +1,6 @@ + use strict; + use lib qw(t); +-use Test::More; ++use Test::More qw(no_plan); + use Test::Deep; + + # test inconsistent attributes -- ones declared as both instance and class attributes +@@ -13,4 +13,4 @@ + like($@,qr/^Inconsistent declarations for attribute\(s\) a b/, + 'use autoclass_011::Inconsistent2 found expected inconsistencies'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.011.nullify.t Class-AutoClass-1.53/t/autoclass.011.nullify.t +--- Class-AutoClass-1.53-orig/t/autoclass.011.nullify.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.011.nullify.t 2010-08-21 21:44:39.000000000 +0200 +@@ -1,7 +1,7 @@ + use strict; + use lib qw(t); + use autoclass_011::Nullable; +-use Test::More; ++use Test::More qw(no_plan); + + # this tests the ability to nullify (using the '_NULLIFY_' flag) an AutoClass object so as to + # return undef to the caller +@@ -12,4 +12,4 @@ + is($n2, undef,'nullify set: result undef'); + isnt(ref $n2, 'Nullable','nullify set: result not blessed'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.011.override.t Class-AutoClass-1.53/t/autoclass.011.override.t +--- Class-AutoClass-1.53-orig/t/autoclass.011.override.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.011.override.t 2010-08-21 21:44:39.000000000 +0200 +@@ -2,7 +2,7 @@ + use lib qw(t); + use autoclass_011::Override; + use Child; +-use Test::More; ++use Test::More qw(no_plan); + + # this tests the ability to override the AutoClass object with another object (using the '_OVERRIDE__' flag) + my $over1 = new autoclass_011::Override; +@@ -10,4 +10,4 @@ + my $over2 = new autoclass_011::Override(override=>1); # causes Override to set __OVERRIDE__ to true + is(ref $over2, 'Child','override set'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.020.attributes.t Class-AutoClass-1.53/t/autoclass.020.attributes.t +--- Class-AutoClass-1.53-orig/t/autoclass.020.attributes.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.020.attributes.t 2010-08-21 21:50:09.000000000 +0200 +@@ -8,4 +8,4 @@ + + pass('placeholder'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.025.root.t Class-AutoClass-1.53/t/autoclass.025.root.t +--- Class-AutoClass-1.53-orig/t/autoclass.025.root.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.025.root.t 2010-08-21 21:44:39.000000000 +0200 +@@ -1,5 +1,5 @@ + use lib qw(t); +-use Test::More; ++use Test::More qw(no_plan); + use Class::AutoClass::Root; + use IO::Scalar; + use strict; +@@ -41,4 +41,4 @@ + untie *STDERR; + } + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.030.init_self.t Class-AutoClass-1.53/t/autoclass.030.init_self.t +--- Class-AutoClass-1.53-orig/t/autoclass.030.init_self.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.030.init_self.t 2010-08-21 21:52:33.000000000 +0200 +@@ -104,4 +104,4 @@ + my $obj=new autoclass_030::ragged::r5; + cmp_init_self($obj,{init_self_history=>[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)]},'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.030._ref_.t Class-AutoClass-1.53/t/autoclass.030._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.030._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.030._ref_.t 2010-08-21 21:55:38.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_030'; ++#note 'test class prefix is autoclass_030'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_030::ragged::r5; + is(ref $obj,'autoclass_030::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.031._ref_.t Class-AutoClass-1.53/t/autoclass.031._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.031._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.031._ref_.t 2010-08-21 21:55:53.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_031'; ++#note 'test class prefix is autoclass_031'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_031::ragged::r5; + is(ref $obj,'autoclass_031::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.031.super_new.t Class-AutoClass-1.53/t/autoclass.031.super_new.t +--- Class-AutoClass-1.53-orig/t/autoclass.031.super_new.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.031.super_new.t 2010-08-21 21:53:40.000000000 +0200 +@@ -106,4 +106,4 @@ + my $obj=new autoclass_031::ragged::r5; + cmp_super_new($obj,{new_history=>[qw(r5 r1)],init_self_history=>[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)]},'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.032.init_self_ac.t Class-AutoClass-1.53/t/autoclass.032.init_self_ac.t +--- Class-AutoClass-1.53-orig/t/autoclass.032.init_self_ac.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.032.init_self_ac.t 2010-08-21 21:56:46.000000000 +0200 +@@ -105,4 +105,4 @@ + my $obj=new autoclass_032::ragged::r5; + cmp_init_self($obj,{init_self_history=>[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)]},'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.032._ref_.t Class-AutoClass-1.53/t/autoclass.032._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.032._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.032._ref_.t 2010-08-21 21:57:04.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_032'; ++#note 'test class prefix is autoclass_032'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_032::ragged::r5; + is(ref $obj,'autoclass_032::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.033._ref_.t Class-AutoClass-1.53/t/autoclass.033._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.033._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.033._ref_.t 2010-08-21 21:57:30.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_033'; ++#note 'test class prefix is autoclass_033'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_033::ragged::r5; + is(ref $obj,'autoclass_033::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.033.super_new_ac.t Class-AutoClass-1.53/t/autoclass.033.super_new_ac.t +--- Class-AutoClass-1.53-orig/t/autoclass.033.super_new_ac.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.033.super_new_ac.t 2010-08-21 21:57:47.000000000 +0200 +@@ -106,4 +106,4 @@ + my $obj=new autoclass_033::ragged::r5; + cmp_super_new($obj,{new_history=>[qw(r5)],init_self_history=>[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)]},'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.034.external_one.t Class-AutoClass-1.53/t/autoclass.034.external_one.t +--- Class-AutoClass-1.53-orig/t/autoclass.034.external_one.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.034.external_one.t 2010-08-21 21:58:20.000000000 +0200 +@@ -106,4 +106,4 @@ + my $obj=new autoclass_034::ragged::r5; + cmp_external($obj,{ext_history=>[qw(ext)],init_self_history=>[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)]},'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.034._ref_.t Class-AutoClass-1.53/t/autoclass.034._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.034._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.034._ref_.t 2010-08-21 21:58:37.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_034'; ++#note 'test class prefix is autoclass_034'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_034::ragged::r5; + is(ref $obj,'autoclass_034::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.035.external_all.t Class-AutoClass-1.53/t/autoclass.035.external_all.t +--- Class-AutoClass-1.53-orig/t/autoclass.035.external_all.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.035.external_all.t 2010-08-21 21:59:02.000000000 +0200 +@@ -107,4 +107,4 @@ + my $obj=new autoclass_035::ragged::r5; + cmp_external($obj,{init_self_history=>[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)]},'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.035._ref_.t Class-AutoClass-1.53/t/autoclass.035._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.035._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.035._ref_.t 2010-08-21 21:59:22.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_035'; ++#note 'test class prefix is autoclass_035'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_035::ragged::r5; + is(ref $obj,'autoclass_035::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.036.declare.t Class-AutoClass-1.53/t/autoclass.036.declare.t +--- Class-AutoClass-1.53-orig/t/autoclass.036.declare.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.036.declare.t 2010-08-21 21:59:35.000000000 +0200 +@@ -104,4 +104,4 @@ + my $obj=new autoclass_036::ragged::r5; + cmp_init_self($obj,{init_self_history=>[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)]},'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.036._ref_.t Class-AutoClass-1.53/t/autoclass.036._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.036._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.036._ref_.t 2010-08-21 21:59:52.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_036'; ++#note 'test class prefix is autoclass_036'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_036::ragged::r5; + is(ref $obj,'autoclass_036::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.037.declare_pkg.t Class-AutoClass-1.53/t/autoclass.037.declare_pkg.t +--- Class-AutoClass-1.53-orig/t/autoclass.037.declare_pkg.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.037.declare_pkg.t 2010-08-21 22:00:06.000000000 +0200 +@@ -104,4 +104,4 @@ + my $obj=new autoclass_037::ragged::r5; + cmp_init_self($obj,{init_self_history=>[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)]},'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.037._ref_.t Class-AutoClass-1.53/t/autoclass.037._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.037._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.037._ref_.t 2010-08-21 22:00:26.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_037'; ++#note 'test class prefix is autoclass_037'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_037::ragged::r5; + is(ref $obj,'autoclass_037::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.038.init_self_inherit.t Class-AutoClass-1.53/t/autoclass.038.init_self_inherit.t +--- Class-AutoClass-1.53-orig/t/autoclass.038.init_self_inherit.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.038.init_self_inherit.t 2010-08-21 22:00:43.000000000 +0200 +@@ -104,4 +104,4 @@ + my $obj=new autoclass_038::ragged::r5; + cmp_init_self($obj,{init_self_history=>[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)]},'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.038._ref_.t Class-AutoClass-1.53/t/autoclass.038._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.038._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.038._ref_.t 2010-08-21 22:01:05.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_038'; ++#note 'test class prefix is autoclass_038'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_038::ragged::r5; + is(ref $obj,'autoclass_038::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.039.attribute_order.t Class-AutoClass-1.53/t/autoclass.039.attribute_order.t +--- Class-AutoClass-1.53-orig/t/autoclass.039.attribute_order.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.039.attribute_order.t 2010-08-21 22:01:27.000000000 +0200 +@@ -138,4 +138,4 @@ + my $obj=new autoclass_039::ragged::r5 attrs qw(r1 r20 r21 r22 r30 r31 r32 r4 r5); + cmp_attribute_order($obj,[qw(r1 r20 r21 r22 r30 r31 r32 r4 r5)],'r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.039._ref_.t Class-AutoClass-1.53/t/autoclass.039._ref_.t +--- Class-AutoClass-1.53-orig/t/autoclass.039._ref_.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.039._ref_.t 2010-08-21 22:01:43.000000000 +0200 +@@ -6,7 +6,7 @@ + use autoclassUtil; + + # sanity checks +-note 'test class prefix is autoclass_039'; ++#note 'test class prefix is autoclass_039'; + my $autoclass=new Class::AutoClass; + is(ref $autoclass,'Class::AutoClass','class is Class::AutoClass - sanity check'); + +@@ -94,4 +94,4 @@ + my $obj=new autoclass_039::ragged::r5; + is(ref $obj,'autoclass_039::ragged::r5','r5'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.099.docs.t Class-AutoClass-1.53/t/autoclass.099.docs.t +--- Class-AutoClass-1.53-orig/t/autoclass.099.docs.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.099.docs.t 2010-08-21 22:06:15.000000000 +0200 +@@ -114,5 +114,5 @@ + my($first,$last)=$john->get(qw(first_name last_name)); + cmp_deeply([$first,$last],[qw(Joe Brown)],'get in METHODS AND FUNCTIONS'); + +-done_testing(); ++#done_testing(); + +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.100.no_autoclass.t Class-AutoClass-1.53/t/autoclass.100.no_autoclass.t +--- Class-AutoClass-1.53-orig/t/autoclass.100.no_autoclass.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.100.no_autoclass.t 2010-08-21 21:44:39.000000000 +0200 +@@ -1,6 +1,6 @@ + use strict; + use lib qw(t); +-use Test::More; ++use Test::More qw(no_plan); + use autoclass_100::Parent; + + # this is a regression test covering the use of a class that does not inherit from AutoClass +@@ -43,4 +43,4 @@ + is($object->syn,'synonym','synonym default'); + is($object->real,'synonym','target of synonym equals synonym default'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.101.no_use_parent.t Class-AutoClass-1.53/t/autoclass.101.no_use_parent.t +--- Class-AutoClass-1.53-orig/t/autoclass.101.no_use_parent.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.101.no_use_parent.t 2010-08-21 22:07:07.000000000 +0200 +@@ -1,6 +1,6 @@ + use strict; + use lib qw(t); +-use Test::More; ++use Test::More qw(no_plan); + use Test::Deep; + use autoclass_101::Child; + +@@ -10,7 +10,7 @@ + my $child=new autoclass_101::Child; + isa_ok($child,'autoclass_101::Child','new'); + +-note 'test child attributes'; ++#note 'test child attributes'; + # test defaults + is($child->auto_c,'child auto attribute','child auto attribute default'); + is($child->other_c,'child other attribute','child other attribute default'); +@@ -44,7 +44,7 @@ + is($child->real_c,6789,'child target of synonym can be gotten'); + is($child->syn_c,6789,'child synonym equals target of synonym'); + +-note 'test parent attributes'; ++#note 'test parent attributes'; + # test defaults + is($child->auto_p,'parent auto attribute','parent auto attribute default'); + is($child->other_p,'parent other attribute','parent other attribute default'); +@@ -79,7 +79,7 @@ + is($child->syn_p,6789,'parent synonym equals target of synonym'); + + # test defaults again. should be same as before except for class +-note 'test child and parent defaults again. should be same as before except for class'; ++#note 'test child and parent defaults again. should be same as before except for class'; + my $child =new autoclass_101::Child; + + is($child->auto_c,'child auto attribute','child auto attribute default 2nd time'); +@@ -94,4 +94,4 @@ + is($child->syn_p,'parent synonym','parent synonym default 2nd time'); + is($child->real_p,'parent synonym','parent target of synonym equals synonym default 2nd time'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.102.use_order.t Class-AutoClass-1.53/t/autoclass.102.use_order.t +--- Class-AutoClass-1.53-orig/t/autoclass.102.use_order.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.102.use_order.t 2010-08-21 21:44:39.000000000 +0200 +@@ -1,6 +1,6 @@ + use strict; + use lib qw(t); +-use Test::More; ++use Test::More qw(no_plan); + use Test::Deep; + + # this is a regression test covering classes that are 'used' out of order +@@ -58,4 +58,4 @@ + is($grandchild->parent_class_default,'parent','parent class default set in grandchild'); + is($grandchild->stepparent_class_default,'stepparent','stepparent class default set in grandchild'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.103.defaults.t Class-AutoClass-1.53/t/autoclass.103.defaults.t +--- Class-AutoClass-1.53-orig/t/autoclass.103.defaults.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.103.defaults.t 2010-08-21 21:44:39.000000000 +0200 +@@ -1,6 +1,6 @@ + use strict; + use lib qw(t); +-use Test::More; ++use Test::More qw(no_plan); + use autoclass_103::Parent; + use autoclass_103::Child; + use autoclass_103::GrandChild; +@@ -50,4 +50,4 @@ + ok(!defined $grandchild->{'b'},'grandchild: virtual default not stored in object HASH'); + # ok(!defined $grandchild->{'z'},'grandchild: unused default not stored in object HASH'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.104.syn_defaults.t Class-AutoClass-1.53/t/autoclass.104.syn_defaults.t +--- Class-AutoClass-1.53-orig/t/autoclass.104.syn_defaults.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.104.syn_defaults.t 2010-08-21 22:07:35.000000000 +0200 +@@ -1,6 +1,6 @@ + use strict; + use lib qw(t); +-use Test::More; ++use Test::More qw(no_plan); + + # NG 05-12-08: regression test for incorrect handling of defaults for synonyms. + # consider syn=>'real'. there are 6 cases +@@ -18,7 +18,7 @@ + + my($parent,$child); + +-note('Tests for handling of defaults with synonyms. Parent only'); ++#note('Tests for handling of defaults with synonyms. Parent only'); + my $case; + $case='args nothing, defaults syn'; + $parent=new autoclass_104::Parent_default_syn; +@@ -41,7 +41,7 @@ + is($parent->syn,'arg',"parent: $case"); + + +-note('Tests for handling of defaults with synonyms. Parent and Child'); ++#note('Tests for handling of defaults with synonyms. Parent and Child'); + $case='args nothing, defaults syn'; + $parent=new Parent; + $child=new autoclass_104::Child_default_syn; +@@ -74,4 +74,4 @@ + is($parent->syn,'arg',"parent: $case"); + is($child->syn,'arg',"child: $case"); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.105.synonyms.t Class-AutoClass-1.53/t/autoclass.105.synonyms.t +--- Class-AutoClass-1.53-orig/t/autoclass.105.synonyms.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.105.synonyms.t 2010-08-21 21:44:39.000000000 +0200 +@@ -3,7 +3,7 @@ + # use lib map {glob($_)} qw(../lib ~/lib/perl5 ~/lib/perl5/site_perl/5.8.5); + use Parent; + use Child; +-use Test::More; ++use Test::More qw(no_plan); + + # this is a regression test covering a bug (SF# 1222961) where synonyms are not created consistent + # with the documentation +@@ -31,4 +31,4 @@ + $child=new Child(whatisya=>'brought you'); + is($child->stork, 'brought you', 'var set using "whatisya" (Parent synonym), read using "stork"'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.106.synonyms.t Class-AutoClass-1.53/t/autoclass.106.synonyms.t +--- Class-AutoClass-1.53-orig/t/autoclass.106.synonyms.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.106.synonyms.t 2010-08-21 21:44:39.000000000 +0200 +@@ -3,7 +3,7 @@ + use autoclass_106::Parent; + use autoclass_106::Child; + use GrandChild; +-use Test::More; ++use Test::More qw(no_plan); + + # this is a regression test covering a bug where 2 or more synonyms exist + # for the same attribute, one synonym is set in the args, and a default +@@ -23,4 +23,4 @@ + is($child->syn3, $child->real, 'syn3 same as real'); + is($child->syn3, $child->real, 'syn4 same as real'); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclass.107.code_refs.t Class-AutoClass-1.53/t/autoclass.107.code_refs.t +--- Class-AutoClass-1.53-orig/t/autoclass.107.code_refs.t 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclass.107.code_refs.t 2010-08-21 21:44:39.000000000 +0200 +@@ -19,7 +19,7 @@ + + package main; + use strict; +-use Test::More; ++use Test::More qw(no_plan); + use Test::Deep; + + # make object and make sure defaults set +@@ -54,4 +54,4 @@ + my $glob=$obj1->glob_ref; + ok(('GLOB' eq ref $glob) && ($$$glob eq "target for testing glob default"),"$label: code ref"); + +-done_testing(); ++#done_testing(); +diff -ruN Class-AutoClass-1.53-orig/t/autoclassUtil.pm Class-AutoClass-1.53/t/autoclassUtil.pm +--- Class-AutoClass-1.53-orig/t/autoclassUtil.pm 2010-01-06 23:23:10.000000000 +0100 ++++ Class-AutoClass-1.53/t/autoclassUtil.pm 2010-08-21 21:44:39.000000000 +0200 +@@ -2,7 +2,7 @@ + use lib qw(t); + use strict; + use Carp; +-use Test::More; ++use Test::More qw(no_plan); + # NG 09-11-19: Test::Deep doesn't export cmp_details, deep_diag until recent version (0.104) + # so we import them "by hand" instead. import of bag, methods was never needed. + # use Test::Deep qw(bag methods cmp_details deep_diag); diff --git a/perl-Class-AutoClass.changes b/perl-Class-AutoClass.changes new file mode 100644 index 0000000..8ceff8b --- /dev/null +++ b/perl-Class-AutoClass.changes @@ -0,0 +1,12 @@ +------------------------------------------------------------------- +Sat Aug 21 20:08:25 UTC 2010 - chris@computersalat.de + +- changelog to changes file +- add Build_n_Test patch <= 1120 + o enabled check + +------------------------------------------------------------------- +Wed Jul 28 14:28:58 UTC 2010 - kai.blin@biotech.uni-tuebingen.de + +- Initial spec file + diff --git a/perl-Class-AutoClass.spec b/perl-Class-AutoClass.spec new file mode 100644 index 0000000..70d8c2a --- /dev/null +++ b/perl-Class-AutoClass.spec @@ -0,0 +1,88 @@ +# +# spec file for package perl-Class-AutoClass (Version 1.53) +# +# Copyright (c) 2010 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 +# upon. The license for this file, and modifications and additions to the +# file, is the same license as for the pristine package itself (unless the +# license for the pristine package is not an Open Source License, in which +# case the license is the MIT License). An "Open Source License" is a +# license that conforms to the Open Source Definition (Version 1.9) +# published by the Open Source Initiative. + +# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# + +# norootforbuild + +Name: perl-Class-AutoClass +%define cpan_name Class-AutoClass +Summary: Create get and set methods and simplify object initialization +Version: 1.53 +Release: 1 +License: GPL+ or Artistic +Group: Development/Libraries/Perl +Url: http://search.cpan.org/dist/Class-AutoClass/ +#Source: http://www.cpan.org/modules/by-module/Class/Class-AutoClass-%{version}.tar.gz +Source: %{cpan_name}-%{version}.tar.bz2 +Patch0: %{cpan_name}_Build_n_Test.patch +BuildArch: noarch +BuildRoot: %{_tmppath}/%{name}-%{version}-build +BuildRequires: perl +BuildRequires: perl(Module::Build) +%if 0%{?suse_version} < 1120 +BuildRequires: perl-macros +%endif +%if 0%{?suse_version} > 1120 +BuildRequires: perl(Test::More) >= 0.88 +%endif +BuildRequires: perl(Carp) +BuildRequires: perl(Exporter) +BuildRequires: perl(Hash::AutoHash::Args) >= 1.10 +BuildRequires: perl(IO::Scalar) >= 2.1 +BuildRequires: perl(Scalar::Util) >= 1.01 +BuildRequires: perl(Test::Deep) >= 0.098 +Requires: perl = %{perl_version} +Requires: perl(Carp) +Requires: perl(Hash::AutoHash::Args) >= 1.10 +Requires: perl(Storable) >= 2.16 + +%description +This is yet another module that generates standard 'get' and 'set' methods +for Perl classes. It also handles initialization of object and class data +from parameter lists or defaults, and arranges for object creation and +initialization to occur in top-down, textbook order even in the presence of +multiple inheritance. + +Authors: +-------- + Nat Goodman + Chris Cavnor + +%prep +%setup -q -n %{cpan_name}-%{version} +%if 0%{?suse_version} <= 1120 +%patch0 -p1 +%endif + +%build +%{__perl} Build.PL installdirs=vendor +./Build + +%check +./Build test + +%install +./Build install destdir=$RPM_BUILD_ROOT create_packlist=0 +%perl_gen_filelist + +%clean +%{__rm} -rf $RPM_BUILD_ROOT + +%files -f %{name}.files +%defattr(-,root,root,-) +%doc Changes README + +%changelog