From dac78e161cb3173068a9a112c049f0d5a94ccfe4 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 12 Nov 2007 05:18:05 +0000
Subject: [PATCH] Coverage tests for getBackToSiteURL brings Session/Url
 coverage up to 100%.

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

diff --git a/t/Session/Url.t b/t/Session/Url.t
index 371ba4d38..fa5db6a1a 100644
--- a/t/Session/Url.t
+++ b/t/Session/Url.t
@@ -51,7 +51,7 @@ my @getRefererUrlTests = (
 );
 
 use Test::More;
-plan tests => 51 + scalar(@getRefererUrlTests);
+plan tests => 54 + scalar(@getRefererUrlTests);
 
 my $session = WebGUI::Test->session;
 
@@ -350,6 +350,31 @@ is(
     q!getBackToSiteURL: Root returns you to the default Asset!
 );
 
+my $statefulAsset = WebGUI::Asset->getRoot($session)->addChild({ className => 'WebGUI::Asset::Snippet' });
+
+$statefulAsset->{_properties}{state} = 'archived';
+$session->asset( $statefulAsset );
+is(
+    $session->url->getBackToSiteURL, 
+    WebGUI::Asset->getRoot($session)->getUrl,
+    q!getBackToSiteURL: When asset state is archived, it returns you to the Asset's container!
+);
+
+$statefulAsset->{_properties}{state} = 'published';
+is(
+    $session->url->getBackToSiteURL, 
+    WebGUI::Asset->getRoot($session)->getUrl,
+    q!getBackToSiteURL: When asset state is published, it returns you to the Asset's container!
+);
+
+
+$statefulAsset->{_properties}{state} = 'trash';
+is(
+    $session->url->getBackToSiteURL, 
+    $defaultAssetUrl,
+    q!getBackToSiteURL: When asset state is not archived or published, it returns you to the default Asset!
+);
+
 END {  ##Always clean-up
 	$session->asset($sessionAsset);
 	$versionTag->rollback;