t/uncheck_bool_field.t

   1 use strict;
   2 use warnings;
   3 use Test::More qw(no_plan);
   4 BEGIN { $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1; }
   5
   6 use Test::WWW::Mechanize::Catalyst 'ComponentUI';
   7
   8 my $mech = Test::WWW::Mechanize::Catalyst->new;
   9 $mech->get_ok('http://localhost/testmodel/baz/id/1/update');
  10 # print $mech->content, "\n";
  11 $mech->tick('r-vp-1-field-bool_field:value_string', 1);
  12 $mech->submit_form(button => 'r-vp-1:apply');
  13 $mech->content_like(qr{checked="checked"}, 'checked');
  14 $mech->untick('r-vp-1-field-bool_field:value_string', 1);
  15 $mech->submit_form(button => 'r-vp-1:apply');
  16 $mech->content_unlike(qr{checked="checked"}, 'should not be checked');