X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2Fmaypole.t;fp=t%2Fmaypole.t;h=75924536f8cbe616e6e873170b5efc8625c5341a;hb=abb63001d28afe34e807dbd4449feaded558c528;hp=0af1debfb5c0ad91813e1dd657e29c01bbde7405;hpb=5c776a61a4b51aa2dc97c08fcb5feffd20f14063;p=maypole.git diff --git a/t/maypole.t b/t/maypole.t index 0af1deb..7592453 100755 --- a/t/maypole.t +++ b/t/maypole.t @@ -306,10 +306,9 @@ warn "Tests 49 to 53\n\n"; # is_model_applicable() { TODO: { - local $TODO = "test needs fixing"; - + local $TODO = "test needs fixing"; + $r->config->ok_tables([qw(one two)]); $r->config->display_tables([qw(one two)]); - $r->config->ok_tables(undef); $r->model_class($table_class); $r->table('one'); $r->action('unittest'); @@ -317,18 +316,18 @@ TODO: { $mock_model->mock('is_public', sub {0}); my $true_false = $r->is_model_applicable; is($true_false, 0, - '... returns 0 unless model_class->is_public(action)'); + '... returns 0 unless model_class->is_public(action)'); $mock_model->mock('is_public', sub {$is_public = \@_; 1}); $true_false = $r->is_model_applicable; is($true_false, 1, '... returns 1 if table is in ok_tables'); is_deeply($is_public, [$r->model_class, 'unittest'], - '... calls model_class->is_public with request action'); + '... calls model_class->is_public with request action'); is_deeply($r->config->ok_tables, {one => 1, two => 1}, - '... config->ok_tables defaults to config->display_tables'); + '... config->ok_tables defaults to config->display_tables'); delete $r->config->ok_tables->{one}; $true_false = $r->is_model_applicable; is($true_false, 0, '... returns 0 unless $r->table is in ok_tables'); - } + } } # Tests 54 - 58