pyrox.dev
1let
2 common = { pkgs, ... }: {
3 networking.firewall.enable = false;
4 networking.useDHCP = false;
5 # for a host utility with IPv6 support
6 environment.systemPackages = [ pkgs.bind ];
7 };
8in import ./make-test.nix ({ pkgs, ...} : {
9 name = "nsd";
10 meta = with pkgs.stdenv.lib.maintainers; {
11 maintainers = [ aszlig ];
12 };
13
14 nodes = {
15 clientv4 = { lib, nodes, ... }: {
16 imports = [ common ];
17 networking.nameservers = lib.mkForce [
18 (lib.head nodes.server.config.networking.interfaces.eth1.ipv4.addresses).address
19 ];
20 networking.interfaces.eth1.ipv4.addresses = [
21 { address = "192.168.0.2"; prefixLength = 24; }
22 ];
23 };
24
25 clientv6 = { lib, nodes, ... }: {
26 imports = [ common ];
27 networking.nameservers = lib.mkForce [
28 (lib.head nodes.server.config.networking.interfaces.eth1.ipv6.addresses).address
29 ];
30 networking.interfaces.eth1.ipv4.addresses = [
31 { address = "dead:beef::2"; prefixLength = 24; }
32 ];
33 };
34
35 server = { lib, ... }: {
36 imports = [ common ];
37 networking.interfaces.eth1.ipv4.addresses = [
38 { address = "192.168.0.1"; prefixLength = 24; }
39 ];
40 networking.interfaces.eth1.ipv6.addresses = [
41 { address = "dead:beef::1"; prefixLength = 64; }
42 ];
43 services.nsd.enable = true;
44 services.nsd.interfaces = lib.mkForce [];
45 services.nsd.zones."example.com.".data = ''
46 @ SOA ns.example.com noc.example.com 666 7200 3600 1209600 3600
47 ipv4 A 1.2.3.4
48 ipv6 AAAA abcd::eeff
49 deleg NS ns.example.com
50 ns A 192.168.0.1
51 ns AAAA dead:beef::1
52 '';
53 services.nsd.zones."deleg.example.com.".data = ''
54 @ SOA ns.example.com noc.example.com 666 7200 3600 1209600 3600
55 @ A 9.8.7.6
56 @ AAAA fedc::bbaa
57 '';
58 };
59 };
60
61 testScript = ''
62 startAll;
63
64 $clientv4->waitForUnit("network.target");
65 $clientv6->waitForUnit("network.target");
66 $server->waitForUnit("nsd.service");
67
68 sub assertHost {
69 my ($type, $rr, $query, $expected) = @_;
70 my $self = $type eq 4 ? $clientv4 : $clientv6;
71 my $out = $self->succeed("host -$type -t $rr $query");
72 $self->log("output: $out");
73 chomp $out;
74 die "DNS IPv$type query on $query gave '$out' instead of '$expected'"
75 if ($out !~ $expected);
76 }
77
78 foreach (4, 6) {
79 subtest "ipv$_", sub {
80 assertHost($_, "a", "example.com", qr/has no [^ ]+ record/);
81 assertHost($_, "aaaa", "example.com", qr/has no [^ ]+ record/);
82
83 assertHost($_, "soa", "example.com", qr/SOA.*?noc\.example\.com/);
84 assertHost($_, "a", "ipv4.example.com", qr/address 1.2.3.4$/);
85 assertHost($_, "aaaa", "ipv6.example.com", qr/address abcd::eeff$/);
86
87 assertHost($_, "a", "deleg.example.com", qr/address 9.8.7.6$/);
88 assertHost($_, "aaaa", "deleg.example.com", qr/address fedc::bbaa$/);
89 };
90 }
91 '';
92})