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 | |
| parent | 642eb116a980729b37cb409094a94f9f6f39458c (diff) | |
| download | reaction-c2f0e9e9cd2b23f8f7d700a5307b559e1ce70cc0.tar.gz reaction-c2f0e9e9cd2b23f8f7d700a5307b559e1ce70cc0.zip | |
failing test case for Bool field
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/RTest/InterfaceModel/Reflector/DBIC.pm | 4 | ||||
| -rw-r--r-- | t/lib/RTest/TestDB/Baz.pm | 8 | ||||
| -rw-r--r-- | t/uncheck_bool_field.t | 14 |
3 files changed, 23 insertions, 3 deletions
diff --git a/t/lib/RTest/InterfaceModel/Reflector/DBIC.pm b/t/lib/RTest/InterfaceModel/Reflector/DBIC.pm index 0db9b0a..fe1cee6 100644 --- a/t/lib/RTest/InterfaceModel/Reflector/DBIC.pm +++ b/t/lib/RTest/InterfaceModel/Reflector/DBIC.pm @@ -195,7 +195,7 @@ sub test_reflect_submodel :Tests{ my %attrs = map { $_->name => $_ } $member->parameter_attributes; my $target; if( $sm eq "Bar"){$target = 4; } - elsif($sm eq "Baz"){$target = 3; } + elsif($sm eq "Baz"){$target = 4; } elsif($sm eq "Foo"){$target = 5; } Test::More::is( scalar keys %attrs, $target, "Correct # of attributes for $sm"); @@ -292,7 +292,7 @@ sub test_reflect_submodel_action :Tests{ my $attr_num; if($action_name =~ /Delete/){next; } elsif($sm eq "Bar"){$attr_num = 4; } - elsif($sm eq "Baz"){$attr_num = 2; } + elsif($sm eq "Baz"){$attr_num = 3; } elsif($sm eq "Foo"){$attr_num = 3; } Test::More::is( scalar keys %attrs, $attr_num, "Correct # of attributes for $sm"); if($attr_num != keys %attrs ){ diff --git a/t/lib/RTest/TestDB/Baz.pm b/t/lib/RTest/TestDB/Baz.pm index 33e5e6c..14bbfaa 100644 --- a/t/lib/RTest/TestDB/Baz.pm +++ b/t/lib/RTest/TestDB/Baz.pm @@ -4,11 +4,12 @@ package # hide from PAUSE use Moose; extends 'DBIx::Class::Core'; -use MooseX::Types::Moose qw/ArrayRef Int/; +use MooseX::Types::Moose qw/ArrayRef Int Bool/; use MooseX::Types::Common::String qw/NonEmptySimpleStr/; has 'id' => (isa => Int, is => 'ro', required => 1); has 'name' => (isa => NonEmptySimpleStr, is => 'rw', required => 1); +has 'bool_field' => (isa => Bool, is => 'rw', required => 0); has 'foo_list' => ( isa => ArrayRef, is => 'rw', @@ -26,6 +27,11 @@ __PACKAGE__->table('baz'); __PACKAGE__->add_columns( id => { data_type => 'integer', size => 16, is_auto_increment => 1 }, name => { data_type => 'varchar', size => 255 }, + bool_field => { + data_type => 'char', + size => '1', + is_nullable => '1' + } ); __PACKAGE__->set_primary_key('id'); 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'); |