Changeset 25063 for lang

Timestamp:

11/27/08 12:38:29 (4 years ago)

Author:

kazuho

Message:

add test for hidden

Files:

• lang/perl/NanoA/trunk/t/form.t (modified) (9 diffs)

lang/perl/NanoA/trunk/t/form.t

@@ -25 +25 @@
             regexp     => qr/^[0-9a-z_]{6,8}/,
         },
-        # TODO add test for hidden fields
         sex => {
             type    => 'radio',
@@ -70 +69 @@
             max_length => 10,
         },
+        unique_key => {
+            type     => 'hidden',
+            # validation
+            required => 1,
+        },
     ],
 );
@@ -88 +92 @@
 like($field->validate([ '$-13409' ])->message, qr/無効/, 'text regexp error');
 ok(! $field->validate([ 'michael' ]), 'text regexp');
-is(${$field->to_html},
+is(${$field->render},
    '<input class="hoge_class" name="username" type="text" value="def&quot;val" />',
-   'text to_html',
-);
-is(${$field->to_html([ 'hoge' ])},
+   'text render',
+);
+is(${$field->render([ 'hoge' ])},
    '<input class="hoge_class" name="username" type="text" value="hoge" />',
-   'text to_html 2',
+   'text render 2',
 );
 
@@ -104 +108 @@
 ok(! $field->validate([ 'male' ]), 'radio validate');
 ok(! $field->validate([ 'female' ]), 'radio validate 2');
-like(${$field->options->[0]->to_html},
+like(${$field->options->[0]->render},
      qr{<input id=".*?" name="sex" type="radio" value="male" /><label for=".*?">男性</label>},
-     'radio to_html',
-);
-like(${$field->to_html},
+     'radio render',
+);
+like(${$field->render},
      qr{<input id=".*?" name="sex" type="radio" value="male" /><label for=".*?">男性</label>\s*<input id=".*?" name="sex" type="radio" value="female" /><label for=".*?">女性</label>},
-     'radio to_html 2',
-);
-like(${$field->to_html([ 'male' ])},
+     'radio render 2',
+);
+like(${$field->render([ 'male' ])},
      qr{<input checked="1" id=".*?" name="sex" type="radio" value="male" /><label for=".*?">男性</label>\s*<input id=".*?" name="sex" type="radio" value="female" /><label for=".*?">女性</label>},
-     'radio to_html 3',
+     'radio render 3',
 );
 
@@ -125 +129 @@
 ok(! $field->validate([ 20 ]), 'select validate');
 ok(! $field->validate([ 30 ]), 'select validate 2');
-is(${$field->options->[0]->to_html},
+is(${$field->options->[0]->render},
    '<option selected="1" value="">選択してください</option>',
-   'select to_html 1',
-);
-is(${$field->options->[1]->to_html},
+   'select render 1',
+);
+is(${$field->options->[1]->render},
    '<option value="19">〜19才</option>',
-   'select to_html 2',
-);
-is(${$field->to_html},
+   'select render 2',
+);
+is(${$field->render},
    join(
        '',
@@ -146 +150 @@
        '</select>',
    ),
-   'select to_html 3',
-);
-is(${$field->to_html([ 20 ])},
+   'select render 3',
+);
+is(${$field->render([ 20 ])},
    join(
        '',
@@ -161 +165 @@
        '</select>',
    ),
-   'select to_html 3',
+   'select render 4',
 );
 
@@ -172 +176 @@
 like($field->validate([ qw/c perl php ruby/ ])->message, qr/の中から 2 〜 3/, 'checkbox required 4');
 like(
-    ${$field->options->[0]->to_html},
+    ${$field->options->[0]->render},
     qr{<input id=".*?" name="interest" type="checkbox" value="c" /><label for=".*?">C/C\+\+</label>},
-    'checkbox to_html 1',
-);
-like(
-    ${$field->options->[1]->to_html},
+    'checkbox render 1',
+);
+like(
+    ${$field->options->[1]->render},
     qr{<input checked="1" id=".*?" name="interest" type="checkbox" value="perl" /><label for=".*?">perl</label>},
-    'checkbox to_html 2',
-);
-like(
-    ${$field->to_html},
+    'checkbox render 2',
+);
+like(
+    ${$field->render},
     qr{<input id=".*?" name="interest" type="checkbox" value="c" /><label for=".*?">C/C\+\+</label> <input checked="1" id=".*?" name="interest" type="checkbox" value="perl" /><label for=".*?">perl</label> <input id=".*?" name="interest" type="checkbox" value="php" /><label for=".*?">PHP</label> <input id=".*?" name="interest" type="checkbox" value="ruby" /><label for=".*?">Ruby</label>},
-    'checkbox to_html 3',
-);
-like(
-    ${$field->to_html([ qw/perl php/ ])},
+    'checkbox render 3',
+);
+like(
+    ${$field->render([ qw/perl php/ ])},
     qr{<input id=".*?" name="interest" type="checkbox" value="c" /><label for=".*?">C/C\+\+</label> <input checked="1" id=".*?" name="interest" type="checkbox" value="perl" /><label for=".*?">perl</label> <input checked="1" id=".*?" name="interest" type="checkbox" value="php" /><label for=".*?">PHP</label> <input id=".*?" name="interest" type="checkbox" value="ruby" /><label for=".*?">Ruby</label>},
-    'checkbox to_html 3',
+    'checkbox render 4',
 );
 
@@ -198 +202 @@
 like($field->validate([ 'abcdefghijk' ])->message, qr/長すぎ/, 'textarea max_length');
 ok(! $field->validate([ 'abcde' ]), 'textarea validate');
-is(${$field->to_html},
+is(${$field->render},
    '<textarea cols="40" name="comment" rows="10">def&quot;val</textarea>',
-   'textarea to_html 1',
-);
-is(${$field->to_html([ qw/abcde/ ])},
+   'textarea render 1',
+);
+is(${$field->render([ qw/abcde/ ])},
    '<textarea cols="40" name="comment" rows="10">abcde</textarea>',
-   'textarea to_html 2',
-);
+   'textarea render 2',
+);
+
+$field = $form->fields->[5];
+is($field->type, q(hidden), 'hidden type');
+like($field->validate([])->message, qr/を入力してください/, 'hidden required');
+ok(! $field->validate([ 'abc' ]), 'hidden validate');
+is(${$field->render},
+   '<input name="unique_key" type="hidden" />',
+   'hidden render 1',
+);
+is(${$field->render([ qw/abcde/ ])},
+   '<input name="unique_key" type="hidden" value="abcde" />',
+   'hidden render 1',
+);