From 9b41c214077a51d1e269a42d3dd46e3fef2a88b0 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 16 Apr 2009 04:33:51 +0000
Subject: [PATCH] Add more tests to reveal Form/Integer behavior.

---
 t/Form/Integer.t | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/t/Form/Integer.t b/t/Form/Integer.t
index eef164a00..5dde90699 100644
--- a/t/Form/Integer.t
+++ b/t/Form/Integer.t
@@ -58,6 +58,24 @@ my $testBlock = [
 		expected  => 0,
 		comment   => 'rejects float',
 	},
+	{
+		key => 'Int6',
+		testValue => '0',
+		expected  => 0,
+		comment   => 'zero passes',
+	},
+	{
+		key => 'Int7',
+		testValue => '',
+		expected  => 0,
+		comment   => 'empty string returns 0',
+	},
+	{
+		key => 'Int8',
+		testValue => undef,
+		expected  => 0,
+		comment   => 'undef returns 0',
+	},
 ];
 
 my $formClass = 'WebGUI::Form::Integer';