first part of coding

This commit is contained in:
David Delikat 2009-02-27 03:37:55 +00:00
parent fc21af73d2
commit 15a2cbd840
5 changed files with 408 additions and 2 deletions

View file

@ -40,6 +40,10 @@ plan tests => $numTests;
my $loaded = use_ok('WebGUI::AdSpace');
my $session = WebGUI::Test->session;
# we need to set env vars to satisfy the 'requestNotViewed'
# test otherwise we will get nothing back...
$session->env()->{_env}{HTTP_USER_AGENT} = 'Mozilla';
$session->env()->{_env}{REMOTE_ADDR} = '127.0.0.1';
my ($adSpace, $alfred, $alfred2, $bruce, $catWoman, $villianClone, $defaultAdSpace );
my ($jokerAd, $penguinAd, $twoFaceAd);