From 77df67e7c204455453a74aab6e7333c06b6dfab9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 20 Jan 2006 00:11:53 +0000
Subject: [PATCH] additional tests for Session::Url

---
 t/Session/Url.t | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/t/Session/Url.t b/t/Session/Url.t
index 52b157ad0..9906ccd2e 100644
--- a/t/Session/Url.t
+++ b/t/Session/Url.t
@@ -15,7 +15,7 @@ use lib "$FindBin::Bin/../lib";
 use WebGUI::Test;
 use WebGUI::Session;
 
-use Test::More tests => 11; # increment this value for each test you create
+use Test::More tests => 15; # increment this value for each test you create
 
 my $session = WebGUI::Test->session;
 
@@ -27,12 +27,16 @@ $session->setting->set('preventProxyCache', 0) if ($preventProxyCache);
 my $url = 'http://localhost.localdomain/foo';
 my $url2;
 
+diag("append tests");
+
 $url2 = $session->url->append($url,'a=b');
 is( $url2, $url.'?a=b', 'append first pair');
 
 $url2 = $session->url->append($url2,'c=d');
 is( $url2, $url.'?a=b;c=d', 'append second pair');
 
+diag("gateway tests");
+
 $session->config->{_config}->set(gateway => 'home.com');
 
 is ( $session->config->get('gateway'), 'home.com', 'Set gateway for downstream tests');
@@ -70,6 +74,24 @@ is( $url2, $session->config->get('gateway').$url.'?a=b', 'append one pair via ga
 #Restore original proxy cache setting so downstream tests work with no surprises
 $session->setting->set(preventProxyCache => $preventProxyCache );
 
+diag("site URL tests");
+
+my $sitename = $session->config->get('sitename')->[0];
+is ( $session->url->getSiteURL, 'http://'.$sitename, 'getSiteURL from config');
+
+$session->url->setSiteURL('http://webgui.org');
+is ( $session->url->getSiteURL, 'http://webgui.org', 'override config setting with setSiteURL');
+
+$session->url->setSiteURL('http://'.$sitename);
+is ( $session->url->getSiteURL, 'http://'.$sitename, 'restore config setting');
+
+diag("compliancy tests");
+
+$url  = 'level1 /level2/level3   ';
+$url2 = 'level1-/level2/level3';
+
+is ( $session->url->makeCompliant($url), $url2, 'language specific URL compliance');
+
 SKIP: {
 	skip("getRequestedUrl requires a valid Apache request object",1);
 	ok(undef,"getRequestedUrl");