Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings;
- use Test::More;
- {
- package MyApp::Form::SubmitType;
- use HTML::FormHandler::Moose;
- extends 'HTML::FormHandler';
- has_field 'submit' => (
- type => 'Submit', widget => 'ButtonTag',
- );
- no HTML::FormHandler::Moose;
- 1;
- }
- {
- my $form = MyApp::Form::SubmitType->new;
- ok( $form );
- my $rendered = $form->render;
- like($rendered, qr/type="submit"/,
- 'Submit button has type "submit"');
- }
- {
- my $form = MyApp::Form::SubmitType->new(is_html5 => 1);
- ok( $form );
- my $rendered = $form->render;
- like($rendered, qr/type="submit"/,
- 'Submit button has type "submit" for html5');
- }
- done_testing();
Add Comment
Please, Sign In to add comment