my $t = Test::Mojo->new('Newslash::Web');
my $messages = $t->app->model('messages');
+ok($messages, "get Messages instance");
+
subtest 'basic message type methods' => sub {
plan skip_all => "mode is not 'test'" if ($t->app->mode ne 'test');
name => "test_message_foo",
description => "テスト用メッセージタイプ",
seclev => 100,
- is_selectable => 1,
+ selectable_mode => 1,
};
my $created_id = $messages->create_message_type($type->{message_type_id},
$type->{name},
$type->{description},
$type->{seclev},
- $type->{is_selectable}
+ $type->{selectable_mode}
);
is($created_id, $type->{message_type_id}, "create message type");
my $new_obj = $messages->select_message_type(message_type_id => $type->{message_type_id});
+ ok($new_obj, "select message type by type id");
is_deeply($new_obj, $type, "select by message_type_id");
$new_obj = $messages->select_message_type(name => $type->{name});
+ ok($new_obj, "select message type by name");
is_deeply($new_obj, $type, "select by name");
my $rs = $messages->select_message_type;
ok($rs, "select with no arguments");
ok(@$rs > 0, "select some items with no arguments");
- my $rs = $messages->delete_message_type(message_type_id => $type->{message_type_id});
+ $rs = $messages->delete_message_type(message_type_id => $type->{message_type_id});
ok($rs, "delete message type");
};
- done_testing();
+done_testing();