Test::AnyEventFTPServer - Test (non-blocking) ftp clients against a real FTP server
version 0.19
use Test2:V0;
use Test::AnyEventFTPServer;
# exit this script after 30s to avoid hung test
global_timeout_ok;
# $test_server isa AnyEvent::FTP::Server
# and isa Test::AnyEventFTPServer
my $test_server = create_ftpserver_ok;
$test_server->command_ok('HELP')
->code_is(214)
->message_like(qr{the following commands are recognize});
# $res isa AnyEvent::FTP::Client::Response
# from that last HELP command
my $res = $test_server->res;
# $client isa AnyEvent::FTP::Client
my $client = $test_server->connect_ftpclient_ok;
# check to make sure that all FTP commands have help
$test_server->help_coverage_ok;
done_testing;
This module makes it easy to test ftp clients against a real AnyEvent::FTP FTP server. The FTP server is non-blocking in and does not fork, so if you are testing a FTP client that blocks then you will need to do it in a separate process. AnyEvent::FTP::Client is a client that doesn't block and so is safe to use in testing against the server.
my $uri = $test_server->test_uri
The full URL (including host, port, username and password) of the test ftp server. This is returned as URI.
my $res = $test_server->res
The last AnyEvent::FTP::Client::Response object returned from the server after calling the command_ok method.
my $content = $test_server->content
The last content retrieved from a list_ok, nlst_ok or transfer_ok test.
my $bool = $test_server->auto_login
If true (the default) automatically login using the correct credentials. Normally if you are testing file transfers you want to keep this to the default value, if you are testing the authentication of a server context then you want to set this to false.
my $test_server = create_ftpserver_ok; my $test_server = create_ftpserver_ok($default_context); my $test_server = create_ftpserver_ok($default_context, $test_name);
Create the FTP server with a random username and password for logging in. You can get the username/password from the test_uri attribute, or connect to the server using AnyEvent::FTP::Client automatically with the connect_ftpclient_ok method below.
my $client = $test_server->connect_ftpclient_ok; my $client = $test_server->connect_ftpclient_ok($test_name);
Connect to the FTP server, return the AnyEvent::FTP::Client object which can be used for testing.
$test_server->help_coverage_ok; $test_server->help_coverage_ok($context_class); $test_server->help_coverage_ok($context_class, $test_name);
Test that there is a help_* method for each cmd_* method in the given context class (the server's default context class is used if it isn't provided). This can also be used to test help coverage of context roles.
$test_command->command_ok( $command, $arguments ); $test_command->command_ok( $command, $arguments, $test_name );
Execute the given command with the given arguments on the remote server. Fails only if a valid FTP response is not returned from the server (even error responses are okay).
The response is stored in the res attribute.
This method returns the test server object, so you can chain this command:
$server->command_ok('HELP', 'HELP') # get help on the help command
->code_is(214) # returns status code 214
->message_like(qr{HELP}); # the help command mentions the help command
$test_server->code_is($code); $test_server->code_is($code, $test_name);
Verifies that the status code of the last command executed matches the given code exactly.
$test_server->code_like($regex); $test_server->code_like($regex, $test_name);
Verifies that the status code of the last command executed matches the given regular expression..
$test_server->message_like($regex); $test_server->message_like($regex, $test_name);
Verifies that the message portion of the response of the last command executed matches the given regular expression.
$test_server->message_is($string); $test_server->message_is($string, $test_name);
Verifies that the message portion of the response of the last command executed matches the given string.
If the response message has multiple lines, then only one of the lines needs to match the given string.
$test_server->list_ok; $test_server->list_ok($location); $test_server->list_ok($location, $test_name)
Execute a the LIST command on the given $location and wait for the results. You can see the result using the content attribute or test it with the content_is method.
$test_server->nlst_ok; $test_server->nlst_ok( $location ); $test_server->nlst_ok( $location, $test_name );
Execute a the NLST command on the given $location and wait for the results. You can see the result using the content attribute or test it with the content_is method.
$test_server->content_is($string); $test_server->content_is($string, $test_name);
Test that the given $string matches the content returned by the last list_ok or nlst_ok method.
global_timeout_ok; global_timeout_ok($timeout); global_timeout_ok($timeout, $test_name)
Set a global timeout on the entire test script. If the timeout is exceeded the test will exit. Handy if you have test automation and your test automation doesn't handle hung tests.
The default timeout is 120 seconds.
Author: Graham Ollis <plicease@cpan.org>
Contributors:
Ryo Okamoto
Shlomi Fish
José Joaquín Atria
This software is copyright (c) 2017-2021 by Graham Ollis.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.