t/form-field-checkbox-group.t

#!/usr/bin/perl -w

use strict;

use Test::More tests => 68;

BEGIN 
{
  use_ok('Rose::HTML::Form::Field::Checkbox');
  use_ok('Rose::HTML::Form::Field::CheckboxGroup');
}

my $field = Rose::HTML::Form::Field::CheckboxGroup->new(name => 'fruits');

ok(ref $field eq 'Rose::HTML::Form::Field::CheckboxGroup', 'new()');

is(scalar @{ $field->children }, 0, 'children scalar 1');
is(scalar(() = $field->children), 0, 'children list 1');

$field->checkboxes(apple  => 'Apple',
                   orange => 
                   {
                     label => 'Orange',
                   },
                   Rose::HTML::Form::Field::Checkbox->new(value => 'grape', label => 'Grape'));

is(scalar @{ $field->children }, 0, 'children scalar 2');
is(scalar(() = $field->children), 0, 'children list 2');

is(join(',', sort $field->labels), 'Apple,Grape,Orange,apple,grape,orange', 'labels()');

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label>),
  'html_field() 1');

$field = 
  Rose::HTML::Form::Field::CheckboxGroup->new(
    name => 'fruits',
    choices =>
    [
      Rose::HTML::Form::Field::Checkbox->new(value => 'apple', label => 'Apple'),
      orange  => 'Orange',
      grape => 
      {
        label => 'Grape',
      }
    ]);

$field->checkbox('apple')->label('<b>Apple</b>');
$field->escape_html(0);

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label><b>Apple</b></label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label>),
  'escape_html() 1');

$field->escape_html(1);

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>&lt;b&gt;Apple&lt;/b&gt;</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label>),
  'escape_html() 1');

$field->checkbox('apple')->label('Apple');

$field->linebreak(0);

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label> ) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange</label> ) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label>),
  'linebreak()');

$field->linebreak(1);

$field->html_linebreak('<br><br>');

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br><br>) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br><br>) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label>),
  'html_linebreak()');

$field->html_linebreak("<br>\n");

$field->xhtml_linebreak('<br /><br />');

is($field->xhtml_field, 
  qq(<input name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br /><br />) .
  qq(<input name="fruits" type="checkbox" value="orange" /> <label>Orange</label><br /><br />) .
  qq(<input name="fruits" type="checkbox" value="grape" /> <label>Grape</label>),
  'xhtml_linebreak()');

$field->xhtml_linebreak("<br />\n");

$field->default('apple');

is($field->html_field, 
  qq(<input checked name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label>),
  'default()');

$field->input_value('orange');

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input checked name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label>),
  'value() 1');

$field->value('orange');

my $values = join(',', $field->values);

$field->error("Do not pick orange!");

is($field->html, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input checked name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>\n) .
  qq(<span class="error">Do not pick orange!</span>),
  'html()');

$field->error(undef);

$field->add_value('apple');

is($field->html_field, 
  qq(<input checked name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input checked name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label>),
  'add_value()');

is(join(',', $field->output_value), 'apple,orange', 'values()');
is(join(',', @{$field->output_value}), 'apple,orange', 'value() 2');

$field->input_value(undef);

$field->add_values('orange', 'grape');

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input checked name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input checked name="fruits" type="checkbox" value="grape"> <label>Grape</label>),
  'add_values() 1');

is($field->xhtml_field, 
  qq(<input name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br />\n) .
  qq(<input checked="checked" name="fruits" type="checkbox" value="orange" /> <label>Orange</label><br />\n) .
  qq(<input checked="checked" name="fruits" type="checkbox" value="grape" /> <label>Grape</label>),
  'add_values() 2');

is(join(',', $field->values), 'grape,orange', 'values() 2');
is(join(',', @{$field->value}), 'grape,orange', 'value() 3');

ok($field->is_checked('orange'), 'is_checked() 1');
ok($field->is_checked('grape'), 'is_checked() 2');
ok(!$field->is_checked('apple'), 'is_checked() 3');
ok(!$field->is_checked('foo'), 'is_checked() 4');

