t/20-conn-failed.t

   1 #!perl
   2 #
   3 # This file is part of POE::Component::Client::MPD.
   4 # Copyright (c) 2007 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 use strict;
  12 use warnings;
  13
  14 use POE qw[ Component::Client::MPD::Connection ];
  15 use Test::More;
  16 plan tests => 1;
  17
  18 my $id = POE::Session->create(
  19     inline_states => {
  20         _start     => \&_onpriv_start,
  21         _mpd_error => \&_onpriv_mpd_error,
  22     }
  23 );
  24 POE::Component::Client::MPD::Connection->spawn( {
  25     host => 'localhost',
  26     port => 16600,
  27     id   => $id,
  28 } );
  29 POE::Kernel->run;
  30 exit;
  31
  32
  33 sub _onpriv_start {
  34     $_[KERNEL]->alias_set('tester'); # increment refcount
  35 }
  36
  37 sub _onpriv_mpd_error  {
  38     like( $_[ARG0]->error, qr/^connect: \(\d+\) /, 'connect error trapped' );
  39 }
  40