From 1ab3df1f30c76c94571365761c1df147ddd167c1 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 19 Jan 2006 00:19:49 +0000
Subject: [PATCH] beginnings of Session::Url testing

---
 t/Session/Url.t | 77 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 t/Session/Url.t

diff --git a/t/Session/Url.t b/t/Session/Url.t
new file mode 100644
index 000000000..52b157ad0
--- /dev/null
+++ b/t/Session/Url.t
@@ -0,0 +1,77 @@
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2006 Plain Black Corporation.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use FindBin;
+use strict;
+use lib "$FindBin::Bin/../lib";
+
+use WebGUI::Test;
+use WebGUI::Session;
+
+use Test::More tests => 11; # increment this value for each test you create
+
+my $session = WebGUI::Test->session;
+
+#Enable caching
+my $preventProxyCache = $session->setting->get('preventProxyCache');
+
+$session->setting->set('preventProxyCache', 0) if ($preventProxyCache);
+
+my $url = 'http://localhost.localdomain/foo';
+my $url2;
+
+$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');
+
+$session->config->{_config}->set(gateway => 'home.com');
+
+is ( $session->config->get('gateway'), 'home.com', 'Set gateway for downstream tests');
+
+$url = $session->config->get('gateway') . '/';
+$url2 = $session->url->gateway;
+is ( $url2, $url, 'gateway method, no args');
+
+$url = $session->config->get('gateway') . '/';
+$url2 = $session->url->gateway;
+is ( $url2, $url, 'gateway method, no args');
+
+$url2 = $session->url->gateway('/home');
+$url = $session->config->get('gateway') . '/home';
+is ( $url2, $url, 'gateway method, pageUrl with leading slash');
+
+$url2 = $session->url->gateway('home');
+is ( $url2, $url, 'gateway method, pageUrl without leading slash');
+
+#Disable caching
+$session->setting->set(preventProxyCache => 1);
+
+is ( 1, $session->setting->get('preventProxyCache'), 'disable proxy caching');
+
+$url2 = $session->url->gateway('home');
+like ( $url2, qr/$url\?noCache=\d+;\d+$/, 'check proxy prevention setting');
+
+#Enable caching
+$session->setting->set(preventProxyCache => 0);
+
+$url = '/home';
+$url2 = $session->url->gateway($url,'a=b');
+is( $url2, $session->config->get('gateway').$url.'?a=b', 'append one pair via gateway');
+
+#Restore original proxy cache setting so downstream tests work with no surprises
+$session->setting->set(preventProxyCache => $preventProxyCache );
+
+SKIP: {
+	skip("getRequestedUrl requires a valid Apache request object",1);
+	ok(undef,"getRequestedUrl");
+}
+