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