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
Git OBS Bridge
23
.gitattributes
vendored
Normal file
23
.gitattributes
vendored
Normal 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
1
.gitignore
vendored
Normal file
@@ -0,0 +1 @@
|
||||
.osc
|
||||
3
Class-AutoClass-1.53.tar.bz2
Normal file
3
Class-AutoClass-1.53.tar.bz2
Normal file
@@ -0,0 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:16a78da5b6c0814b702556a0ea93e3f51422edba63cf5200a57a101355d1437a
|
||||
size 38828
|
||||
609
Class-AutoClass_Build_n_Test.patch
Normal file
609
Class-AutoClass_Build_n_Test.patch
Normal 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);
|
||||
12
perl-Class-AutoClass.changes
Normal file
12
perl-Class-AutoClass.changes
Normal 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
88
perl-Class-AutoClass.spec
Normal 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
|
||||
Reference in New Issue
Block a user