ok($field->has_value('orange'), 'has_value() 1');
ok($field->has_value('grape'), 'has_value() 2');
ok(!$field->has_value('apple'), 'has_value() 3');
ok(!$field->has_value('foo'), 'has_value() 4');

$field->add_checkboxes(pear => 'Pear', berry => 'Berry');

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input checked name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input checked name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="berry"> <label>Berry</label>),
  'add_checkboxes() hash');

$field->add_checkboxes(Rose::HTML::Form::Field::Checkbox->new(value => 'squash', label => 'Squash'),
                       Rose::HTML::Form::Field::Checkbox->new(value => 'cherry', label => 'Cherry'));

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input checked name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input checked name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label>),
  'add_checkboxes() objects');

is($field->html_hidden_field, 
  qq(<input name="fruits" type="hidden" value="orange">\n) .
  qq(<input name="fruits" type="hidden" value="grape">),
  'html_hidden_field()');

is($field->html_hidden_fields, 
  qq(<input name="fruits" type="hidden" value="orange">\n) .
  qq(<input name="fruits" type="hidden" value="grape">),
  'html_hidden_fields()');

is(join("\n", map { $_->html } $field->hidden_field),
  qq(<input name="fruits" type="hidden" value="orange">\n) .
  qq(<input name="fruits" type="hidden" value="grape">),
  'hidden_field()');

is(join("\n", map { $_->html } $field->hidden_fields),
  qq(<input name="fruits" type="hidden" value="orange">\n) .
  qq(<input name="fruits" type="hidden" value="grape">),
  'hidden_fields()');

$field->clear;

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label>),
  'clear()');

my $table =<<"EOF";
<table class="checkbox-group">
<tr>
<td><input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>
<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>
<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>
<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>
<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>
<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>
<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label></td>
</tr>
</table>
EOF

is($field->html_table, $table, 'html_table() 1');

$table =<<"EOF";
<table border="1" cellpadding="1" cellspacing="2" class="xxx checkbox-group">
<tr>
<td><input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>
<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>
<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>
<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>
<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>
<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>
<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label></td>
</tr>
</table>
EOF

is($field->html_table(table => { cellpadding => 1, cellspacing => 2, border => 1, class => 'xxx' }),
   $table, 'xhtml_table() 1');

$table =<<"EOF";
<table border="1" cellpadding="1" cellspacing="2" class="yyy checkbox-group">
<tr>
<td><input name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br />
<input name="fruits" type="checkbox" value="orange" /> <label>Orange</label><br />
<input name="fruits" type="checkbox" value="grape" /> <label>Grape</label><br />
<input name="fruits" type="checkbox" value="pear" /> <label>Pear</label><br />
<input name="fruits" type="checkbox" value="berry" /> <label>Berry</label><br />
<input name="fruits" type="checkbox" value="squash" /> <label>Squash</label><br />
<input name="fruits" type="checkbox" value="cherry" /> <label>Cherry</label></td>
</tr>
</table>
EOF

is($field->xhtml_table(class => 'yyy', table => { cellpadding => 1, cellspacing => 2, border => 1 }),
   $table, 'html_table() 2');

$table =<<"EOF";
<table class="checkbox-group">
<tr>
<td><input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>
<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>
<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>
<input name="fruits" type="checkbox" value="pear"> <label>Pear</label></td>
<td><input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>
<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>
<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label></td>
</tr>
</table>
EOF

is($field->html_table(columns => 2), $table, 'html_table() 3');

$field->reset;

is(join(',', $field->output_value), 'apple', 'reset() 1');

is($field->html_field, 
  qq(<input checked name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label>),
  'reset() 2');

$field->default(undef);

is(join(',', $field->value), '', 'reset() 3');

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label>),
  'reset() 4');

my $id = ref($field)->localizer->add_localized_message( 
  name => 'ORANGE_LABEL',
  text => 
  {
    en => 'Orange EN',
    xx => 'Le Orange',
  });

$field->checkbox('orange')->label_id($id);

