view release on metacpan or  search on metacpan

t/anyevent_ftp_server_role_old.t  view on Meta::CPAN

use Test2::V0 -no_srand => 1;
use Test::AnyEventFTPServer;

global_timeout_ok;

foreach my $type (qw( FSRW Memory ))
{
  my $server = create_ftpserver_ok($type);
  my $client = $server->connect_ftpclient_ok;

  is $client->allo->recv->code, 202, "ALLO";
  is $client->noop->recv->code, 200, "NOOP";
  is $client->syst->recv->code, 215, "SYST";

  $server->help_coverage_ok('AnyEvent::FTP::Server::Role::Old');
}

pass 'good';

done_testing;