perl/perl-Class-AutoClass
SHA256
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
perl-Class-AutoClass/Class-AutoClass_Build_n_Test.patch
Christian Wittmer 1d7da298c8 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
2010-08-21 20:13:57 +00:00

610 lines
25 KiB
Diff
Raw Permalink Blame History

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);
Reference in New Issue View Git Blame Copy Permalink