t: fix eventd and models/submissions test

diff --git a/src/newslash_web/t/eventd/handler/comment.t b/src/newslash_web/t/eventd/handler/comment.t
index 5fe47a4..8b3597c 100644 (file)
--- a/src/newslash_web/t/eventd/handler/comment.t
+++ b/src/newslash_web/t/eventd/handler/comment.t
@@ -116,6 +116,7 @@ subtest 'test comment:post handler' => sub {
     }
 
     # create comment reply event
+    # this event generate 2 messages
     $t->app->event_que->emit("comment", "post", $admin->{uid}, $comment2->{cid});
 
     # get and process event
@@ -134,6 +135,8 @@ subtest 'test comment:post handler' => sub {
     else {
         $event = $event->[0];
         $comment_handler->post($event);
+
+        # check 1st message
         my $msgs = $web_messages->select(uid => $user->{uid},
                                          order_by => { id => "DESC" },
                                          limit => 1);
@@ -144,6 +147,18 @@ subtest 'test comment:post handler' => sub {
         like($msgs->[0]->{message}, qr/\/comment\/$comment2->{cid}/, "message check 2-1");
 
         ok($web_messages->hard_delete(id => $msgs->[0]->{id}), "delete message 2");
+
+        # check 2st message
+        $msgs = $web_messages->select(uid => $admin->{uid},
+                                      order_by => { id => "DESC" },
+                                      limit => 1);
+        ok($msgs, "select web_message 3");
+        is(@$msgs, 1, "select valid message 3");
+        like($msgs->[0]->{subject}, qr/$comment1->{title}/, "subject check 3-1");
+        like($msgs->[0]->{subject}, qr/Re: /, "subject check 3-2");
+        like($msgs->[0]->{message}, qr/\/comment\/$comment2->{cid}/, "message check 3-1");
+
+        ok($web_messages->hard_delete(id => $msgs->[0]->{id}), "delete message 3");
     }
 
 

diff --git a/src/newslash_web/t/models/submissions.t b/src/newslash_web/t/models/submissions.t
index caa84bd..e459547 100644 (file)
--- a/src/newslash_web/t/models/submissions.t
+++ b/src/newslash_web/t/models/submissions.t
@@ -79,7 +79,8 @@ subtest 'create/select/update submissions' => sub {
     is($subm->{public}, "no", "update valid (2)");
 
     ok($submissions->hard_delete(submission_id => $subid), "delete story");
-
+    $subm = $submissions->select(submission_id => $subid);
+    ok(!$subm, "submission delete");
 };