fix typos in testBlock keys

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';

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';

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;