From c2f0e9e9cd2b23f8f7d700a5307b559e1ce70cc0 Mon Sep 17 00:00:00 2001
From: wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>
Date: Wed, 25 Feb 2009 20:00:44 +0000
Subject: failing test case for Bool field

---
 t/uncheck_bool_field.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 t/uncheck_bool_field.t

(limited to 't/uncheck_bool_field.t')

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');
-- 
cgit v1.2.3-54-g00ecf