is($field->checkbox('orange')->label->as_string, 'Orange EN', 'localized label 1');
is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Orange EN</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label>),
  'localized label 2');

$field->localizer->locale('xx');

is($field->checkbox('orange')->label->as_string, 'Le Orange', 'localized label 3');
is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Le Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label>),
  'localized label 4');

$field->input_value('grape');
$field->checkbox('grape')->hide;

is($field->internal_value->[0], undef, 'hidden 0');

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Le Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label>),
  'hidden 1');

is($field->xhtml_field, 
  qq(<input name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="orange" /> <label>Le Orange</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="pear" /> <label>Pear</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="berry" /> <label>Berry</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="squash" /> <label>Squash</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="cherry" /> <label>Cherry</label>),
  'hidden 2');

$field->checkbox('grape')->show;

is($field->html_field, 
  qq(<input name="fruits" type="checkbox" value="apple"> <label>Apple</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="orange"> <label>Le Orange</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="grape"> <label>Grape</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="pear"> <label>Pear</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="berry"> <label>Berry</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="squash"> <label>Squash</label><br>\n) .
  qq(<input name="fruits" type="checkbox" value="cherry"> <label>Cherry</label>),
  'hidden 3');

is($field->xhtml_field, 
  qq(<input name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="orange" /> <label>Le Orange</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="grape" /> <label>Grape</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="pear" /> <label>Pear</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="berry" /> <label>Berry</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="squash" /> <label>Squash</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="cherry" /> <label>Cherry</label>),
  'hidden 4');

$field->hide_all_checkboxes;

is($field->xhtml_field, '', 'hidden 5');

$field->show_all_checkboxes;

is($field->xhtml_field, 
  qq(<input name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="orange" /> <label>Le Orange</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="grape" /> <label>Grape</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="pear" /> <label>Pear</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="berry" /> <label>Berry</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="squash" /> <label>Squash</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="cherry" /> <label>Cherry</label>),
  'hidden 6');

$field->delete_checkbox('squash');

is($field->xhtml_field, 
  qq(<input name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="orange" /> <label>Le Orange</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="grape" /> <label>Grape</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="pear" /> <label>Pear</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="berry" /> <label>Berry</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="cherry" /> <label>Cherry</label>),
  'delete 1');

$field->delete_checkboxes('squash', 'pear', 'grape');

is($field->xhtml_field, 
  qq(<input name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="orange" /> <label>Le Orange</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="berry" /> <label>Berry</label><br />\n) .
  qq(<input name="fruits" type="checkbox" value="cherry" /> <label>Cherry</label>),
  'delete 2');

my $i = 1;

foreach my $name (qw(items checkboxes))
{
  my $method = "${name}_html_attr";

  $field->$method(class => 'bar');

  is($field->xhtml_field, 
    qq(<input class="bar" name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br />\n) .
    qq(<input class="bar" name="fruits" type="checkbox" value="orange" /> <label>Le Orange</label><br />\n) .
    qq(<input class="bar" name="fruits" type="checkbox" value="berry" /> <label>Berry</label><br />\n) .
    qq(<input class="bar" name="fruits" type="checkbox" value="cherry" /> <label>Cherry</label>),
    "$method " . $i++);

  is($field->$method('class'), 'bar', "$method " . $i++);

  $method = "delete_${name}_html_attr";

  $field->$method('class');

  is($field->xhtml_field, 
    qq(<input name="fruits" type="checkbox" value="apple" /> <label>Apple</label><br />\n) .
    qq(<input name="fruits" type="checkbox" value="orange" /> <label>Le Orange</label><br />\n) .
    qq(<input name="fruits" type="checkbox" value="berry" /> <label>Berry</label><br />\n) .
    qq(<input name="fruits" type="checkbox" value="cherry" /> <label>Cherry</label>),
    "$method " . $i++);    
}

$field->input_value('apple');

is($field->is_empty, 0, 'is_empty 3');

$field->input_value('');
is($field->is_empty, 1, 'is_empty 4');
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)