The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Mojo::IRC;
use Test::More;

plan skip_all => 'Need TEST_TLS=1' unless $ENV{TEST_TLS};
plan tests => 3;

my $irc = Mojo::IRC->new;

is $irc->tls, undef, 'tls is disabled by default';

$irc->server('irc.freenode.net:7000');
$irc->nick('mojo-irc-' . int rand 1000);
$irc->tls({});
$irc->connect(sub {
  my($irc, $error) = @_;
  is $error, '', 'no error' or diag $error;
  Mojo::IOLoop->stop;
});

ok $irc->{stream_id}, 'stream_id is set';

Mojo::IOLoop->start;