X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2Fapache_mvc.t;h=75e1a0abad523b739515ebb483caa358eeb76091;hb=e620c543434f3cfff5e54066d106ecfade45a472;hp=4bb718571676329d9de13ba29daff59a54cc1707;hpb=b65ee86d592a4038c2bd7f354a29894145758893;p=maypole.git

diff --git a/t/apache_mvc.t b/t/apache_mvc.t
index 4bb7185..75e1a0a 100644
--- a/t/apache_mvc.t
+++ b/t/apache_mvc.t
@@ -1,10 +1,22 @@
 #!/usr/bin/perl -w
 use strict;
-use Test::More tests => 10;
-use Test::MockObject;
+use Test::More;
+
+BEGIN {
+    if (eval { require Apache2::RequestRec }) {
+       $ENV{MOD_PERL_API_VERSION} = 2;
+        plan tests => 3;
+    } elsif (eval { require Apache::Request }) {
+        plan tests => 3;
+    } else {
+	Test::More->import(skip_all =>"Neither Apache2::RequestRec nor Apache::Request is installed: $@");
+    }
+}
 
 require_ok('Apache::MVC');
 ok($Apache::MVC::VERSION, 'defines $VERSION');
+ok(Apache::MVC->can('ar'), 'defines an "ar" accessor');
+
 # defines $VERSION
 # uses mod_perl
 # @ISA = 'Maypole'