[catagits/Reaction.git] / t / uncheck_bool_field.t

use strict;
use warnings;
use Test::More qw(no_plan);
BEGIN { $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1; }

use Test::WWW::Mechanize::Catalyst 'ComponentUI';

my $mech = Test::WWW::Mechanize::Catalyst->new;
$mech->get_ok('http://localhost/testmodel/baz/id/1/update');
# print $mech->content, "\n";
$mech->tick('r-vp-1-field-bool_field:value_string', 1);
$mech->submit_form(button => 'r-vp-1:apply');
$mech->content_like(qr{checked="checked"}, 'checked');
$mech->untick('r-vp-1-field-bool_field:value_string', 1);
$mech->submit_form(button => 'r-vp-1:apply');
$mech->content_unlike(qr{checked="checked"}, 'should not be checked');
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; }
f996f018	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');