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
This commit is contained in:
Christian Wittmer
2010-08-21 20:13:57 +00:00
committed by Git OBS Bridge
commit 1d7da298c8
6 changed files with 736 additions and 0 deletions

23
.gitattributes vendored Normal file
View File

@@ -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

1
.gitignore vendored Normal file
View File

@@ -0,0 +1 @@
.osc

View File

@@ -0,0 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:16a78da5b6c0814b702556a0ea93e3f51422edba63cf5200a57a101355d1437a
size 38828

View File

@@ -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);

View File

@@ -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

88
perl-Class-AutoClass.spec Normal file
View File

@@ -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