From 8374a880460fca5e59118aab0b27c89dc7e2ff06 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 24 Sep 2009 09:34:25 -0700
Subject: [PATCH] More test tweaks for zipcode.

---
 t/Form/Zipcode.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/Form/Zipcode.t b/t/Form/Zipcode.t
index ecc53f32e..028b2f53a 100644
--- a/t/Form/Zipcode.t
+++ b/t/Form/Zipcode.t
@@ -124,13 +124,13 @@ is($cntl->getValue('ABCDE'), 'ABCDE', 'alpha');
 is($cntl->getValue('02468'), '02468', 'numeric');
 is($cntl->getValue('NO WHERE'), 'NO WHERE', 'alpha space');
 is($cntl->getValue('-'), '-', 'bare dash');
-is($cntl->getValue('abcde'), undef, 'lower case');
+is($cntl->getValue('abcde'), 'ABCDE', 'lower case is uppercased');
 
 is($session->form->zipcode(undef,'ABCDE'), 'ABCDE', 'alpha');
 is($session->form->zipcode(undef,'02468'), '02468', 'numeric');
 is($session->form->zipcode(undef,'NO WHERE'), 'NO WHERE', 'alpha space');
 is($session->form->zipcode(undef,'-'), '-', 'bare dash');
-is($session->form->zipcode(undef,'abcde'), undef, 'lower case');
+is($session->form->zipcode(undef,'abcde'), 'ABCDE', 'lower case uppercased');
 
 
 __END__