rpms/perl-Module-Implementation
7
0
Fork 0
Code Issues Pull Requests Releases Activity
d407a789f3
perl-Module-Implementation/Module-Implementation-0.03-old-Test::More.patch
Paul Howarth d407a789f3 Initial import (perl-Module-Implementation-0.03-3) 
This module abstracts out the process of choosing one of several underlying
implementations for a module. This can be used to provide XS and pure Perl
implementations of a module, or it could be used to load an implementation
for a given OS or any other case of needing to provide multiple
implementations.

This module is only useful when you know all the implementations ahead of
time. If you want to load arbitrary implementations then you probably want
something like a plugin system, not this module.
2012-02-08 16:02:35 +00:00

169 lines
5.3 KiB
Diff
Raw Blame History

diff -up Module-Implementation-0.03/t/basic.t.orig Module-Implementation-0.03/t/basic.t
--- Module-Implementation-0.03/t/basic.t.orig 2012-02-06 23:03:58.000000000 +0000
+++ Module-Implementation-0.03/t/basic.t 2012-02-07 10:04:29.846798279 +0000
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 5;
{
package T;
@@ -29,5 +29,3 @@ use Test::More 0.88;
is( T::return_42(), 42, 'T::return_42 work as expected' );
is( T::_implementation(), 'Impl1', 'T::_implementation returns default implementation' );
}
-
-done_testing();
diff -up Module-Implementation-0.03/t/both-fail.t.orig Module-Implementation-0.03/t/both-fail.t
--- Module-Implementation-0.03/t/both-fail.t.orig 2012-02-06 23:03:58.000000000 +0000
+++ Module-Implementation-0.03/t/both-fail.t 2012-02-07 10:04:29.875798277 +0000
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 1;
use Test::Fatal;
{
@@ -24,5 +24,3 @@ use Test::Fatal;
'Got an exception when all implementations fail to load'
);
}
-
-done_testing();
diff -up Module-Implementation-0.03/t/env-value.t.orig Module-Implementation-0.03/t/env-value.t
--- Module-Implementation-0.03/t/env-value.t.orig 2012-02-06 23:03:58.000000000 +0000
+++ Module-Implementation-0.03/t/env-value.t 2012-02-07 10:04:30.005798265 +0000
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 4;
{
package T;
@@ -31,5 +31,3 @@ use Test::More 0.88;
is( T::return_42(), 42, 'T::return_42 work as expected' );
is( T::_implementation(), 'Impl2', 'T::_implementation returns implementation set in ENV' );
}
-
-done_testing();
diff -up Module-Implementation-0.03/t/more-symbols.t.orig Module-Implementation-0.03/t/more-symbols.t
--- Module-Implementation-0.03/t/more-symbols.t.orig 2012-02-06 23:03:58.000000000 +0000
+++ Module-Implementation-0.03/t/more-symbols.t 2012-02-07 10:04:30.042798260 +0000
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 7;
{
package T;
@@ -43,5 +43,3 @@ use Test::More 0.88;
'%T::HASH was copied from implementation'
);
}
-
-done_testing();
diff -up Module-Implementation-0.03/t/one-impl-fails1.t.orig Module-Implementation-0.03/t/one-impl-fails1.t
--- Module-Implementation-0.03/t/one-impl-fails1.t.orig 2012-02-06 23:03:58.000000000 +0000
+++ Module-Implementation-0.03/t/one-impl-fails1.t 2012-02-07 10:04:30.042798260 +0000
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 2;
{
package T;
@@ -24,5 +24,3 @@ use Test::More 0.88;
ok( T->can('return_42'), 'T package has a return_42 sub' );
ok( !T->can('return_package'), 'T package has a return_package sub' );
}
-
-done_testing();
diff -up Module-Implementation-0.03/t/one-impl-fails2.t.orig Module-Implementation-0.03/t/one-impl-fails2.t
--- Module-Implementation-0.03/t/one-impl-fails2.t.orig 2012-02-06 23:03:58.000000000 +0000
+++ Module-Implementation-0.03/t/one-impl-fails2.t 2012-02-07 10:04:30.043798260 +0000
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 2;
{
package T;
@@ -24,5 +24,3 @@ use Test::More 0.88;
ok( T->can('return_42'), 'T package has a return_42 sub' );
ok( !T->can('return_package'), 'T package has a return_package sub' );
}
-
-done_testing();
diff -up Module-Implementation-0.03/t/release-cpan-changes.t.orig Module-Implementation-0.03/t/release-cpan-changes.t
--- Module-Implementation-0.03/t/release-cpan-changes.t.orig 2012-02-06 23:03:58.000000000 +0000
+++ Module-Implementation-0.03/t/release-cpan-changes.t 2012-02-07 10:07:00.466837268 +0000
@@ -1,15 +1,11 @@
#!perl
+use Test::More;
+
BEGIN {
- unless ($ENV{RELEASE_TESTING}) {
- require Test::More;
- Test::More::plan(skip_all => 'these tests are for release candidate testing');
- }
+ plan skip_all => 'these tests are for release candidate testing' unless ($ENV{RELEASE_TESTING});
+ eval 'use Test::CPAN::Changes';
+ plan skip_all => 'Test::CPAN::Changes required for this test' if $@;
}
-
-use Test::More;
-eval 'use Test::CPAN::Changes';
-plan skip_all => 'Test::CPAN::Changes required for this test' if $@;
changes_ok();
-done_testing();
diff -up Module-Implementation-0.03/t/requested-fails.t.orig Module-Implementation-0.03/t/requested-fails.t
--- Module-Implementation-0.03/t/requested-fails.t.orig 2012-02-06 23:03:58.000000000 +0000
+++ Module-Implementation-0.03/t/requested-fails.t 2012-02-07 10:04:30.043798260 +0000
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 1;
use Test::Fatal;
{
@@ -26,5 +26,3 @@ use Test::Fatal;
'Got an exception when implementation requested in env value fails to load'
);
}
-
-done_testing();
diff -up Module-Implementation-0.03/t/taint.t.orig Module-Implementation-0.03/t/taint.t
--- Module-Implementation-0.03/t/taint.t.orig 2012-02-06 23:03:58.000000000 +0000
+++ Module-Implementation-0.03/t/taint.t 2012-02-07 10:04:30.043798260 +0000
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 3;
use Test::Fatal;
use Test::Taint;
@@ -35,5 +35,3 @@ taint_checking_ok();
{
is( T::_implementation(), 'Impl2', 'T::_implementation returns implementation set in ENV' );
}
-
-done_testing();
Reference in New Issue View Git Blame Copy Permalink