EOF is( $c->error_xml, <
EOF my @errors = $f->errors; is( $errors[0]->name, 'age', 'Expected error' ); is( $errors[0], 'Contains digit characters.', 'Field contains digit characters' ); is( "$f", <
message
', bar => '23', } ); my $f = $w->process($query); is( $f->param('foo'), '<p>message</p>', 'foo value' ); is( $f->param('bar'), '23', 'bar value' ); SKIP: { skip "HTML::Element now checks for already-escaped characters - Won't fix", 1; like( "$f", qr{\Q value="<p>message</p>" }x, 'XML output is double encoded' ); } } HTML-Widget-1.11/t/02pod.t 0000644 0000764 0000764 00000000331 10571572142 015150 0 ustar cafranks cafranks use strict; use warnings; use Test::More; eval "use Test::Pod 1.14"; plan skip_all => 'Test::Pod 1.14 required' if $@; plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD}; all_pod_files_ok(); HTML-Widget-1.11/t/06bugs_ascii_space.t 0000644 0000764 0000764 00000000672 10571572142 017665 0 ustar cafranks cafranks use strict; use warnings; use Test::More tests => 3; use HTML::Widget; use lib 't/lib'; use HTMLWidget::TestLib; my $w = HTML::Widget->new; $w->element( 'Textfield', 'foo' ); $w->constraint( 'ASCII', 'foo' ); my $query = HTMLWidget::TestLib->mock_query( { foo => ' ' } ); my $f = $w->process($query); ok( !$f->has_errors, 'no errors' ); ok( $f->valid('foo'), 'foo valid' ); is( $f->param('foo'), ' ', 'value is space character' ); HTML-Widget-1.11/t/06bugs_result_elements_warnings.t 0000644 0000764 0000764 00000000707 10571572142 022543 0 ustar cafranks cafranks use strict; use warnings; use Test::More tests => 1 + 1; # +1 is for Test::NoWarnings use Test::NoWarnings; use HTML::Widget; use lib 't/lib'; use HTMLWidget::TestLib; { my $w = HTML::Widget->new; $w->element( 'Textfield', 'foo' ); my $query = HTMLWidget::TestLib->mock_query( { foo => 'yada' } ); my $result = $w->process($query); my @elements = $result->elements; ok( @elements == 1, '@elements contains 1 value' ); } HTML-Widget-1.11/t/constraint_any.t 0000644 0000764 0000764 00000004451 10571572142 017266 0 ustar cafranks cafranks use strict; use warnings; use Test::More tests => 10; use HTML::Widget; use lib 't/lib'; use HTMLWidget::TestLib; my $w = HTML::Widget->new; $w->element( 'Textfield', 'foo' ); $w->element( 'Textfield', 'bar' ); my $constraint = $w->constraint( 'Any', 'foo', 'bar' ); # Valid { my $query = HTMLWidget::TestLib->mock_query( { foo => 'yada' } ); my $f = $w->process($query); is( $f->param('foo'), 'yada', 'foo value' ); ok( !$f->errors, 'no errors' ); } # Invalid { my $query = HTMLWidget::TestLib->mock_query( { baz => 23 } ); my $f = $w->process($query); ok( $f->errors('foo'), 'foo has errors' ); ok( $f->errors('bar'), 'bar has errors' ); } # Multiple invalid, error only on one { $constraint->render_errors(qw/ foo /); my $query = HTMLWidget::TestLib->mock_query( { baz => 23 } ); my $f = $w->process($query); ok( $f->errors('foo'), 'foo has errors' ); ok( $f->errors('bar'), 'bar has errors' ); is( "$f", <
EOF
}
# Introspection
my @el = $e->get_elements();
is( scalar(@el), 4, 'foo has 4 els' );
isa_ok( $el[0], 'HTML::Widget::Element::Textfield', 'foo 1st el is textfield' );
isa_ok( $el[1], 'HTML::Widget::Element::Fieldset', 'foo 2nd el is fieldset' );
my @fsl = $el[1]->get_elements();
is( scalar(@fsl), 1, 'fs has 1' );
isa_ok( $fsl[0], 'HTML::Widget::Element::Textfield', 'fs 1st el is textfield' );
isa_ok(
$e->get_element( name => 'bar' ),
'HTML::Widget::Element::Textfield',
'el bar by name'
);
isa_ok(
$e->get_element( type => 'Fieldset' ),
'HTML::Widget::Element::Fieldset',
'el fs by type'
);
my @full_el = $e->find_elements();
is( scalar(@full_el), 11, 'find_elements' );
my @a_types = map { ref($_); } @full_el;
my @e_types = map "HTML::Widget::Element::$_", qw(
Block
Textfield
Fieldset
Textfield
Fieldset
Textfield
Textfield
Fieldset
Textfield
NullContainer
Textfield
);
ok( eq_array( \@a_types, \@e_types ), 'find_elements types' );
my @a_names = map { $_->name; } @full_el;
my @e_names = qw(foo bar fs baz fs2 bartwo baztwo fsnest barnest nc norp);
ok( eq_array( \@a_names, \@e_names ), 'find_elements names' );
@full_el = $e->find_elements( type => 'Textfield' );
is( scalar(@full_el), 6, 'find_elements by type' );
@a_types = map { ref($_); } @full_el;
@e_types = map "HTML::Widget::Element::$_", ('Textfield') x 6;
ok( eq_array( \@a_types, \@e_types ), 'find_elements types' );
@a_names = map { $_->name; } @full_el;
@e_names = qw(bar baz bartwo baztwo barnest norp);
ok( eq_array( \@a_names, \@e_names ), 'find_elements names' );
@full_el = $e->find_elements( name => 'bartwo' );
is( scalar(@full_el), 1, 'find_elements by name' );
is( ref( $full_el[0] ),
'HTML::Widget::Element::Textfield',
'find_element type'
);
is( $full_el[0]->name, 'bartwo', 'find_element name' );
# This may change:
my @fs2l = $el[2]->get_elements( type => 'OrderedList' );
is( scalar(@fs2l), 0, 'fs2 has no ordered lists' );
@fs2l = $el[2]->get_elements( type => 'Textfield' );
is( scalar(@fs2l), 2, 'fs2 has 2 textfields' );
@fs2l = $el[2]->get_elements( name => 'baztwo' );
is( scalar(@fs2l), 1, 'fs2 has 1 baztwo' );
is( $fs2l[0]->name, 'baztwo', 'baztwo name ok' );
# Container introspection
{
my $query = HTMLWidget::TestLib->mock_query( {
bar => 'yada',
baz => '23',
bartwo => 'ping',
baztwo => '18',
} );
my $f = $w->process($query);
my $foop = $f->element('fs');
ok( not($foop), 'fs not a top-level element' );
$foop = $f->element('foo');
isa_ok( $foop, 'HTML::Widget::BlockContainer', 'result foo' );
$foop = $f->find_result_element('fs');
isa_ok( $foop, 'HTML::Widget::BlockContainer', 'find_result_element fs' );
my @c = $f->elements_for('fs2');
is( scalar(@c), 3, 'elements_for fs2' );
isa_ok( $c[1], 'HTML::Widget::Container' );
}
# EOF
HTML-Widget-1.11/t/constraint_printable.t 0000644 0000764 0000764 00000002677 10571572142 020467 0 ustar cafranks cafranks use strict;
use warnings;
use utf8;
use Test::More tests => 13;
use HTML::Widget;
use lib 't/lib';
use HTMLWidget::TestLib;
my $w = HTML::Widget->new;
$w->element( 'Textfield', 'foo' );
$w->constraint( 'Printable', 'foo' );
# Valid
{
my $query = HTMLWidget::TestLib->mock_query( { foo => 'yada' } );
my $f = $w->process($query);
is( $f->param('foo'), 'yada', 'foo value' );
ok( !$f->errors, 'no errors' );
}
# Invalid
{
my $query
= HTMLWidget::TestLib->mock_query( { foo => pack( 'H*', 123456 ), } );
my $f = $w->process($query);
ok( $f->errors('foo'), 'foo has errors' );
}
# Multiple Valid
{
my $query = HTMLWidget::TestLib->mock_query( { foo => [ 'bar', 'yada' ] } );
my $f = $w->process($query);
is( $f->valid('foo'), 1, "Valid" );
my @results = $f->param('foo');
is( $results[0], 'bar', "Multiple valid values" );
is( $results[1], 'yada', "Multiple valid values" );
}
# Multiple Invalid
{
my $query = HTMLWidget::TestLib->mock_query(
{ foo => [ 'yada', pack( 'H*', 123456 ) ], } );
my $f = $w->process($query);
ok( $f->errors('foo'), 'foo has errors' );
}
my $c = HTML::Widget::Constraint::Printable->new;
ok( $c->validate("foo"), "alpha" );
ok( $c->validate("foo bar"), "alpha, space" );
ok( $c->validate(",la; bar"), "punct" );
ok( $c->validate("יובל"), "hebrew" );
ok( !$c->validate("\x00"), "zero" );
ok( !$c->validate("\xb"), "backspace" );
HTML-Widget-1.11/t/constraint_integer.t 0000644 0000764 0000764 00000003414 10571572142 020132 0 ustar cafranks cafranks use strict;
use warnings;
use Test::More tests => 12;
use HTML::Widget;
use lib 't/lib';
use HTMLWidget::TestLib;
my $w = HTML::Widget->new;
$w->element( 'Textfield', 'foo' );
$w->constraint( 'Integer', 'foo' );
# Valid
{
my $query = HTMLWidget::TestLib->mock_query( { foo => 23 } );
my $f = $w->process($query);
is( $f->param('foo'), 23, 'foo value' );
ok( !$f->errors, 'no errors' );
}
# Invalid
{
my $query = HTMLWidget::TestLib->mock_query( { foo => 'yada' } );
my $f = $w->process($query);
ok( $f->errors('foo'), 'foo has errors' );
}
# Multiple Valid
{
my $query
= HTMLWidget::TestLib->mock_query( { foo => [ 123, 321, 111 ], } );
my $f = $w->process($query);
is( $f->valid('foo'), 1, "Valid" );
my @results = $f->param('foo');
is( $results[0], 123, "Multiple valid values" );
is( $results[2], 111, "Multiple valid values" );
}
# Multiple Invalid
{
my $query
= HTMLWidget::TestLib->mock_query( { foo => [ 123, 'foo', 321 ], } );
my $f = $w->process($query);
ok( $f->errors('foo'), 'foo has errors' );
}
{ # undef valid
my $query = HTMLWidget::TestLib->mock_query( { foo => undef } );
my $f = $w->process($query);
ok( $f->valid('foo') );
}
{ # zero valid
my $query = HTMLWidget::TestLib->mock_query( { foo => 0 } );
my $f = $w->process($query);
ok( $f->valid('foo') );
is( $f->param('foo'), 0, 'foo value' );
}
{ # decimal invalid
my $query = HTMLWidget::TestLib->mock_query( { foo => '1.1' } );
my $f = $w->process($query);
ok( $f->errors('foo'), 'foo has errors' );
}
{ # invalid
my $query = HTMLWidget::TestLib->mock_query( { foo => '10foo' } );
my $f = $w->process($query);
ok( $f->errors('foo'), 'foo has errros' );
}
HTML-Widget-1.11/t/element_textfield.t 0000644 0000764 0000764 00000002711 10571572142 017731 0 ustar cafranks cafranks use strict;
use warnings;
use Test::More tests => 2;
use HTML::Widget;
use lib 't/lib';
use HTMLWidget::TestLib;
my $w = HTML::Widget->new;
$w->element( 'Textfield', 'foo' )->value('foo')->size(30)->label('Foo');
$w->element( 'Textfield', 'bar' );
$w->constraint( 'Integer', 'foo' );
$w->constraint( 'Integer', 'bar' );
# Without query
{
my $f = $w->process;
is( "$f", <
message
', bar => '23
', } ); my $f = $w->process($query); is( $f->param('foo'), 'message', 'foo value' ); is( $f->param('bar'), 23, 'bar value' ); } HTML-Widget-1.11/t/get_constraint.t 0000644 0000764 0000764 00000002177 10571572142 017261 0 ustar cafranks cafranks use strict; use warnings; use Test::More tests => 8; use HTML::Widget; my $w = HTML::Widget->new; $w->constraint( 'Integer', 'foo' ); $w->constraint( 'Printable', 'bar' ); $w->constraint( 'All', 'baz', 'one' ); $w->constraint( 'All', 'baz', 'two' ); { my @constraints = $w->get_constraint; is( scalar(@constraints), 1, 'correct number of constraints' ); is_deeply( $constraints[0]->names, ['foo'], 'correct constraint names' ); } { my @constraints = $w->get_constraint( type => 'Integer' ); is( scalar(@constraints), 1, 'correct number of constraints' ); is_deeply( $constraints[0]->names, ['foo'], 'correct constraint names' ); isa_ok( $constraints[0], 'HTML::Widget::Constraint::Integer', 'correct constraint type' ); } { my @constraints = $w->get_constraint( type => 'All' ); is( scalar(@constraints), 1, 'correct number of constraints' ); is_deeply( $constraints[0]->names, [qw/ baz one /], 'correct constraint names' ); isa_ok( $constraints[0], 'HTML::Widget::Constraint::All', 'correct constraint type' ); } HTML-Widget-1.11/t/06bugs_zero_xml.t 0000644 0000764 0000764 00000002372 10571572142 017260 0 ustar cafranks cafranks use strict; use warnings; use Test::More tests => 6; use HTML::Widget; use lib 't/lib'; use HTMLWidget::TestLib; my $w1 = HTML::Widget->new; $w1->element( 'Textfield', 'foo' ); $w1->element( 'Textfield', '0' ); # Valid { my $query = HTMLWidget::TestLib->mock_query( { foo => 'yada', 0 => 'a', } ); my $result = $w1->process($query); ok( $result->valid(0), '0 valid' ); ok( !$result->has_errors(0), '0 not error' ); like( "$result", qr/\Q id="widget_0" name="0" type="text" value="a" /, 'name 0 XML ok' ); } # Embed test { my $query = HTMLWidget::TestLib->mock_query( { foo => 'yada', 0 => 'a', } ); my $w2 = new HTML::Widget; $w1->name('embed'); $w2->embed($w1); my $result = $w2->process($query); ok( $result->valid(0), '0 valid' ); ok( !$result->has_errors(0), '0 not error' ); is( "$result", <