Commit | Line | Data |
c2f0e9e9 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More qw(no_plan); |
f996f018 |
4 | BEGIN { $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1; } |
5 | |
c2f0e9e9 |
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'); |