From d3fbe15ca73ac497a53cb03021db8d90f7b8539d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 12 Sep 2006 04:35:35 +0000
Subject: [PATCH] fix test cleanup for AdSpace, add leading 0 test to
 Form::Text

---
 t/AdSpace.t   | 2 +-
 t/Form/Text.t | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/t/AdSpace.t b/t/AdSpace.t
index 2f526ae80..ec699f0a5 100644
--- a/t/AdSpace.t
+++ b/t/AdSpace.t
@@ -31,7 +31,7 @@ SKIP: {
 
 	skip "Unable to load WebGUI::AdSpace", $numTests-1 unless $loaded;
 
-	my $adSpace = WebGUI::AdSpace->create($session, {name=>"Alfred"});
+	$adSpace = WebGUI::AdSpace->create($session, {name=>"Alfred"});
 
 	isa_ok($adSpace, 'WebGUI::AdSpace');
 
diff --git a/t/Form/Text.t b/t/Form/Text.t
index cd6b33d16..de3821c31 100644
--- a/t/Form/Text.t
+++ b/t/Form/Text.t
@@ -46,6 +46,12 @@ my $testBlock = [
 		expected  => 'EQUAL',
 		comment   => 'single word',
 	},
+	{
+		key => 'Text4',
+		testValue => '0leadingzero',
+		expected  => 'EQUAL',
+		comment   => 'leading zero',
+	},
 ];
 
 my $formType = 'text';