X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-CGI-Ex;a=blobdiff_plain;f=t%2F1_validate_12_change.t;h=ef270e2b47a8f667620712675494fbd888aaad99;hp=06784d6957817c0923ed2d8972dcd7fd9e3fc59f;hb=f30b8252fcf71659a2fd3b5895e009ff8e39299d;hpb=8a1796477c5a835d8c124cfa8504909dc786d93b

diff --git a/t/1_validate_12_change.t b/t/1_validate_12_change.t
index 06784d6..ef270e2 100644
--- a/t/1_validate_12_change.t
+++ b/t/1_validate_12_change.t
@@ -18,19 +18,17 @@ sub validate { scalar CGI::Ex::Validate::validate(@_) }
 
 ###----------------------------------------------------------------###
 
-$v = [
-{
+$v = {
   foo => {
     max_len => 10,
     replace => 's/[^\d]//g',
   },
-},
-];
+};
 
 $e = validate({
   foo => '123-456-7890',
 }, $v);
-ok(! $e);
+ok(! $e, "Didn't get error");
 
 
 my $form = {
@@ -46,7 +44,7 @@ $v = {
 };
 
 $e = validate($form, $v);
-ok(! $e && $form->{key1} eq 'Bunch of characters');
+ok(! $e && $form->{key1} eq 'Bunch of characters', "No error and key1 updated");
 
 $v = {
   key2 => {
@@ -55,8 +53,7 @@ $v = {
 };
 
 $e = validate($form, $v);
-ok(! $e && $form->{key2} eq '(123) 456-7890');
-
+ok(! $e && $form->{key2} eq '(123) 456-7890', "No error and phone updated");
 
 $v = {
   key2 => {
@@ -66,5 +63,5 @@ $v = {
 };
 
 $e = validate($form, $v);
-ok($e && $form->{key2} eq '');
+ok($e && $form->{key2} eq '', "Error with all replaced");