diff options
author | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-02-25 20:00:44 +0000 |
---|---|---|
committer | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-02-25 20:00:44 +0000 |
commit | c2f0e9e9cd2b23f8f7d700a5307b559e1ce70cc0 (patch) | |
tree | b27d6757c4a5df82ca338cbc3211cf315c7fcd32 /t/uncheck_bool_field.t | |
parent | 642eb116a980729b37cb409094a94f9f6f39458c (diff) | |
download | reaction-c2f0e9e9cd2b23f8f7d700a5307b559e1ce70cc0.tar.gz reaction-c2f0e9e9cd2b23f8f7d700a5307b559e1ce70cc0.zip |
failing test case for Bool field
Diffstat (limited to 't/uncheck_bool_field.t')
-rw-r--r-- | t/uncheck_bool_field.t | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/t/uncheck_bool_field.t b/t/uncheck_bool_field.t new file mode 100644 index 0000000..7742165 --- /dev/null +++ b/t/uncheck_bool_field.t @@ -0,0 +1,14 @@ +use strict; +use warnings; +use Test::More qw(no_plan); +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'); |