From 7b3ab664fee5ad339f060cd0b46fee547e09fc10 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 17 Apr 2009 17:20:12 +0000
Subject: [PATCH] test for getStaticKeywordUrl

---
 t/Asset/Wobject/StoryArchive.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/t/Asset/Wobject/StoryArchive.t b/t/Asset/Wobject/StoryArchive.t
index 9cf399e7e..68ed2c435 100644
--- a/t/Asset/Wobject/StoryArchive.t
+++ b/t/Asset/Wobject/StoryArchive.t
@@ -58,7 +58,7 @@ $canPostMaker->prepare({
     fail     => [1, $reader            ],
 });
 
-my $tests = 36
+my $tests = 37
           + $canPostMaker->plan
           ;
 plan tests => 1
@@ -155,6 +155,17 @@ isa_ok($folder, 'WebGUI::Asset::Wobject::Folder', 'Folder was added to Archive')
 is($folder->getChildCount, 1, 'The folder has 1 child...');
 is($folder->getFirstChild->getTitle, 'First Story', '... and it is the correct child');
 
+################################################################
+#
+#  getKeywordStaticUrl
+#
+################################################################
+
+##Note, this method depends heavily on the default installed language pack.
+##Because of that, we'll only test for whether or not url->urlize is called.
+
+is ($archive->getKeywordStaticUrl('camelCase'), 'keyword_camelcase.html', 'getKeywordStaticUrl returns a lower case keyword with _keyword.html appended');
+
 ################################################################
 #
 #  viewTemplateVariables