From cd15a2282fcb8092fb058aeb52dedf0d45901737 Mon Sep 17 00:00:00 2001
From: hylom <hylom@users.sourceforge.jp>
Date: Wed, 29 Mar 2017 19:22:53 +0900
Subject: [PATCH] t: fix models/messages.t

---
 src/newslash_web/t/models/messages.t | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/newslash_web/t/models/messages.t b/src/newslash_web/t/models/messages.t
index b6fffd50..30e879cb 100644
--- a/src/newslash_web/t/models/messages.t
+++ b/src/newslash_web/t/models/messages.t
@@ -10,6 +10,8 @@ use Storable;
 
 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');
@@ -19,31 +21,33 @@ subtest 'basic message type methods' => sub {
                 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();
-- 
2.11.0