2010-05-20 22:07:32 +01:00
|
|
|
# This is a simple distributed test involving a topology with two
|
|
|
|
# separate virtual networks - the "inside" and the "outside" - with a
|
|
|
|
# client on the inside network, a server on the outside network, and a
|
|
|
|
# router connected to both that performs Network Address Translation
|
|
|
|
# for the client.
|
|
|
|
|
|
|
|
{ pkgs, ... }:
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
nodes =
|
2011-09-14 19:20:50 +01:00
|
|
|
{ client =
|
2010-05-21 15:12:03 +01:00
|
|
|
{ config, pkgs, nodes, ... }:
|
2010-05-20 22:07:32 +01:00
|
|
|
{ virtualisation.vlans = [ 1 ];
|
2010-05-21 15:12:03 +01:00
|
|
|
networking.defaultGateway =
|
|
|
|
nodes.router.config.networking.ifaces.eth2.ipAddress;
|
2010-05-20 22:07:32 +01:00
|
|
|
};
|
|
|
|
|
2011-09-14 19:20:50 +01:00
|
|
|
router =
|
2010-05-20 22:07:32 +01:00
|
|
|
{ config, pkgs, ... }:
|
|
|
|
{ virtualisation.vlans = [ 2 1 ];
|
2011-03-10 12:08:39 +00:00
|
|
|
networking.nat.enable = true;
|
|
|
|
networking.nat.internalIPs = "192.168.1.0/24";
|
|
|
|
networking.nat.externalInterface = "eth1";
|
2010-05-20 22:07:32 +01:00
|
|
|
};
|
|
|
|
|
2011-09-14 19:20:50 +01:00
|
|
|
server =
|
2010-05-20 22:07:32 +01:00
|
|
|
{ config, pkgs, ... }:
|
|
|
|
{ virtualisation.vlans = [ 2 ];
|
|
|
|
services.httpd.enable = true;
|
|
|
|
services.httpd.adminAddr = "foo@example.org";
|
2011-03-10 13:03:47 +00:00
|
|
|
services.vsftpd.enable = true;
|
|
|
|
services.vsftpd.anonymousUser = true;
|
2010-05-20 22:07:32 +01:00
|
|
|
};
|
|
|
|
};
|
|
|
|
|
|
|
|
testScript =
|
2010-05-21 15:31:05 +01:00
|
|
|
{ nodes, ... }:
|
2010-05-20 22:07:32 +01:00
|
|
|
''
|
|
|
|
startAll;
|
|
|
|
|
|
|
|
# The router should have access to the server.
|
|
|
|
$server->waitForJob("httpd");
|
2011-08-29 15:23:26 +01:00
|
|
|
$router->waitForJob("network-interfaces");
|
2011-03-10 12:08:39 +00:00
|
|
|
$router->succeed("curl --fail http://server/ >&2");
|
|
|
|
|
|
|
|
# The client should be also able to connect via the NAT router.
|
|
|
|
$router->waitForJob("nat");
|
2011-08-29 15:23:26 +01:00
|
|
|
$client->waitForJob("network-interfaces");
|
2011-03-10 12:08:39 +00:00
|
|
|
$client->succeed("curl --fail http://server/ >&2");
|
|
|
|
$client->succeed("ping -c 1 server >&2");
|
2011-09-14 19:20:50 +01:00
|
|
|
|
2011-03-10 13:03:47 +00:00
|
|
|
# Test whether passive FTP works.
|
|
|
|
$server->waitForJob("vsftpd");
|
|
|
|
$server->succeed("echo Hello World > /home/ftp/foo.txt");
|
|
|
|
$client->succeed("curl -v ftp://server/foo.txt >&2");
|
2011-09-14 19:20:50 +01:00
|
|
|
|
2011-03-10 13:03:47 +00:00
|
|
|
# Test whether active FTP works.
|
|
|
|
$client->succeed("curl -v -P - ftp://server/foo.txt >&2");
|
|
|
|
|
|
|
|
# Test ICMP.
|
|
|
|
$client->succeed("ping -c 1 router >&2");
|
|
|
|
$router->succeed("ping -c 1 client >&2");
|
2011-09-14 19:20:50 +01:00
|
|
|
|
2011-03-10 12:08:39 +00:00
|
|
|
# If we turn off NAT, the client shouldn't be able to reach the server.
|
|
|
|
$router->succeed("stop nat");
|
|
|
|
$client->fail("curl --fail --connect-timeout 5 http://server/ >&2");
|
|
|
|
$client->fail("ping -c 1 server >&2");
|
|
|
|
|
|
|
|
# And make sure that restarting the NAT job works.
|
|
|
|
$router->succeed("start nat");
|
|
|
|
$client->succeed("curl --fail http://server/ >&2");
|
|
|
|
$client->succeed("ping -c 1 server >&2");
|
2010-05-20 22:07:32 +01:00
|
|
|
'';
|
|
|
|
|
|
|
|
}
|