X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2Fapache_mvc.t;h=e6a110047b69b79d1b519c3960d406955c9c0544;hb=c6b94234b3a4b2a40760748538b3380c6c39b611;hp=9a3eafdb09b71ee081f0d14d3ac1940b13fd4aca;hpb=b1d78352f8dc3f27b8ddda28d638ba3e80d2abf5;p=maypole.git

diff --git a/t/apache_mvc.t b/t/apache_mvc.t
index 9a3eafd..e6a1100 100644
--- a/t/apache_mvc.t
+++ b/t/apache_mvc.t
@@ -1,12 +1,17 @@
 #!/usr/bin/perl -w
 use strict;
 use Test::More;
-BEGIN { if (eval { require mod_perl }) { 
-            plan tests => 2;
-        } else { Test::More->import(skip_all =>"mod_perl is not installed: $@") }
-      }
+BEGIN {
+    if (eval { require Apache::Request }) {
+        plan tests => 3;
+    } else {
+        Test::More->import(skip_all =>"Apache::Request is not 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'