websocket.t

#!/usr/bin/env perl
use Mojo::Base -strict;

use utf8;

use Test::More tests => 4;
use Mojolicious::Lite;
use Test::Mojo;

# Tiny echo web service
websocket '/echo' => sub {
  my $self = shift;
  $self->on(message => sub {
    my ($self, $message) = @_;
    $self->send("echo: $message");
  });
};

# Send message and receive echo
my $t = Test::Mojo->new;
$t->websocket_ok('/echo')
  ->send_ok('I ♥ Mojolicious')
  ->message_ok
  ->message_is('echo: I ♥ Mojolicious')
  ->finish_ok;