Adding Test::Mojo::message_* tests.

Author: sergiotarxz

t/test/mojo.t

@@ -5,6 +5,10 @@ use Test::Mojo;
 use Mojolicious::Lite;
 
 any '/' => {text => 'Hello Test!'};
+websocket '/websocket', => sub {
+  my ($c) = @_;
+  $c->send({text => 'testing message'});
+};
 
 my $t = Test::Mojo->new;
 
@@ -217,4 +221,45 @@ subtest 'header_unlike' => sub {
   is_deeply \@args, ['unlike', 'text/html;charset=UTF-8', qr/image\/png/, 'some description'], 'right result';
 };
 
+subtest 'message_is' => sub {
+  $t->websocket_ok('/websocket')->message_ok->message_is('testing message');
+  is_deeply \@args, ['is', ('testing message') x 2, 'exact match for message'], 'message_is succeded.';
+  $t->websocket_ok('/websocket')->message_ok->message_is('testing message', 'some description');
+  is_deeply \@args, ['is', ('testing message') x 2, 'some description'], 'message_is prints correct test message.';
+  $t->websocket_ok('/websocket')->message_ok->message_is('incorrect testing message');
+  is_deeply \@args, ['is', 'testing message', 'incorrect testing message', 'exact match for message'], 'message_is fails.';
+};
+
+subtest 'message_isnt' => sub {
+  $t->websocket_ok('/websocket')->message_ok->message_isnt('testing message');
+  is_deeply \@args, ['isnt', ('testing message') x 2, 'no match for message'], 'message_isnt fails.';
+  $t->websocket_ok('/websocket')->message_ok->message_isnt('testing message', 'some description');
+  is_deeply \@args, ['isnt', ('testing message') x 2, 'some description'], 'message_isnt prints correct test message.';
+  $t->websocket_ok('/websocket')->message_ok->message_isnt('incorrect testing message');
+  is_deeply \@args, ['isnt', 'testing message', 'incorrect testing message', 'no match for message'], 'message_isnt succeded.';
+};
+
+subtest 'message_like' => sub {
+  $t->websocket_ok('/websocket')->message_ok->message_like(qr/^test/);
+  is_deeply \@args, ['like', 'testing message', qr/^test/, 'message is similar'], 'message_like succeded.';
+  $t->websocket_ok('/websocket')->message_ok->message_like(qr/^test/, 'some description');
+  is_deeply \@args, ['like', 'testing message', qr/^test/, 'some description'], 'message_like prints correct test message.';
+};
+
+subtest 'message_ok' => sub {
+  $t->websocket_ok('/websocket')->message_ok;
+  is_deeply \@args, ['ok', !!1, 'message received'], 'message_ok succeded.';
+  $t->websocket_ok('/websocket')->message_ok('some description');
+  is_deeply \@args, ['ok', !!1, 'some description'], 'message_ok prints correct test message.';
+  $t->websocket_ok('/')->message_ok;
+  is_deeply \@args, ['ok', !!0, 'message received'], 'message_ok failed.';
+};
+
+subtest 'message_unlike' => sub {
+  $t->websocket_ok('/websocket')->message_ok->message_unlike(qr/^test/);
+  is_deeply \@args, ['unlike', 'testing message', qr/^test/, 'message is not similar'], 'message_unlike failed.';
+  $t->websocket_ok('/websocket')->message_ok->message_unlike(qr/^test/, 'some description');
+  is_deeply \@args, ['unlike', 'testing message', qr/^test/, 'some description'], 'message_unlike prints correct test message.';
+};
+
 done_testing();