From 33ba29b338439ed2066f435b70210692df820e02 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 13 Dec 2007 00:29:25 +0000
Subject: [PATCH] add support for writing URL extension tests later

---
 t/Asset/Asset.t | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/t/Asset/Asset.t b/t/Asset/Asset.t
index 984626e26..349be2c08 100644
--- a/t/Asset/Asset.t
+++ b/t/Asset/Asset.t
@@ -147,6 +147,9 @@ $session->{_request} = $origRequest;
 #
 ################################################################
 
+my $origUrlExtension = $session->setting->get('urlExtension');
+$session->setting->set('urlExtension', undef);
+
 is($importNode->fixUrl('1234'.'-'x235 . 'abcdefghij'), '1234'.'-'x235 . 'abcdefghij', 'fixUrl leaves long URLs under 250 characters alone');
 is($importNode->fixUrl('1234'.'-'x250 . 'abcdefghij'), '1234'.'-'x216, 'fixUrl truncates long URLs over 250 characters to 220 characters');
 
@@ -170,6 +173,8 @@ is($importNode->fixUrl('/extras1'), '_extras1', 'trailing underscore in extrasUR
 $session->config->set('extrasURL',  'http://mysite.com/extras2');
 is($importNode->fixUrl('/extras2'), '_extras2', 'underscore prepended to URLs that match the extrasURL, even with http://');
 
+$session->setting->set('urlExtension', 'html');
+
 END: {
 
     $session->config->set('extrasURL',    $origExtras);
@@ -180,4 +185,6 @@ END: {
     else {
         $session->config->delete('passthruUrls');
     }
+    $session->setting->set('urlExtension', $origUrlExtension);
+
 }