X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=t%2Fmaypole.t;h=63e7e6585c0a6f97c1c33adc9167c8271ab402ee;hb=fdef988c4b6e0c95310edfed99bcb1bb959a6da4;hp=4c07d21b2834f0a044de9b6983beabadc0baa72f;hpb=2390ea35bcbc4b57278a123d4112d78bd1f7e3f7;p=maypole.git

diff --git a/t/maypole.t b/t/maypole.t
index 4c07d21..63e7e65 100755
--- a/t/maypole.t
+++ b/t/maypole.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Test::More tests => 108;
+use Test::More tests => 107;
 use Test::MockModule;
 
 # module compilation
@@ -23,7 +23,7 @@ ok(Maypole->can('init_done'), 'defines an init_done attribute');
 ok(! Maypole->init_done, '... which is false by default');
 ok(Maypole->can('view_object'), 'defines a view_object attribute');
 is(Maypole->view_object, undef, '... which is undefined');
-ok(Maypole->can('ar'), 'defines an "ar" accessor');
+#ok(Maypole->can('ar'), 'defines an "ar" accessor'); moved to Apache::MVC
 ok(Maypole->can('params'), 'defines a "params" accessor');
 ok(Maypole->can('query'), 'defines a "query" accessor');
 ok(Maypole->can('objects'), 'defines an "objects" accessor');