feat: add full Zonemaster stack with Docker and Spanish UI

- Clone all 5 Zonemaster component repos (LDNS, Engine, CLI, Backend, GUI) - Dockerfile.backend: 8-stage multi-stage build LDNS→Engine→CLI→Backend - Dockerfile.gui: Astro static build served via nginx - docker-compose.yml: backend (internal) + frontend (port 5353) - nginx.conf: root redirects to /es/, /api/ proxied to backend - zonemaster-gui/config.ts: defaultLanguage set to 'es' (Spanish) Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
2026-04-21 08:19:24 +02:00
commit 8d4eaa1489
1567 changed files with 204155 additions and 0 deletions
--- a/zonemaster-ldns/t/resolver.t
+++ b/zonemaster-ldns/t/resolver.t
@@ -0,0 +1,108 @@
+use Test::More;
+
+use Zonemaster::LDNS;
+
+SKIP: {
+    skip 'no network', 20 unless $ENV{TEST_WITH_NETWORK};
+
+    my $r = Zonemaster::LDNS->new( '8.8.8.8' );
+
+    $r->recurse( 0 );
+    ok( !$r->recurse, 'recursive off' );
+    $r->recurse( 1 );
+    ok( $r->recurse, 'recursive on' );
+
+    $r->retrans( 17 );
+    is( $r->retrans, 17, 'retrans set' );
+
+    $r->retry( 17 );
+    is( $r->retry, 17, 'retry set' );
+
+    $r->debug( 1 );
+    ok( $r->debug, 'debug set' );
+    $r->debug( 0 );
+    ok( !$r->debug, 'debug unset' );
+
+    $r->dnssec( 1 );
+    ok( $r->dnssec, 'dnssec set' );
+    $r->dnssec( 0 );
+    ok( !$r->dnssec, 'dnssec unset' );
+
+    $r->cd( 1 );
+    ok( $r->cd, 'dnssec set' );
+    $r->cd( 0 );
+    ok( !$r->cd, 'dnssec unset' );
+
+    $r->usevc( 1 );
+    ok( $r->usevc, 'usevc set' );
+    $r->usevc( 0 );
+    ok( !$r->usevc, 'usevc unset' );
+
+    $r->igntc( 1 );
+    ok( $r->igntc, 'igntc set' );
+    $r->igntc( 0 );
+    ok( !$r->igntc, 'igntc unset' );
+
+    $r->edns_size( 4711 );
+    is($r->edns_size, 4711 , 'ENDS0 UDP size set');
+    $r->edns_size( 0 );
+    is($r->edns_size, 0 , 'ENDS0 UDP size set to zero');
+
+    is($r->timeout, 5, 'Expected default timeout');
+    $r->timeout(3.33);
+    ok(($r->timeout - 3.33) < 0.01, 'Expected set timeout');
+
+    my $addr = '192.0.2.1'; # Reserved RFC5737
+    ok($r->source($addr), "Source set.");
+    is($r->source, $addr, 'Source got.');
+}
+
+subtest 'recursion' => sub {
+    SKIP: {
+        skip 'no network', 3 unless $ENV{TEST_WITH_NETWORK};
+
+        my $r = Zonemaster::LDNS->new( '8.8.4.4' );
+        my $p1 = $r->query( 'www.iis.se' );
+        is( scalar($p1->answer), 1);
+        $r->recurse(0);
+        my $p2 = $r->query( 'www.nic.se' );
+        is( scalar($p2->answer), 0, 'Got a reply');
+        ok(!$p2->rd, 'RD flag set');
+    }
+};
+
+subtest 'global' => sub {
+    SKIP: {
+        skip 'no network', 3 unless $ENV{TEST_WITH_NETWORK};
+
+        my $res = new_ok( 'Zonemaster::LDNS' );
+        my $p = eval { $res->query( 'www.iis.se' ) } ;
+
+        if (not $p) {
+            diag $@;
+        }
+        else {
+            isa_ok( $p, 'Zonemaster::LDNS::Packet' );
+            isa_ok( $_, 'Zonemaster::LDNS::RR' ) for $p->answer;
+        }
+    }
+};
+
+# subtest 'sections' => sub {
+#     my $res = Zonemaster::LDNS->new( '194.146.106.22' );
+#     my $p   = eval { $res->query( 'www.iis.se' ) };
+#     plan skip_all => 'No response, cannot test' if not $p;
+#
+#     is( scalar( $p->answer ),     1, 'answer count in scalar context' );
+#     is( scalar( $p->authority ),  3, 'authority count in scalar context' );
+#     is( scalar( $p->additional ), 6, 'additional count in scalar context' );
+#     is( scalar( $p->question ),   1, 'question count in scalar context' );
+# };
+
+subtest 'broken' => sub {
+    my $b0rken = eval { Zonemaster::LDNS->new( 'gurksallad' ) };
+    ok( !$b0rken );
+    like( $@, qr/Failed to parse IP address: gurksallad/ );
+};
+
+done_testing;