Guest User

Untitled

a guest
Oct 22nd, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 KB | None | 0 0
  1. use strict;
  2. use warnings;
  3. use Test::More;
  4.  
  5. {
  6. package MyApp::Form::SubmitType;
  7. use HTML::FormHandler::Moose;
  8. extends 'HTML::FormHandler';
  9.  
  10. has_field 'submit' => (
  11. type => 'Submit', widget => 'ButtonTag',
  12. );
  13.  
  14. no HTML::FormHandler::Moose;
  15. 1;
  16. }
  17.  
  18. {
  19. my $form = MyApp::Form::SubmitType->new;
  20. ok( $form );
  21.  
  22. my $rendered = $form->render;
  23. like($rendered, qr/type="submit"/,
  24. 'Submit button has type "submit"');
  25. }
  26.  
  27. {
  28. my $form = MyApp::Form::SubmitType->new(is_html5 => 1);
  29. ok( $form );
  30.  
  31. my $rendered = $form->render;
  32. like($rendered, qr/type="submit"/,
  33. 'Submit button has type "submit" for html5');
  34. }
  35.  
  36. done_testing();
Add Comment
Please, Sign In to add comment