$mock_model->mock('is_public', sub {0});
my $true_false = $r->is_model_applicable;
is($true_false, 0,
$mock_model->mock('is_public', sub {0});
my $true_false = $r->is_model_applicable;
is($true_false, 0,
$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'],
$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'],
is_deeply($r->config->ok_tables, {one => 1, two => 1},
is_deeply($r->config->ok_tables, {one => 1, two => 1},
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');
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');