File: select.t

package info (click to toggle)
libhtml-formhandler-perl 0.40057-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 2,320 kB
  • ctags: 685
  • sloc: perl: 8,849; makefile: 2
file content (78 lines) | stat: -rw-r--r-- 2,498 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
use strict;
use warnings;
use Test::More;
use HTML::FormHandler::Test;

{
    package Test::Form;
    use HTML::FormHandler::Moose;
    extends 'HTML::FormHandler';

    has '+name' => ( default => 'test_form' );
    has_field 'fruit'      => ( type => 'Select' );
    has_field 'vegetables' => ( type => 'Multiple', empty_select => '-- Pick One --' );
    has_field 'my_option' => ( type => 'BoolSelect' );
    sub options_fruit {
        return (
            '"apples"' => '"apples"',
            '<oranges>' => '<oranges>',
            '&kiwi&' => '&kiwi&',
        );
    }

    sub options_vegetables {
        return (
            '<lettuce>' => '<lettuce>',
            'broccoli' => 'broccoli',
            'carrots' => 'carrots',
            '& peas' => '& peas',
        );
    }
}

my $form = Test::Form->new;
my $params = {
    fruit              => '<oranges>',
    vegetables         => [ 'broccoli', '& peas' ],
};
$form->process( $params );

my $rendered = $form->field('fruit')->render;
my $expected =
'<div>
  <label for="fruit">Fruit</label>
  <select name="fruit" id="fruit">
    <option value="&quot;apples&quot;" id="fruit.0">&quot;apples&quot;</option>
    <option value="&lt;oranges&gt;" id="fruit.1" selected="selected">&lt;oranges&gt;</option>
    <option value="&amp;kiwi&amp;" id="fruit.2">&amp;kiwi&amp;</option>
  </select>
</div>';
is_html( $rendered, $expected, 'output from select field');

$rendered = $form->field('vegetables')->render;
$expected =
'<div>
  <label for="vegetables">Vegetables</label>
  <select name="vegetables" id="vegetables" multiple="multiple" size="5">
    <option id="vegetables.0" value="">-- Pick One --</option>
    <option value="&lt;lettuce&gt;" id="vegetables.1">&lt;lettuce&gt;</option>
    <option value="broccoli" id="vegetables.2" selected="selected">broccoli</option>
    <option value="carrots" id="vegetables.3">carrots</option>
    <option value="&amp; peas" id="vegetables.4" selected="selected">&amp; peas</option>
  </select>
</div>';
is_html( $rendered, $expected, 'output from select multiple field');

$rendered = $form->field('my_option')->render;
$expected =
'<div>
  <label for="my_option">My option</label>
  <select name="my_option" id="my_option">
    <option value="" id="my_option.0">Select One</option>
    <option value="1" id="my_option.1">True</option>
    <option value="0" id="my_option.2">False</option>
  </select>
</div>';
is_html( $rendered, $expected, 'output from BoolSelect field' );

done_testing;