Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 47 lines (37 sloc) 1.48 KB
#!/usr/bin/perl -w
# Cobrand.t:
# Tests for the cobranding functions
# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
# Email:; WWW:
# $Id: Cobrand.t,v 1.4 2009-10-27 17:05:16 louise Exp $
use strict;
use warnings;
use Test::More tests => 4;
use Test::Exception;
use FindBin;
use lib "$FindBin::Bin";
use lib "$FindBin::Bin/../perllib";
use lib "$FindBin::Bin/../commonlib/perllib";
use FYR::Cobrand;
use mySociety::MockQuery;
use mySociety::Config;
sub test_base_url_for_emails {
my $cobrand = 'mysite';
# should get the results of the base_url_for_emails function in the cobrand module if one exists
my $base_url = FYR::Cobrand::base_url_for_emails($cobrand);
is('', $base_url, 'base_url_for_emails returns output from cobrand module') ;
$cobrand = 'animalaid';
$base_url = FYR::Cobrand::base_url_for_emails($cobrand);
is('http://animalaid.' . mySociety::Config::get('WEB_DOMAIN'), $base_url, "should return a cobrand subdomain if a cobrand exists but doesn't define its own function");
$cobrand = undef;
$base_url = FYR::Cobrand::base_url_for_emails($cobrand);
is(mySociety::Config::get('BASE_URL'), $base_url, 'should return the base url from the config file if no cobrand is defined');
ok(test_base_url_for_emails() == 1, 'Ran all tests for base_url_for_emails');
Jump to Line
Something went wrong with that request. Please try again.