oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

first part of coding

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
t/AdSpace.t
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);

4
t/AdSpace/Ad.t
View file

@ -115,7 +115,7 @@ SKIP: {
##Link checks
$token = $textP->get_tag("a");
my $href = $token->[1]{href};
my $href = $token->[1]{onclick};
like($href, qr/op=clickAd/, 'ad link has correct operation');
my $adId = $textAd->getId;
@ -159,7 +159,7 @@ SKIP: {
##Link checks
$token = $textP->get_tag("a");
my $href = $token->[1]{href};
my $href = $token->[1]{onclick};
like($href, qr/op=clickAd/, 'ad link has correct operation, image');
$adId = $imageAd->getId;