| Subject: | spurious test dependencies |
AI::Prolog has mandatory dependencies on a number of non-standard Test::* modules. This
patch makes them optional.
| Subject: | prolog.diff |
diff -rpuw ../AI-Prolog-0.737-my7kvi/Makefile.PL /Users/seano/src/perl/AI-Prolog/Makefile.PL
--- ../AI-Prolog-0.737-my7kvi/Makefile.PL 2007-03-21 08:23:39.000000000 -0700
+++ /Users/seano/src/perl/AI-Prolog/Makefile.PL 2007-05-01 11:14:54.000000000 -0700
@@ -29,10 +29,6 @@ WriteMakefile(
'Hash::AsObject' => 0.05,
'Pod::Usage' => 1.12,
'Regexp::Common' => 2.119,
- 'Test::Differences' => 0.47,
- 'Test::Exception' => 0.20,
- 'Test::MockModule' => 0.04,
- 'Test::Warn' => 0.08,
'Text::Balanced' => 1.95,
'Text::Quote' => 0.03,
'Scalar::Util' => 0,
Only in /Users/seano/src/perl/AI-Prolog: Makefile.PL~
Only in /Users/seano/src/perl/AI-Prolog: Makefile.old
diff -rpuw ../AI-Prolog-0.737-my7kvi/t/40parser.t /Users/seano/src/perl/AI-Prolog/t/40parser.t
--- ../AI-Prolog-0.737-my7kvi/t/40parser.t 2007-01-14 22:50:54.000000000 -0800
+++ /Users/seano/src/perl/AI-Prolog/t/40parser.t 2007-05-01 11:14:54.000000000 -0700
@@ -2,9 +2,16 @@
# '$Id: 40parser.t,v 1.6 2005/08/06 23:28:40 ovid Exp $';
use warnings;
use strict;
-use Test::More tests => 76;
+use Test::More;
+BEGIN {
+eval 'use Test::MockModule';
+if ($@) {
+ plan skip_all => 'Test::MockModule required for this';
+} else {
+ plan tests => 76;
+}
+}
#use Test::More 'no_plan';
-use Test::MockModule;
my $CLASS;
BEGIN
Only in /Users/seano/src/perl/AI-Prolog/t: 40parser.t~
diff -rpuw ../AI-Prolog-0.737-my7kvi/t/50engine.t /Users/seano/src/perl/AI-Prolog/t/50engine.t
--- ../AI-Prolog-0.737-my7kvi/t/50engine.t 2007-01-14 22:50:55.000000000 -0800
+++ /Users/seano/src/perl/AI-Prolog/t/50engine.t 2007-05-01 11:14:54.000000000 -0700
@@ -2,11 +2,19 @@
# '$Id: 50engine.t,v 1.10 2005/08/06 23:28:40 ovid Exp $';
use warnings;
use strict;
-use Test::More tests => 35;
+use Test::More;
+BEGIN {
+eval q{
+use Test::MockModule;
+use Test::Differences};
+if ($@) {
+ plan skip_all => "Test::MockModule and Test::Differences required for this";
+} else {
+ plan tests => 35;
+}
+}
#use Test::More 'no_plan';
-use Test::MockModule;
-use Test::Differences;
use Clone qw/clone/;
my $CLASS;
diff -rpuw ../AI-Prolog-0.737-my7kvi/t/60aiprolog.t /Users/seano/src/perl/AI-Prolog/t/60aiprolog.t
--- ../AI-Prolog-0.737-my7kvi/t/60aiprolog.t 2007-01-14 22:50:54.000000000 -0800
+++ /Users/seano/src/perl/AI-Prolog/t/60aiprolog.t 2007-05-01 11:14:54.000000000 -0700
@@ -2,9 +2,16 @@
# '$Id: 60aiprolog.t,v 1.3 2005/05/14 18:03:05 ovid Exp $';
use warnings;
use strict;
-use Test::More tests => 5;
+use Test::More;
+eval q{
use Test::MockModule;
-use Test::Differences;
+use Test::Differences};
+if ($@) {
+ plan skip_all => 'Test::MockModule, Test::Differences required for this';
+ exit 0;
+} else {
+ plan tests => 5;
+}
my $CLASS;
BEGIN
Only in /Users/seano/src/perl/AI-Prolog/t: 60aiprolog.t~
diff -rpuw ../AI-Prolog-0.737-my7kvi/t/70builtins.t /Users/seano/src/perl/AI-Prolog/t/70builtins.t
--- ../AI-Prolog-0.737-my7kvi/t/70builtins.t 2007-01-14 22:50:54.000000000 -0800
+++ /Users/seano/src/perl/AI-Prolog/t/70builtins.t 2007-05-01 11:14:54.000000000 -0700
@@ -2,11 +2,19 @@
# '$Id: 70builtins.t,v 1.7 2005/08/06 23:28:40 ovid Exp $';
use warnings;
use strict;
-use Test::More tests => 39;
-#use Test::More qw/no_plan/;
+use Test::More;
+BEGIN {
+eval q{
use Test::MockModule;
+use Test::Differences};
+if ($@) {
+ plan skip_all => "Test::MockModule, Test::Differences required for this";
+} else {
+ plan tests => 39;
+}
+}
+#use Test::More qw/no_plan/;
use Clone qw/clone/;
-use Test::Differences;
BEGIN
{
Only in /Users/seano/src/perl/AI-Prolog/t: 70builtins.t~
diff -rpuw ../AI-Prolog-0.737-my7kvi/t/80math.t /Users/seano/src/perl/AI-Prolog/t/80math.t
--- ../AI-Prolog-0.737-my7kvi/t/80math.t 2007-01-14 22:50:55.000000000 -0800
+++ /Users/seano/src/perl/AI-Prolog/t/80math.t 2007-05-01 11:14:54.000000000 -0700
@@ -2,11 +2,16 @@
# '$Id: 80math.t,v 1.5 2005/08/06 23:28:40 ovid Exp $';
use warnings;
use strict;
-use Test::More tests => 31;
+use Test::More;
+eval q{use Test::MockModule;
+use Test::Differences};
+if ($@) {
+ plan skip_all => "Test::MockModule and Test::Differences required for this";
+} else {
+ plan tests => 31;
+}
#use Test::More qw/no_plan/;
-use Test::MockModule;
use Clone qw/clone/;
-use Test::Differences;
BEGIN
{
Only in /Users/seano/src/perl/AI-Prolog/t: 80math.t~
diff -rpuw ../AI-Prolog-0.737-my7kvi/t/99regression.t /Users/seano/src/perl/AI-Prolog/t/99regression.t
--- ../AI-Prolog-0.737-my7kvi/t/99regression.t 2007-01-14 22:50:55.000000000 -0800
+++ /Users/seano/src/perl/AI-Prolog/t/99regression.t 2007-05-01 11:14:54.000000000 -0700
@@ -2,10 +2,17 @@
# '$Id: 99regression.t,v 1.4 2005/08/06 23:28:40 ovid Exp $';
use warnings;
use strict;
-use Test::More tests => 5;
+use Test::More;
+BEGIN {
+eval q{use Test::MockModule;
+use Test::Exception};
+if ($@) {
+ plan skip_all => "Test::MockModule, Test::Exception required for this";
+} else {
+ plan tests => 5;
+}
+}
#use Test::More qw/no_plan/;
-use Test::MockModule;
-use Test::Exception;
BEGIN
{
Only in /Users/seano/src/perl/AI-Prolog/t: 99regression.t~