1use strict; 2use Test::More tests => 17; 3 4BEGIN { 5 use_ok("Net::FTPServer") || print "Bail out!\n"; 6 use_ok("Net::FTPServer::DirHandle"); 7 use_ok("Net::FTPServer::FileHandle"); 8 use_ok("Net::FTPServer::Handle"); 9 use_ok("Net::FTPServer::Full::Server"); 10 use_ok("Net::FTPServer::Full::DirHandle"); 11 use_ok("Net::FTPServer::Full::FileHandle"); 12 use_ok("Net::FTPServer::RO::DirHandle"); 13 use_ok("Net::FTPServer::RO::FileHandle"); 14 use_ok("Net::FTPServer::RO::Server"); 15 use_ok("Net::FTPServer::InMem::DirHandle"); 16 use_ok("Net::FTPServer::InMem::FileHandle"); 17 use_ok("Net::FTPServer::InMem::Server"); 18 SKIP: { 19 skip "DBI not installed", 4 if not eval "require DBI; 1"; 20 use_ok("Net::FTPServer::DBeg1::IOBlob"); 21 use_ok("Net::FTPServer::DBeg1::Server"); 22 use_ok("Net::FTPServer::DBeg1::DirHandle"); 23 use_ok("Net::FTPServer::DBeg1::FileHandle"); 24 }; 25} 26 27diag( "Testing Net::FTPServer $Net::FTPServer::VERSION, Perl $], $^X" ); 28 29__END__ 30