From 833e5238eb3a27b8094a38e4f2fee73230c8cdcc Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 31 Mar 2006 18:36:54 +0000
Subject: [PATCH] fix typos in testBlock keys

---
 t/Form/Float.t     | 4 ++--
 t/Form/Integer.t   | 8 ++++----
 t/Form/SelectBox.t | 2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/t/Form/Float.t b/t/Form/Float.t
index 1c864ac81..1d4c01119 100644
--- a/t/Form/Float.t
+++ b/t/Form/Float.t
@@ -41,8 +41,8 @@ tie %testBlock, 'Tie::IxHash';
 	FLOAT5 => [ '+123.456',    0, 'invalid, no explicit plus sign'],
 	FLOAT6 => [ '123456',      'EQUAL', 'WRONG, no decimal point'],
 	FLOAT7 => [ '......',      0, 'invalid, no digits'],
-	FLOAT7 => [ '-00789.25',   'EQUAL', 'leading zeroes are okay'],
-	FLOAT8 => [ '.123-456',    0, 'invalid, embedded minus sign'],
+	FLOAT8 => [ '-00789.25',   'EQUAL', 'leading zeroes are okay'],
+	FLOAT9 => [ '.123-456',    0, 'invalid, embedded minus sign'],
 );
 
 my $formClass = 'WebGUI::Form::Float';
diff --git a/t/Form/Integer.t b/t/Form/Integer.t
index 334692b46..3fc58b2d7 100644
--- a/t/Form/Integer.t
+++ b/t/Form/Integer.t
@@ -34,10 +34,10 @@ tie %testBlock, 'Tie::IxHash';
 
 %testBlock = (
 	INT1 => [ '-123456',  'EQUAL', 'valid, negative integer'],
-	INT1 => [ '002300',  'EQUAL', 'valid, leading zeroes'],
-	INT2 => [ '+123456',  0, 'reject explicitly positive integer'],
-	INT3 => [ '123-456.', 0, 'rejects non-sense integer with negative sign'],
-	INT4 => [ '123.456',  0, 'rejects float'],
+	INT2 => [ '002300',  'EQUAL', 'valid, leading zeroes'],
+	INT3 => [ '+123456',  0, 'reject explicitly positive integer'],
+	INT4 => [ '123-456.', 0, 'rejects non-sense integer with negative sign'],
+	INT5 => [ '123.456',  0, 'rejects float'],
 );
 
 my $formClass = 'WebGUI::Form::Integer';
diff --git a/t/Form/SelectBox.t b/t/Form/SelectBox.t
index d94917f61..b098df26f 100644
--- a/t/Form/SelectBox.t
+++ b/t/Form/SelectBox.t
@@ -20,7 +20,7 @@ use HTML::Form;
 use Tie::IxHash;
 use WebGUI::Form_Checking;
 
-#The goal of this test is to verify that SelectList form elements work
+#The goal of this test is to verify that SelectBox form elements work
 
 use Test::More;
 use Test::Deep;