Test websocketu

t/basic.t

@@ -4,7 +4,7 @@ use Test::More;
 use Test::Mojo;
 
 my $t = Test::Mojo->new('CF');
-$t->get_ok('/api.html')->status_is(200)->content_like(qr/CF Online/i);
+
 $t->get_ok('/api.json')->status_is(200)
     ->json_is('/openapi'    => '3.0.3')
     ->json_is('/info/title' => 'CF Online')

t/ws.t

+use Mojo::Base -strict;
+
+use Test::More;
+use Test::Mojo;
+
+my $t = Test::Mojo->new('CF');
+
+# Test JSON web service
+$t->websocket_ok('/ws')
+  ->send_ok({json => {event => 'KEEPALIVE'}})
+  ->message_ok
+  ->json_message_is('/event' => 'online_users_updated')
+  ->json_message_has('/payload/all')
+  ->finish_ok;
+;
+
+done_testing();