X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2F1.t;h=fe7939c61ea11109f4702b8823a3420c4837dae5;hb=4c4e58eb02155a43397f30b900c5b30f755cb874;hp=ff8ae7347db6a2b5f7a7e566147f96803dde4f69;hpb=feefb416b3c1aafdea07aa47378d007ee760e9f9;p=maypole.git diff --git a/t/1.t b/t/1.t index ff8ae73..fe7939c 100644 --- a/t/1.t +++ b/t/1.t @@ -1,23 +1,3 @@ # vim:ft=perl use Test::More 'no_plan'; - -package Fake::Loader; - -package Fake::MVC; -use base 'Apache::MVC'; - -sub set_database { - my $self = shift; - $self->config->{loader} = bless {}, Fake::Loader; -} - -sub get_request {} - -sub parse_location { - my $self = shift; - my @pi = @Fake::MVC::url; - shift @pi while @pi and !$pi[0]; - $self->{table} = shift @pi; - $self->{action} = shift @pi; - $self->{args} = \@pi; -} +use_ok('Apache::MVC');