diff options
| -rwxr-xr-x | t/Cobrand.t | 4 | ||||
| -rw-r--r-- | t/MockQuery.pm | 34 |
2 files changed, 2 insertions, 36 deletions
diff --git a/t/Cobrand.t b/t/Cobrand.t index 1db4de024..b5559381c 100755 --- a/t/Cobrand.t +++ b/t/Cobrand.t @@ -6,7 +6,7 @@ # Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved. # Email: louise@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Cobrand.t,v 1.21 2009-10-21 15:03:32 louise Exp $ +# $Id: Cobrand.t,v 1.22 2009-10-21 15:58:25 louise Exp $ # use strict; @@ -20,7 +20,7 @@ use lib "$FindBin::Bin/../perllib"; use lib "$FindBin::Bin/../../perllib"; use Cobrand; -use MockQuery; +use mySociety::MockQuery; sub test_site_restriction { my $q = new MockQuery('mysite'); diff --git a/t/MockQuery.pm b/t/MockQuery.pm deleted file mode 100644 index f01aad5ac..000000000 --- a/t/MockQuery.pm +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl -w -# -# MockQuery.pm: -# Mock query to support tests for the Page functions -# -# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved. -# Email: louise@mysociety.org; WWW: http://www.mysociety.org/ -# -# $Id: MockQuery.pm,v 1.2 2009-09-15 13:55:17 louise Exp $ -# - - -package MockQuery; - -sub new { - my ($class, $site, $params) = @_; - my $self = { - site => $site, - params => $params, - }; - bless $self, $class; - return $self; -} - -sub header { - -} - -sub param { - my ($self, $key) = @_; - return $self->{params}->{$key}; -} - -1; |